From: Luke Lau <luke_lau@icloud.com>
Date: Fri, 12 Oct 2018 14:18:47 +0000 (+0100)
Subject: Create posts directory if needed
X-Git-Url: https://git.lukelau.me/?p=blog.git;a=commitdiff_plain;h=a2fb53d788ced698c13a0ecf5a2f0f8cbc884f8a

Create posts directory if needed
---

diff --git a/Main.hs b/Main.hs
index b7a6847..24e2017 100644
--- a/Main.hs
+++ b/Main.hs
@@ -11,6 +11,7 @@ import qualified Data.Map.Lazy as Map
 import Data.Maybe
 import Data.Ord
 import Data.IORef
+import Control.Exception
 import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Class
@@ -24,6 +25,7 @@ import Lucid.Base
 import System.Directory
 import System.FilePath
 import System.Random
+import System.IO.Error
 import Network.HTTP.Types
 
 type Sessions = Map.Map T.Text T.Text
@@ -68,6 +70,7 @@ logins = Map.fromList
 main :: IO ()
 main = do
   preserve <- mkPreserve mempty
+  createDirectory "posts" `catch` (\e -> unless (isAlreadyExistsError e) (throw e))
   scottyT 3000 preserve $ do
     get "/style.css" $ file "style.css"