about summary refs log tree commit diff
path: root/services/tazblog/blog/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'services/tazblog/blog/Main.hs')
-rw-r--r--services/tazblog/blog/Main.hs24
1 files changed, 0 insertions, 24 deletions
diff --git a/services/tazblog/blog/Main.hs b/services/tazblog/blog/Main.hs
deleted file mode 100644
index 6074f96b7685..000000000000
--- a/services/tazblog/blog/Main.hs
+++ /dev/null
@@ -1,24 +0,0 @@
--- | Main module for the blog's web server
-module Main where
-
-import Control.Applicative ((<$>), (<*>))
-import Server (runBlog)
-import System.Environment (getEnv)
-
-data MainOptions
-  = MainOptions
-      { blogPort :: Int,
-        resourceDir :: String
-        }
-
-readOpts :: IO MainOptions
-readOpts =
-  MainOptions
-    <$> (fmap read $ getEnv "PORT")
-    <*> getEnv "RESOURCE_DIR"
-
-main :: IO ()
-main = do
-  opts <- readOpts
-  putStrLn ("tazblog starting on port " ++ (show $ blogPort opts))
-  runBlog (blogPort opts) (resourceDir opts)