git.iko.soy/elk
on master help sign in
Switch to non-empty list for "source-directories" in `elm init`
5c849caEvan Czaplicki
terminal/src/Init.hs+2−1
compare with master
unifiedsplit
@@ -7,6 +7,7 @@ module Init
7
7
8import Prelude hiding (init)
8import Prelude hiding (init)
9import qualified Data.Map as Map
9import qualified Data.Map as Map
10+import qualified Data.NonEmptyList as NE
10import qualified System.Directory as Dir
11import qualified System.Directory as Dir
11
12
12import qualified Deps.Solver as Solver
13import qualified Deps.Solver as Solver
@@ -89,7 +90,7 @@ init =
89 in
90 in
90 do Dir.createDirectoryIfMissing True "src"
91 do Dir.createDirectoryIfMissing True "src"
91 Outline.write "." $ Outline.App $
92 Outline.write "." $ Outline.App $
92− Outline.AppOutline V.compiler ["src"] directs indirects Map.empty Map.empty
93+ Outline.AppOutline V.compiler (NE.List "src" []) directs indirects Map.empty Map.empty
93 putStrLn "Okay, I created it. Now read that link!"
94 putStrLn "Okay, I created it. Now read that link!"
94 return (Right ())
95 return (Right ())
95
96