From bd36e510843a346b542c08109753485905e29531 Mon Sep 17 00:00:00 2001
From: Mahdi Dibaiee <mdibaiee@aol.com>
Date: Wed, 16 Aug 2017 13:30:29 +0430
Subject: [PATCH] (#101) fix: create project if directory does not exist

---
 src/common/HaskellDo/Toolbar/State.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/common/HaskellDo/Toolbar/State.hs b/src/common/HaskellDo/Toolbar/State.hs
index bbecc08..3390265 100644
--- a/src/common/HaskellDo/Toolbar/State.hs
+++ b/src/common/HaskellDo/Toolbar/State.hs
@@ -88,7 +88,7 @@ update (NewPath newPath) state = do
       isProject <- atRemote $ localIO $ doesFileExist (path </> "package.yaml")
       updateProjectAvailability newState' path isProject
     else do
-      let newState' = newState { directoryList = ([], []) }
+      let newState' = newState { directoryList = ([], []), createProject = True }
       return newState'
   where
     pathOrLastOrHome path = if null path