diff options
Diffstat (limited to 'Lazymail.hs')
| -rw-r--r-- | Lazymail.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Lazymail.hs b/Lazymail.hs index 70a6b96..33a9c11 100644 --- a/Lazymail.hs +++ b/Lazymail.hs @@ -11,8 +11,8 @@ module Lazymail where import Control.Monad.Reader import Control.Monad.State -import Config(LazymailConfig, customConfig) -import State(LazymailState, initialState) +import Config +import State {- Lazymail monad is a ReaderT around a StateT with IO at the bottom of the - stack. @@ -22,5 +22,5 @@ type Lazymail = ReaderT LazymailConfig (StateT LazymailState IO) run :: Lazymail a -> IO (a, LazymailState) run k = let config = customConfig - state = initialState + state = initialState { basePath = initialPath config } in runStateT (runReaderT k config) state
\ No newline at end of file |