qfpl/applied-fp-course
1
1
Fork 0
mirror of https://github.com/qfpl/applied-fp-course.git synced 2024-11-27 01:23:00 +03:00
Code Issues Projects Releases Wiki Activity

Typo fix

Browse Source
This commit is contained in:
Sean Chalmers 2017-08-17 11:37:51 +10:00
parent 767256ebd4
commit 746d73d902
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
level06/src/FirstApp/Main.hs
View File

@ -62,7 +62,7 @@ prepareAppReqs = do
-- which might have failed to be created for some reason, but our DB start up -- 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 -- might have also failed for some reason. This is a bit clunky
dbE <- fmap join $ traverse initDB cfgE 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 -- 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. -- when starting up the full app or one for testing.
pure $ liftA2 ( Env logToErr ) cfgE dbE pure $ liftA2 ( Env logToErr ) cfgE dbE