zoriya/applicative-getopt
1
0
Fork 0
mirror of https://github.com/zoriya/applicative-getopt.git synced 2026-06-02 10:45:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor fixes

Browse Source
This commit is contained in:
Zoe Roux
2021-03-10 13:27:29 +01:00
parent 745d409d55
commit 6db3c6f639
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/Main.hs
+3 -3
View File
@@ -73,9 +73,9 @@ main = do
Nothing -> exitWith (ExitFailure 84)
where
post :: Configuration -> [CellList] -> [CellList]
post config = drop (start config)
. runMaybe (Main.lines config) take
. map (rotate $ move config)
post config = runMaybe (Main.lines config) take
. drop (start config)
. map (rotate $ -move config)
. map (align $ window config)
runMaybe :: Maybe a -> (a -> b -> b) -> b -> b