advancing in the monads transformers implementation

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