gistfile1.hs

data Configuration =
    Configuration { path      :: String,
                    localhost     :: String,
                    remotehost    :: String,
                    isguest       :: Bool,
                    issuperuser   :: Bool,
                    currentdir    :: String,
                    homedir       :: String,
                    timeconnected :: Integer
                  }
loadConfig :: Configuration -> Configuration                  
loadConfig config = do 
  cf <- loadFromFile $ path config
  return cf