Main/Config.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

-- |
-- Module:      Main.Config
-- Copyright:   (c) 2014 Tomislav Viljetić
-- License:     BSD3
-- Maintainer:  Tomislav Viljetić <tomislav@viljetic.de>
--


module Main.Config (Config(..), defaultConfig) where

import Network.Wai.Handler.Warp (Port)


data Config = Config
    { cgroupRoot :: FilePath
    , httpPort :: Port
    }


-- |
--
-- > cgroupRoot = "/sys/fs/cgroup"
-- > httpPort = 8001
--
defaultConfig :: Config
defaultConfig = Config
    { cgroupRoot = "/sys/fs/cgroup"
    , httpPort = 8001
    }