diff --git a/app/Main.hs b/app/Main.hs
index 75013f1..a426406 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -17,12 +17,9 @@ instance Random Fastfood where
             (x, g') -> (toEnum x, g')
     random = randomR (minBound, maxBound)
 
-getCurrentWeekDay :: IO DayOfWeek
-getCurrentWeekDay = dayOfWeek . utctDay <$> getCurrentTime
-
 main :: IO ()
 main = do
-    day <- getCurrentWeekDay
+    day <- dayOfWeek . utctDay <$> getCurrentTime -- slight golf optimisation
     case day of
         Tuesday -> print Friet
         _ -> print =<< (randomIO :: IO Fastfood)