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

Updated with the correct solution. Thanks!