Skip to content

Instantly share code, notes, and snippets.

@zouppen

zouppen/EveningPlan.hs

Last active August 29, 2015 14:01
Show Gist options
  • Save zouppen/34505ebedc2f91e15482 to your computer and use it in GitHub Desktop.
Save zouppen/34505ebedc2f91e15482 to your computer and use it in GitHub Desktop.
Download ZIP
Evening planning helper
Raw
EveningPlan.hs
-- |Evening planning simulation. It compiles, therefore it works.
module EveningPlan where
data Coffee = Coffee | Tea | Beer deriving Show
isItFriday = True
eveningPlan :: Maybe Coffee
eveningPlan = if isItFriday
then Just Beer
else Nothing
haveCoffee = repeat Beer
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment