@@ -595,13 +595,22 @@ getRoot =
595 Licenses.bsd3
595 Licenses.bsd3
597 (Outline.ExposedList [])
597 (Outline.ExposedList [])
598− (Map.singleton Pkg.core C.anything)
598+ defaultDeps
599 Map.empty
599 Map.empty
600 C.defaultElm
600 C.defaultElm
602 return root
602 return root
605+defaultDeps :: Map.Map Pkg.Name C.Constraint
608+ [ (Pkg.core, C.anything)
609+ , (Pkg.json, C.anything)
610+ , (Pkg.html, C.anything)
606-- GET INTERPRETER
615-- GET INTERPRETER