elm-init 0.1.1.0 → 0.1.1.1

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• elm-init.cabal +1/−1
• src/Main.hs +5/−5

@@ -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'.

@@ -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