about summary refs log blame commit diff
path: root/services/tazblog/blog/Main.hs
blob: 6074f96b768590a43b005159d12816788532d1ad (plain) (tree)
1
2
3
4
5
6
7
                                          

                 
                                         

                                  
 




                             
 




                                   
 
             
         
                  
                                                                  
                                            
-- | 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)