diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2012-03-17 11:17:38 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2012-05-15 15:14:03 +0100 |
| commit | 7950f46c8698aa813e6f1c9de9c8b5c7fe57ed93 (patch) | |
| tree | d333e6498f3373304a1577a685992b211720e4a6 /compiler/stgSyn/StgSyn.lhs | |
| parent | c08df442b0391f3a0d26e17ce05f635dedb1467b (diff) | |
| download | haskell-7950f46c8698aa813e6f1c9de9c8b5c7fe57ed93.tar.gz | |
Remove StgTypeArg since it was never used and is probably broken anyway
Diffstat (limited to 'compiler/stgSyn/StgSyn.lhs')
| -rw-r--r-- | compiler/stgSyn/StgSyn.lhs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs index 5270aa9a47..d87e4559a7 100644 --- a/compiler/stgSyn/StgSyn.lhs +++ b/compiler/stgSyn/StgSyn.lhs @@ -35,7 +35,7 @@ module StgSyn ( -- utils stgBindHasCafRefs, stgArgHasCafRefs, stgRhsArity, - isDllConApp, isStgTypeArg, + isDllConApp, stgArgType, pprStgBinding, pprStgBindings, pprStgBindingsWithSRTs, @@ -99,11 +99,6 @@ data GenStgBinding bndr occ data GenStgArg occ = StgVarArg occ | StgLitArg Literal - | StgTypeArg Type -- For when we want to preserve all type info - -isStgTypeArg :: StgArg -> Bool -isStgTypeArg (StgTypeArg _) = True -isStgTypeArg _ = False -- | Does this constructor application refer to -- anything in a different *Windows* DLL? @@ -144,7 +139,6 @@ isAddrRep _ = False stgArgType :: StgArg -> Type stgArgType (StgVarArg v) = idType v stgArgType (StgLitArg lit) = literalType lit -stgArgType (StgTypeArg _) = panic "stgArgType called on stgTypeArg" \end{code} %************************************************************************ @@ -683,7 +677,6 @@ instance (Outputable bndr, Outputable bdee, Ord bdee) pprStgArg :: (Outputable bdee) => GenStgArg bdee -> SDoc pprStgArg (StgVarArg var) = ppr var pprStgArg (StgLitArg con) = ppr con -pprStgArg (StgTypeArg ty) = char '@' <+> ppr ty pprStgExpr :: (Outputable bndr, Outputable bdee, Ord bdee) => GenStgExpr bndr bdee -> SDoc |