@@ -16,11 +16,13 @@ import GHC.Stack
1616
1717data Handle = Handle {
1818 logSeriousError :: HasCallStack => T.Text -> IO ()
19+ , logInfo :: HasCallStack => T.Text -> IO ()
1920 , logDebug :: HasCallStack => T.Text -> IO ()
21+ , logWarning :: HasCallStack => T.Text -> IO ()
2022 }
2123
2224makeNopHandle :: Handle
2325makeNopHandle = makeOneHandle $ const $ pure ()
2426
2527makeOneHandle :: (HasCallStack => T.Text -> IO ()) -> Handle
26−makeOneHandle x = Handle x x
28+makeOneHandle x = Handle x x x x