diff options
author | tv <tv@shackspace.de> | 2014-11-02 18:57:23 +0000 |
---|---|---|
committer | tv <tv@shackspace.de> | 2014-11-03 19:58:31 +0000 |
commit | d16a7dcba44fe7f506987f46527409504f119d08 (patch) | |
tree | f58fe7cc3f7e4d00bfc571592912c90ea55d2353 /Main/Config.hs | |
parent | 049c6cf300d451d058e1465f44fa1b1311988ac8 (diff) |
Add HTTP interface.
Diffstat (limited to 'Main/Config.hs')
-rw-r--r-- | Main/Config.hs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Main/Config.hs b/Main/Config.hs new file mode 100644 index 0000000..47c12ba --- /dev/null +++ b/Main/Config.hs @@ -0,0 +1,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 + } |