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/StgLint.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/StgLint.lhs')
| -rw-r--r-- | compiler/stgSyn/StgLint.lhs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgLint.lhs b/compiler/stgSyn/StgLint.lhs index 58f9f3b69e..8f8aa3363f 100644 --- a/compiler/stgSyn/StgLint.lhs +++ b/compiler/stgSyn/StgLint.lhs @@ -83,7 +83,6 @@ lintStgBindings whodunnit binds lintStgArg :: StgArg -> LintM (Maybe Type) lintStgArg (StgLitArg lit) = return (Just (literalType lit)) lintStgArg (StgVarArg v) = lintStgVar v -lintStgArg a = pprPanic "lintStgArg" (ppr a) lintStgVar :: Id -> LintM (Maybe Kind) lintStgVar v = do checkInScope v |