From 99eddc7c554e7ffda4987e084b71095720202607 Mon Sep 17 00:00:00 2001 From: Johannes Winklehner Date: Mon, 29 Aug 2016 12:17:14 +0200 Subject: [PATCH] markRead --- src/App/Fontifier.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/App/Fontifier.hs b/src/App/Fontifier.hs index f5776e1..3e9b62b 100644 --- a/src/App/Fontifier.hs +++ b/src/App/Fontifier.hs @@ -218,7 +218,7 @@ isUnassigned :: String -> [(String,Slice,Bool)] -> Bool isUnassigned s = null . filter (\(t,_,_) -> t == s) markRead :: String -> [(String,Slice,Bool)] -> [(String,Slice,Bool)] ---markRead s a = +markRead s = map (\(v,p,b) -> (v,p,b || v == s)) enterBlock :: [(String,Slice,Bool)] -> [(String,Slice,Bool)] enterBlock = map (\(v,s,b) -> ('*':v,s,b))