@@ -140,8 +140,8 @@ getExposed info =
140check :: Project -> Task.Task ()
140check :: Project -> Task.Task ()
141check project =
141check project =
142 case project of
142 case project of
143− Pkg (PkgInfo _ _ _ _ _ deps _ _) ->
143+ Pkg (PkgInfo name _ _ _ _ deps _ _) ->
144− if Map.member Pkg.core deps
144+ if name == Pkg.core || Map.member Pkg.core deps
145 then return ()
145 then return ()
146 else throwBadJson E.NoPkgCore
146 else throwBadJson E.NoPkgCore