diff --git a/elm-init.cabal b/elm-init.cabal
--- a/elm-init.cabal
+++ b/elm-init.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                elm-init
-version:             0.1.1.0
+version:             0.1.1.1
 synopsis:            Set up basic structure for an elm project
 description:
   Initialize a new empty elm project with some basic scaffolding according to 'https://github.com/evancz/elm-architecture-tutorial'.
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -336,16 +336,16 @@
 verifyWD wd =
   doesFileExist wd >>=
     bool
-      (error "The chosen directory is a file") -- I'm so sorry
       (doesDirectoryExist wd >>=
         bool
-          (return wd)
           (putStrLn "the chosen directory does not exist yet, shall I create it? [y/n]"
           >> getResp >>=
             (bool
-              makeDirs
-              (error "the chosen directory does not exist"))  -- I'm so sorry
-          >> return wd))
+              (error "the chosen directory does not exist")  -- I'm so sorry
+              makeDirs)
+          >> return wd)
+          (return wd))
+      (error "The chosen directory is a file") -- I'm so sorry
 
   where
     getResp :: IO Bool