chore: Significantly restructure folder layout
This moves the various projects from "type-based" folders (such as "services" or "tools") into more appropriate semantic folders (such as "nix", "ops" or "web"). Deprecated projects (nixcon-demo & gotest) which only existed for testing/demonstration purposes have been removed. (Note: *all* builds are broken with this commit)
This commit is contained in:
parent
e52eed3cd4
commit
03bfe08e1d
110 changed files with 1 additions and 998 deletions
24
web/tazblog/blog/Main.hs
Normal file
24
web/tazblog/blog/Main.hs
Normal file
|
@ -0,0 +1,24 @@
|
|||
-- | 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)
|
Loading…
Add table
Add a link
Reference in a new issue