diff options
Diffstat (limited to 'services/tazblog/blog/Main.hs')
-rw-r--r-- | services/tazblog/blog/Main.hs | 24 |
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) |