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:
bf61a20
)
Make sL strict in /both/ arguments to L
author
Ian Lynagh
<igloo@earth.li>
Thu, 24 Jan 2008 15:12:23 +0000
(15:12 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 24 Jan 2008 15:12:23 +0000
(15:12 +0000)
compiler/parser/Parser.y.pp
patch
|
blob
|
history
diff --git
a/compiler/parser/Parser.y.pp
b/compiler/parser/Parser.y.pp
index
167c8b6
..
7104a0d
100644
(file)
--- a/
compiler/parser/Parser.y.pp
+++ b/
compiler/parser/Parser.y.pp
@@
-1977,7
+1977,7
@@
comb4 a b c d = combineSrcSpans (getLoc a) $ combineSrcSpans (getLoc b) $
-- strict constructor version:
{-# INLINE sL #-}
sL :: SrcSpan -> a -> Located a
-sL span a = span `seq` L span a
+sL span a = span `seq` a `seq` L span a
-- Make a source location for the file. We're a bit lazy here and just
-- make a point SrcSpan at line 1, column 0. Strictly speaking we should