Skip to content

Instantly share code, notes, and snippets.

@bitemyapp
Forked from mclark1129/transformers.hs
Created June 30, 2017 16:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bitemyapp/093df8e874954312bcbd5cf12712eab4 to your computer and use it in GitHub Desktop.
Save bitemyapp/093df8e874954312bcbd5cf12712eab4 to your computer and use it in GitHub Desktop.
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
-- This is how I assume I get the filename from the config
fname <- ask filename
-- How am I supposed to provide the fname to loadFile so that I can end up with a ReaderT Config IO String?
return loadFile fname
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment