diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-06-10 12:40:37 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-13 23:35:19 -0400 |
| commit | 71e75ba6d892e8dfb6794f0ce70d01c9521b77c5 (patch) | |
| tree | 981c9a732d236220638d7d20262b7130251042de /compiler/stgSyn/CoreToStg.hs | |
| parent | 7bc5d6c6578ab9d60a83b81c7cc14819afef32ba (diff) | |
| download | haskell-71e75ba6d892e8dfb6794f0ce70d01c9521b77c5.tar.gz | |
Remove unused Unique field from StgFCallOp
Fixes #16696
Diffstat (limited to 'compiler/stgSyn/CoreToStg.hs')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs index 3187298425..6717ad9587 100644 --- a/compiler/stgSyn/CoreToStg.hs +++ b/compiler/stgSyn/CoreToStg.hs @@ -539,7 +539,7 @@ coreToStgApp _ f args ticks = do -- A regular foreign call. FCallId call -> ASSERT( saturated ) - StgOpApp (StgFCallOp call (idType f) (idUnique f)) args' res_ty + StgOpApp (StgFCallOp call (idType f)) args' res_ty TickBoxOpId {} -> pprPanic "coreToStg TickBox" $ ppr (f,args') _other -> StgApp f args' |