Use envy in Main.hs

2025-09-17 18:56:34 +02:00
parent 01acb5b0e9
commit cf57a24497
2 changed files with 37 additions and 17 deletions
@@ -15,7 +15,7 @@ doLog :: (HasCallStack) => String -> String -> IO ()
 doLog level msg = do
  now <- getZonedTime
  let location = getLocation $ getCallStack callStack
-  printf "(%s) (%s) (%s) %s\n" (iso8601Show now) location level msg
+  printf "(%s) (%s) (%s) %s\n" (iso8601Show now) level location msg
  where
    getLocation :: [(String, SrcLoc)] -> String
    -- First entry is always a function from this module, skip it