@@ -55,7 +55,7 @@ load dir =
55 result <- Details.load style scope root
55 result <- Details.load style scope root
56 case result of
56 case result of
58− error "Ran into some problem loading elm.json details"
58+ error $ "Ran into some problem loading elm.json for " ++ dir
60 Right details ->
60 Right details ->
61 do omvar <- Details.loadObjects root details
61 do omvar <- Details.loadObjects root details
@@ -64,7 +64,7 @@ load dir =
64 mobjs <- readMVar omvar
64 mobjs <- readMVar omvar
65 case liftM2 (,) mdeps mobjs of
65 case liftM2 (,) mdeps mobjs of
66 Nothing ->
66 Nothing ->
67− error "Ran into some weird problem loading elm.json details"
67+ error $ "Ran into some weird problem loading elm.json for " ++ dir
69 Just (deps, objs) ->
69 Just (deps, objs) ->
70 return $ Artifacts (toInterfaces deps) objs
70 return $ Artifacts (toInterfaces deps) objs