rachel/kino
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix indents for nonConceal and update TODO

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2021-09-19 19:43:19 +02:00
parent 56e1a7ce0b
commit 5843a137f8
4 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO
View File

@ -1,5 +1,3 @@
COMMENT YOUR CODE!!!!!!!
make it look nicer :) make it look nicer :)
fix import/exports to be conservative fix import/exports to be conservative

3
src/UI.hs
View File

@ -82,8 +82,7 @@ scroll d s = s & appCursor .~ newCursor
where where
upperLimit = fromMaybe 0 (subtract 1 . length . movies <$> s ^. appListing) upperLimit = fromMaybe 0 (subtract 1 . length . movies <$> s ^. appListing)
new = case d of { Up -> (subtract 1); Down -> (+1) } new = case d of { Up -> (subtract 1); Down -> (+1) }
oldCursor = s ^. appCursor newCursor = max 0 (min upperLimit (new (s ^. appCursor)))
newCursor = max 0 (min upperLimit (new oldCursor))
-- | Given a String, modify our state so that string -- | Given a String, modify our state so that string