Skip to content

Commit

Permalink
fix location of scoped modulePathName
Browse files Browse the repository at this point in the history
  • Loading branch information
janmasrovira committed Sep 9, 2024
1 parent 372375e commit bfe4704
Showing 1 changed file with 3 additions and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -612,7 +612,7 @@ checkImportNoPublic ::
checkImportNoPublic import_@Import {..} = do
massert (_importPublic == NoPublic)
smodule <- readScopeModule import_
let sname :: S.TopModulePath = smodule ^. scopedModulePath
let sname :: S.TopModulePath = set nameConcrete _importModulePath (smodule ^. scopedModulePath)
sname' :: S.Name = set S.nameConcrete (topModulePathToName _importModulePath) sname
scopedModule :: ScopedModule = set scopedModuleName sname' smodule
exportInfoOriginal = scopedModule ^. scopedModuleExportInfo
Expand All @@ -638,7 +638,8 @@ checkImportNoPublic import_@Import {..} = do
_importAsName = qual',
_importOpen = importOpen',
_importUsingHiding = usingHiding',
..
_importKw,
_importPublic
}
where
addModuleToScope :: ScopedModule -> Sem r ()
Expand Down

0 comments on commit bfe4704

Please sign in to comment.