Working dotenv configuration

.gitignore

@@ -5,7 +5,7 @@
 Dockerfile
 WD
 bin/
-data/
+data/posts
 dist*
 docker-stack.yml
 result

data/.env.example

@@ -0,0 +1,2 @@
+APPLICATIONPORT="3000"
+BLOGTITLE="Anon's Blog"

sampu.cabal

@@ -16,12 +16,14 @@ executable sampu
     build-depends:      base
                       , bytestring >= 0.11.5.0
                       , commonmark >= 0.2.4
+                      , dotenv     >= 0.11.0.0
                       , lucid      >= 2.11.0
                       , twain      >= 2.1.0.0
                       , wai-extra  >= 3.0 && < 3.2
                       , warp       == 3.3.25
     hs-source-dirs:     src
     other-modules:
+      Core.Configuration
       Core.Handlers
       Core.HTTP
       Core.Rendering

src/Core/Configuration.hs

@@ -0,0 +1,17 @@
+module Core.Configuration where
+
+import Configuration.Dotenv
+import System.Environment (getEnv, lookupEnv)
+
+main :: IO ()
+main = do
+  envFile <- lookupEnv "NOENVFILE"
+  case envFile of
+    Nothing  -> loadFile defaultConfig
+    _        -> putStrLn "Not using dotenv"
+
+appPort :: IO String
+appPort = getEnv "APPLICATIONPORT"
+
+appTitle :: IO String
+appTitle = getEnv "BLOGTITLE"

src/Core/HTTP.hs

@@ -1,5 +1,6 @@
 module Core.HTTP where
 
+import qualified Core.Configuration as Conf
 import qualified Core.Handlers      as Handle
 
 import Network.Wai.Middleware.RequestLogger (logStdoutDev)
@@ -8,7 +9,8 @@ import Web.Twain
 
 main :: IO ()
 main = do
-  run appPort $
+  port <- Conf.appPort
+  run (read port :: Int) $
     foldr ($) (notFound Handle.missing) app
 
 -- Combine our Preprocessor Middlewares and Routes to create an App
@@ -25,7 +27,3 @@ routes =
   [ get "/" Handle.index
   , get "/echo/:testParam" Handle.testRoute
   ]
-
--- This will be replaced with getEnv located in Configuration
-appPort :: Port
-appPort = 3000

src/Main.hs

@@ -1,6 +1,7 @@
 module Main where
 
 import qualified Core.HTTP          as Core
+import qualified Core.Configuration as Conf
 
 main :: IO ()
-main = Core.main
+main = Conf.main >>= (\_ -> Core.main)