Egg/fastfood-hs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Golf golf golf

Browse source
This commit is contained in:
Nox Sluijtman 2024-03-21 11:52:28 +01:00
parent 0044d607f6
commit e46b3b37be
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
app/Main.hs
View file

@ -17,12 +17,9 @@ instance Random Fastfood where
(x, g') -> (toEnum x, g') (x, g') -> (toEnum x, g')
random = randomR (minBound, maxBound) random = randomR (minBound, maxBound)
getCurrentWeekDay :: IO DayOfWeek
getCurrentWeekDay = dayOfWeek . utctDay <$> getCurrentTime
main :: IO () main :: IO ()
main = do main = do
day <- getCurrentWeekDay day <- dayOfWeek . utctDay <$> getCurrentTime -- slight golf optimisation
case day of case day of
Tuesday -> print Friet Tuesday -> print Friet
_ -> print =<< (randomIO :: IO Fastfood) _ -> print =<< (randomIO :: IO Fastfood)