module Rakka.Environment
    ( Environment(..)
    , setupEnv
    )
    where

import           Network
import qualified Network.HTTP.Lucu.Config as LC
import           Rakka.Storage


data Environment = Environment {
      envLocalStateDir :: FilePath
    , envLucuConf      :: LC.Config
    , envStorage       :: Storage
    }


setupEnv :: FilePath -> PortNumber -> IO Environment
setupEnv lsdir portNum
    = do let lucuConf = LC.defaultConfig {
                          LC.cnfServerPort = PortNumber portNum
                        }
         storage <- mkStorage -- FIXME
         return $ Environment {
                      envLocalStateDir = lsdir
                    , envLucuConf      = lucuConf
                    , envStorage       = storage
                    }