diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Locales.hs | 2 | ||||
-rw-r--r-- | src/Main.hs | 38 |
2 files changed, 1 insertions, 39 deletions
diff --git a/src/Locales.hs b/src/Locales.hs index b387171abe63..e4aaca5b1ef8 100644 --- a/src/Locales.hs +++ b/src/Locales.hs @@ -14,7 +14,7 @@ import BlogDB (BlogLang (..)) data BlogError = NotFound | DBError -version = "4.2" +version = "5.0-beta" allLang = [EN, DE] diff --git a/src/Main.hs b/src/Main.hs deleted file mode 100644 index a50ca67ed17d..000000000000 --- a/src/Main.hs +++ /dev/null @@ -1,38 +0,0 @@ -module Main where - -import Control.Applicative (pure, (<$>), (<*>)) -import Control.Exception (bracket) -import Data.Acid -import Data.Acid.Local (createCheckpointAndClose) -import Options - -import BlogDB (initialBlogState) -import Locales (version) -import Server - -{- Server -} - -data MainOptions = MainOptions { - optState :: String, - optPort :: Int, - optRes :: String -} - -instance Options MainOptions where - defineOptions = pure MainOptions - <*> simpleOption "statedir" "/var/tazblog/" - "Directory in which the BlogState is located." - <*> simpleOption "port" 8000 - "Port to run on. Default is 8000." - <*> simpleOption "res" "/usr/share/tazblog/res" - "Resources folder location." - -main :: IO() -main = do - putStrLn ("TazBlog " ++ version ++ " in Haskell starting") - runCommand $ \opts args -> - bracket (openLocalStateFrom (optState opts ++ "BlogState") initialBlogState) - createCheckpointAndClose - (\acid -> runBlog acid (optPort opts) (optRes opts)) - - |