Cabal updates

This commit is contained in:
James Eversole
2024-10-16 15:54:34 -05:00
parent ffec891f26
commit b39e9cefd6
4 changed files with 52 additions and 31 deletions

View File

@@ -68,7 +68,9 @@ data LogLevel = Info | Warning | Error
instance ToField LogLevel where
toField level = toField (T.pack (show level))
--
-- Utility
--
liftIOE :: (IOE :> es, Error ServerError :> es) => IO a -> Eff es a
-- Lift IO into Eff and catch IOExceptions
liftIOE m = liftIO m `catch` \(e::IOException) -> do