From: keithw <unknown>
Date: Thu, 6 Jul 2000 17:22:40 +0000 (+0000)
Subject: [project @ 2000-07-06 17:22:40 by keithw]
X-Git-Tag: Approximately_9120_patches~4066
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a75df25adcc0717a49ed4c1772ab989e508f4610;p=ghc-hetmet.git

[project @ 2000-07-06 17:22:40 by keithw]
Fix obvious typo (pprStgARg for pprStgArg).  Clearly not a frequently-
tickled part of the compiler!
---

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 0b429a0..fabedee 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -607,7 +607,7 @@ pprStgArg :: (Outputable bdee) => GenStgArg bdee -> SDoc
 
 pprStgArg (StgVarArg var) = ppr var
 pprStgArg (StgLitArg con) = ppr con
-pprStgARg (StgTypeArg ty) = char '@' <+> ppr ty
+pprStgArg (StgTypeArg ty) = char '@' <+> ppr ty
 \end{code}
 
 \begin{code}