diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2020-06-18 02:25:59 +1000 |
|---|---|---|
| committer | Josh Meredith <joshmeredith2008@gmail.com> | 2020-06-18 02:25:59 +1000 |
| commit | 422453180c06d5dfbe8010f5c5a9749bfc6e4513 (patch) | |
| tree | be155d774c840db973c0ed4d158c5b6252e86e3a /compiler/GHC/IfaceToCore.hs | |
| parent | ad7448d3620984e33ce10330220a1acd9727da4c (diff) | |
| download | haskell-wip/coreField.tar.gz | |
Add the extensible data to the interface after running the last phasewip/coreField
Diffstat (limited to 'compiler/GHC/IfaceToCore.hs')
| -rw-r--r-- | compiler/GHC/IfaceToCore.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/IfaceToCore.hs b/compiler/GHC/IfaceToCore.hs index 19217aceb4..353f9e4569 100644 --- a/compiler/GHC/IfaceToCore.hs +++ b/compiler/GHC/IfaceToCore.hs @@ -83,8 +83,6 @@ import qualified BooleanFormula as BF import Control.Monad import qualified Data.Map as Map -import Data.IORef -import GHC.Types.Name.Cache {- This module takes @@ -1862,7 +1860,7 @@ tcIfaceBinding mod loc ibind = do tcIfaceBinding' :: Module -> SrcSpan -> (Bool, IfaceBinding) -> IfL (Bind Id) tcIfaceBinding' _ _ (_p, (IfaceRec _)) = panic "tcIfaceBinding: expected NonRec at top level" -tcIfaceBinding' mod loc b@(p, IfaceNonRec (IfLetBndr fs ty info ji) rhs) = do +tcIfaceBinding' _mod _loc _b@(_p, IfaceNonRec (IfLetBndr fs ty _info ji) rhs) = do name <- lookupIfaceTop (mkVarOccFS fs) |