From a2fb53d788ced698c13a0ecf5a2f0f8cbc884f8a Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Fri, 12 Oct 2018 15:18:47 +0100
Subject: [PATCH] Create posts directory if needed

---
 Main.hs | 3 +++
 1 file changed, 3 insertions(+)

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"
 
-- 
2.30.2