Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs Secret

Created October 19, 2020 11:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dminuoso/e28a461bcb324a5d29c125165c0da0e0 to your computer and use it in GitHub Desktop.
Save dminuoso/e28a461bcb324a5d29c125165c0da0e0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
runCoreWithEnv :: Env -> IOL ()
runCoreWithEnv env = do
logger <- askLoggerIO
liftIO $ agnarServer & (`runReaderT` env)
. (`runLoggingT` logger)
. runAgnar
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment