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

Removed some give-aways

Browse Source
This commit is contained in:
Sean Chalmers 2017-08-31 15:26:58 +10:00
parent b6d7786f92
commit 92711550f1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
level07/src/FirstApp/Main.hs
View File

@ -63,14 +63,13 @@ runApp = do
-- final Either value.
prepareAppReqs
:: IO (Either StartUpError Env)
prepareAppReqs = do -- runExceptT $ do
prepareAppReqs = do
cfg <- initConf
db <- initDB cfg
pure $ Env cfg db
where
toStartUpErr e =
error "toStartUpErr not reimplemented"
-- ExceptT . fmap (first e)
-- Take our possibly failing configuration/db functions with their unique
-- error types and turn them into a consistently typed ExceptT. We can then