git.iko.soy/elk
on master help sign in
Small tweak to handle (Maybe Name) in Src.Modules
e79abeeEvan Czaplicki
compiler/src/Reporting/Render/Type/Localizer.hs+2−2
compare with master
unifiedsplit
@@ -93,9 +93,9 @@ fromNames names =
93
93
94
94
95fromModule :: Src.Module -> Localizer
95fromModule :: Src.Module -> Localizer
96−fromModule (Src.Module name _ imports _ _ _ _ _) =
96+fromModule modul@(Src.Module _ _ imports _ _ _ _ _) =
97 Localizer $ Map.fromList $
97 Localizer $ Map.fromList $
98− (name, Import Nothing All) : map toPair imports
98+ (Src.getName modul, Import Nothing All) : map toPair imports
99
99
100
100
101toPair :: Src.Import -> (Name.Name, Import)
101toPair :: Src.Import -> (Name.Name, Import)