@@ -55,18 +55,18 @@ data Tag
5555 | Port
5656
5757
58−parseDependencies :: Package.Name -> Text -> Either Error (Tag, PublicModule.Raw, [PublicModule.Raw])
59−parseDependencies pkgName sourceCode =
58+parseDependencies :: Maybe Package.Name -> Text -> Either Error (Tag, PublicModule.Raw, [PublicModule.Raw])
59+parseDependencies maybePkgName sourceCode =
6060 case Parse.run Parse.header sourceCode of
6161 Right header ->
62− Right $ getDeps pkgName header
62+ Right $ getDeps maybePkgName header
6363
6464 Left err ->
6565 Left (Error (A.map Error.Syntax err))
6666
6767
68−getDeps :: Package.Name -> Module.Header [Module.UserImport] -> (Tag, PublicModule.Raw, [PublicModule.Raw])
69−getDeps pkgName (Module.Header sourceTag name _ _ _ imports) =
68+getDeps :: Maybe Package.Name -> Module.Header [Module.UserImport] -> (Tag, PublicModule.Raw, [PublicModule.Raw])
69+getDeps maybePkgName (Module.Header sourceTag name _ _ _ imports) =
7070 let
7171 tag =
7272 case sourceTag of
@@ -75,7 +75,7 @@ getDeps pkgName (Module.Header sourceTag name _ _ _ imports) =
7575 Module.Effect _ -> Effect
7676
7777 deps =
78− if pkgName == Package.core then
78+ if maybePkgName == Just Package.core then
7979 map (fst . A.drop) imports
8080 else
8181 map (fst . A.drop) imports ++ map fst Imports.defaults