From e11dc798a53f37e95ed27040710ac6a6de31f4ec Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Aug 2014 16:20:25 +0200 Subject: [PATCH] create data directory recursively --- Handler/Activate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Activate.hs b/Handler/Activate.hs index d81761f..b8b14fa 100644 --- a/Handler/Activate.hs +++ b/Handler/Activate.hs @@ -14,6 +14,6 @@ getActivateR token = do redirect $ HomeR Just x -> do userId <- runDB $ insert $ tokenUser (entityVal x) - liftIO $ createDirectory $ "data" (unpack $ extractKey userId) + liftIO $ createDirectoryIfMissing True $ "data" (unpack $ extractKey userId) setMessage $ "User activated" redirect $ HomeR