From d16a7dcba44fe7f506987f46527409504f119d08 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 2 Nov 2014 18:57:23 +0000
Subject: Add HTTP interface.

---
 Main/Config.hs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 Main/Config.hs

(limited to 'Main/Config.hs')

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
+    }
-- 
cgit v1.2.3