diff options
| -rw-r--r-- | compiler/iface/BinIface.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index 9d3ef75bec..3c1633d94f 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -23,9 +23,9 @@ module BinIface ( import TcRnMonad import TyCon import ConLike -import DataCon (dataConName, dataConWorkId, dataConTyCon) +import DataCon ( dataConName, dataConWorkId, dataConTyCon ) import PrelInfo ( knownKeyNames ) -import Id (idName, isDataConWorkId_maybe) +import Id ( idName, isDataConWorkId_maybe ) import TysWiredIn import IfaceEnv import HscTypes @@ -304,7 +304,6 @@ serialiseName bh name _ = do knownKeyNamesMap :: UniqFM Name knownKeyNamesMap = listToUFM_Directly [(nameUnique n, n) | n <- knownKeyNames] - -- See Note [Symbol table representation of names] putName :: BinDictionary -> BinSymbolTable -> BinHandle -> Name -> IO () putName _dict BinSymbolTable{ |