@@ -238,9 +238,9 @@ read path =
238238 Left err ->
239239 throwBadJson (E.BadJson err)
240240
241− Right project@(Pkg (PkgInfo _ _ _ _ _ deps tests _)) ->
241+ Right project@(Pkg (PkgInfo name _ _ _ _ deps tests _)) ->
242242 do checkOverlap "dependencies" "test-dependencies" deps tests
243− pkgHasCore deps
243+ pkgHasCore name deps
244244 return project
245245
246246 Right project@(App (AppInfo _ srcDirs deps tests trans)) ->
@@ -287,9 +287,9 @@ appHasCoreAndJson pkgs =
287287 throwBadJson E.NoAppCore
288288
289289
290−pkgHasCore :: Map Name a -> Task.Task ()
291−pkgHasCore pkgs =
292− if Map.member Pkg.core pkgs
290+pkgHasCore :: Name -> Map Name a -> Task.Task ()
291+pkgHasCore name pkgs =
292+ if name == Pkg.core || Map.member Pkg.core pkgs
293293 then return ()
294294 else throwBadJson E.NoPkgCore
295295