diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-08-26 17:56:06 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-26 20:28:54 +0200 |
| commit | 89d25b9e7f8b3a40c58916700cd8adfbd9dd4f19 (patch) | |
| tree | 8783337d8ffbd56a301d6337d4d2bd842aa2b0d8 | |
| parent | de476e93dd6d3c43724a2c1d1b72f0b6e01578bc (diff) | |
| download | haskell-89d25b9e7f8b3a40c58916700cd8adfbd9dd4f19.tar.gz | |
BinIface: Clean up whitespace
| -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{ |