[ 101 ] usual time and place

msp-strath · Jan 17, 2025 · 7a83ad0 · 7a83ad0
1 parent df95f8c
commit 7a83ad0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/OneOhOne.hs b/OneOhOne.hs
@@ -39,13 +39,13 @@ import Text.Feed.Query
 
 -- constants
 usualTime :: TimeOfDay
-usualTime = TimeOfDay 13 0 0
+usualTime = TimeOfDay 15 0 0
 
 usualDay :: String
-usualDay = "Friday"
+usualDay = "Monday"
 
 usualRoom :: String
-usualRoom = "LT210"
+usualRoom = "LT1414a"
 
 usualBuilding :: String
 usualBuilding = "Livingstone Tower"