1
1
mirror of https://github.com/qfpl/applied-fp-course.git synced 2024-11-27 01:23:00 +03:00
This commit is contained in:
Sean Chalmers 2017-08-17 11:37:51 +10:00
parent 767256ebd4
commit 746d73d902

View File

@ -62,7 +62,7 @@ prepareAppReqs = do
-- which might have failed to be created for some reason, but our DB start up
-- might have also failed for some reason. This is a bit clunky
dbE <- fmap join $ traverse initDB cfgE
-- Wrap our values (if we have them) in a tuple for use in other parts of our
-- Wrap our values (if we have them) in our Env for use in other parts of our
-- application. We do it this way so we can have access to the bits we need
-- when starting up the full app or one for testing.
pure $ liftA2 ( Env logToErr ) cfgE dbE