rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

add GalleryInfo

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-16 11:48:09 +02:00
parent 2844df96cd
commit ae5dc6b006
2 changed files with 60 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
make-pages/Options.hs
View file

@ -31,20 +31,6 @@ data ModeOptions =
}
deriving Show
data Who = Mine | NotMine | All deriving (Eq, Show)
readWho :: String -> Maybe Who
readWho "mine" = Just Mine
readWho "not-mine" = Just NotMine
readWho "all" = Just All
readWho _ = Nothing
matchWho :: Who -> Info -> Bool
matchWho Mine = #mine
matchWho NotMine = #notMine
matchWho _ = const True
optionsParser :: ParserInfo Options
optionsParser = globalOpts `info` mainInfo where