Commit 0f87af1a authored by Edsko de Vries's avatar Edsko de Vries
Browse files

Use defaultRenaming for pkgs without renaming info

parent 61fdb06c
......@@ -310,10 +310,7 @@ defaultRenaming :: ModuleRenaming
defaultRenaming = ModuleRenaming True []
lookupRenaming :: Package pkg => pkg -> Map PackageName ModuleRenaming -> ModuleRenaming
lookupRenaming pkg rns =
Map.findWithDefault
(error ("lookupRenaming: missing renaming for " ++ display (packageName pkg)))
(packageName pkg) rns
lookupRenaming = Map.findWithDefault defaultRenaming . packageName
instance Binary ModuleRenaming where
......@@ -441,7 +438,7 @@ instance Text ModuleReexport where
parse = do
mpkgname <- Parse.option Nothing $ do
pkgname <- parse
pkgname <- parse
_ <- Parse.char ':'
return (Just pkgname)
origname <- parse
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment