attic/hsedit
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

markRead

Browse source
This commit is contained in:
Johannes Winklehner 2016-08-29 12:17:14 +02:00
parent 28fb6ccc86
commit 99eddc7c55
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/App/Fontifier.hs
View file

@ -218,7 +218,7 @@ isUnassigned :: String -> [(String,Slice,Bool)] -> Bool
isUnassigned s = null . filter (\(t,_,_) -> t == s) isUnassigned s = null . filter (\(t,_,_) -> t == s)
markRead :: String -> [(String,Slice,Bool)] -> [(String,Slice,Bool)] 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 :: [(String,Slice,Bool)] -> [(String,Slice,Bool)]
enterBlock = map (\(v,s,b) -> ('*':v,s,b)) enterBlock = map (\(v,s,b) -> ('*':v,s,b))