From 182bae9c32bf8434e9df7509242a50c2f2c83c63 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 16 Apr 2007 19:15:24 +0000 Subject: [PATCH] Remove whitespace, mostly tabs, from string literals --- compiler/deSugar/Coverage.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index e1373d0..64e65a4 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -202,7 +202,7 @@ addTickHsExpr (ExplicitList ty es) = liftM2 ExplicitList (return ty) (mapM addTickLHsExpr es) -addTickHsExpr (ExplicitPArr {}) = error "addTickHsExpr: ExplicitPArr " +addTickHsExpr (ExplicitPArr {}) = error "addTickHsExpr: ExplicitPArr" addTickHsExpr (ExplicitTuple es box) = liftM2 ExplicitTuple (mapM addTickLHsExpr es) @@ -233,9 +233,9 @@ addTickHsExpr (HsTickPragma (file,(l1,c1),(l2,c2)) (L pos e0)) = do fn <- allocTickBox (ExternalBox (unpackFS file) (P l1 c1 l2 c2)) pos let (L _ e2) = fn $ L pos e1 return $ e2 -addTickHsExpr (PArrSeq {}) = error "addTickHsExpr: PArrSeq " -addTickHsExpr (HsSCC {}) = error "addTickHsExpr: HsSCC " -addTickHsExpr (HsCoreAnn {}) = error "addTickHsExpr: HsCoreAnn " +addTickHsExpr (PArrSeq {}) = error "addTickHsExpr: PArrSeq" +addTickHsExpr (HsSCC {}) = error "addTickHsExpr: HsSCC" +addTickHsExpr (HsCoreAnn {}) = error "addTickHsExpr: HsCoreAnn" addTickHsExpr e@(HsBracket {}) = return e addTickHsExpr e@(HsBracketOut {}) = return e addTickHsExpr e@(HsSpliceE {}) = return e -- 1.7.10.4