@@ -50,12 +50,13 @@ loadRepl =
50load :: FilePath -> IO Artifacts
50load :: FilePath -> IO Artifacts
52 BW.withScope $ \scope ->
52 BW.withScope $ \scope ->
53+ do putStrLn $ "Loading " ++ dir </> "elm.json"
53− do style <- Reporting.terminal
54+ style <- Reporting.terminal
54 root <- fmap (</> dir) Dir.getCurrentDirectory
55 root <- fmap (</> dir) Dir.getCurrentDirectory
55 result <- Details.load style scope root
56 result <- Details.load style scope root
56 case result of
57 case result of
58− error $ "Ran into some problem loading elm.json for " ++ dir
59+ error $ "Ran into some problem loading elm.json\nTry running `elm make` in: " ++ dir
60 Right details ->
61 Right details ->
61 do omvar <- Details.loadObjects root details
62 do omvar <- Details.loadObjects root details
@@ -64,7 +65,7 @@ load dir =
64 mobjs <- readMVar omvar
65 mobjs <- readMVar omvar
65 case liftM2 (,) mdeps mobjs of
66 case liftM2 (,) mdeps mobjs of
66 Nothing ->
67 Nothing ->
67− error $ "Ran into some weird problem loading elm.json for " ++ dir
68+ error $ "Ran into some weird problem loading elm.json\nTry running `elm make` in: " ++ dir
69 Just (deps, objs) ->
70 Just (deps, objs) ->
70 return $ Artifacts (toInterfaces deps) objs
71 return $ Artifacts (toInterfaces deps) objs