@@ -238,9 +238,9 @@ read path =
238 Left err ->
238 Left err ->
239 throwBadJson (E.BadJson err)
239 throwBadJson (E.BadJson err)
241− Right project@(Pkg (PkgInfo _ _ _ _ _ deps tests _)) ->
241+ Right project@(Pkg (PkgInfo name _ _ _ _ deps tests _)) ->
242 do checkOverlap "dependencies" "test-dependencies" deps tests
242 do checkOverlap "dependencies" "test-dependencies" deps tests
243− pkgHasCore deps
243+ pkgHasCore name deps
244 return project
244 return project
246 Right project@(App (AppInfo _ srcDirs deps tests trans)) ->
246 Right project@(App (AppInfo _ srcDirs deps tests trans)) ->
@@ -287,9 +287,9 @@ appHasCoreAndJson pkgs =
287 throwBadJson E.NoAppCore
287 throwBadJson E.NoAppCore
290−pkgHasCore :: Map Name a -> Task.Task ()
290+pkgHasCore :: Name -> Map Name a -> Task.Task ()
291−pkgHasCore pkgs =
291+pkgHasCore name pkgs =
292− if Map.member Pkg.core pkgs
292+ if name == Pkg.core || Map.member Pkg.core pkgs
293 then return ()
293 then return ()
294 else throwBadJson E.NoPkgCore
294 else throwBadJson E.NoPkgCore