Rakka/Environment.hs

   1 module Rakka.Environment
   2     ( Environment(..)
   3     , setupEnv
   4     )
   5     where
   6
   7 import           Network
   8 import qualified Network.HTTP.Lucu.Config as LC
   9 import           Rakka.Storage
  10
  11
  12 data Environment = Environment {
  13       envLocalStateDir :: FilePath
  14     , envLucuConf      :: LC.Config
  15     , envStorage       :: Storage
  16     }
  17
  18
  19 setupEnv :: FilePath -> PortNumber -> IO Environment
  20 setupEnv lsdir portNum
  21     = do let lucuConf = LC.defaultConfig {
  22                           LC.cnfServerPort = PortNumber portNum
  23                         }
  24          storage <- mkStorage -- FIXME
  25          return $ Environment {
  26                       envLocalStateDir = lsdir
  27                     , envLucuConf      = lucuConf
  28                     , envStorage       = storage
  29                     }