projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1889796
)
Remove whitespace, mostly tabs, from string literals
author
Ian Lynagh
<igloo@earth.li>
Mon, 16 Apr 2007 19:15:24 +0000
(19:15 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Mon, 16 Apr 2007 19:15:24 +0000
(19:15 +0000)
compiler/deSugar/Coverage.lhs
patch
|
blob
|
history
diff --git
a/compiler/deSugar/Coverage.lhs
b/compiler/deSugar/Coverage.lhs
index
e1373d0
..
64e65a4
100644
(file)
--- 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)
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)
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
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
addTickHsExpr e@(HsBracket {}) = return e
addTickHsExpr e@(HsBracketOut {}) = return e
addTickHsExpr e@(HsSpliceE {}) = return e