[5.0-beta] Split into library and executable

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