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

Now with pattern matching

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

6
app/Main.hs
View file

@ -23,6 +23,6 @@ getCurrentWeekDay = dayOfWeek . utctDay <$> getCurrentTime
main :: IO () main :: IO ()
main = do main = do
day <- getCurrentWeekDay day <- getCurrentWeekDay
if day == Tuesday case day of
then print Friet Tuesday -> print Friet
else print =<< (randomIO :: IO Fastfood) _ -> print =<< (randomIO :: IO Fastfood)