Skip to content

Instantly share code, notes, and snippets.

@mclark1129

mclark1129/transformers.hs

Last active June 30, 2017 17:29
Show Gist options
  • Save mclark1129/e75ee3c23749e8c216501ea8291b7998 to your computer and use it in GitHub Desktop.
Save mclark1129/e75ee3c23749e8c216501ea8291b7998 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
transformers.hs
module Transformer where
import Control.Monad.Reader
import Control.Monad.Trans
data Config = Config { filename :: String } deriving (Show)
c = Config { filename = "a.txt" }
loadFile :: ReaderT Config IO String
loadFile = do
fname <- asks filename
liftIO $ readFile fname
@mclark1129
Copy link
Author

Updated with the correct solution. Thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment