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

Fixes #63

Browse Source 
Add some more instruction regarding the logging function that is added in Level
07 AppM module.
This commit is contained in:
Sean Chalmers 2018-07-23 10:07:19 +10:00
parent 4482150006
commit 20b19b1cb7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Level07/AppM.hs
View File

@ -18,7 +18,13 @@ import Level07.Types.Error (Error)
-- are values, we're able to pass them around and place them on records like any -- are values, we're able to pass them around and place them on records like any
-- other type. -- other type.
data Env = Env data Env = Env
-- We will add a function to take some 'Text' input and print it to the
-- console as a crude form of logging. Construct a function that matches this
-- type so you can include it when you create the 'Env'.
{ envLoggingFn :: Text -> AppM () { envLoggingFn :: Text -> AppM ()
-- We're able to nest records to keep things neat and tidy.
, envConfig :: Conf , envConfig :: Conf
, envDB :: FirstAppDB , envDB :: FirstAppDB
} }