From: simonpj <unknown>
Date: Thu, 6 May 2004 12:25:49 +0000 (+0000)
Subject: [project @ 2004-05-06 12:25:49 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1862
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f904833cbd502b2b28756e97bab6485e94617fac;p=ghc-hetmet.git

[project @ 2004-05-06 12:25:49 by simonpj]
Fix (head []) value for src span in mkSimpleMatch
---

diff --git a/ghc/compiler/hsSyn/HsUtils.lhs b/ghc/compiler/hsSyn/HsUtils.lhs
index 3b61f8a..b864e16 100644
--- a/ghc/compiler/hsSyn/HsUtils.lhs
+++ b/ghc/compiler/hsSyn/HsUtils.lhs
@@ -54,8 +54,12 @@ mkHsPar e = L (getLoc e) (HsPar e)
 
 mkSimpleMatch :: [LPat id] -> LHsExpr id -> Type -> LMatch id
 mkSimpleMatch pats rhs rhs_ty
-  = addCLoc (head pats) rhs $
+  = L loc $
     Match pats Nothing (GRHSs (unguardedRHS rhs) [] rhs_ty)
+  where
+    loc = case pats of
+		[]      -> getLoc rhs
+		(pat:_) -> combineSrcSpans (getLoc pat) (getLoc rhs)
 
 unguardedRHS :: LHsExpr id -> [LGRHS id]
 unguardedRHS rhs@(L loc _) = [L loc (GRHS [L loc (ResultStmt rhs)])]