Cabal updates
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user