Replace mentions of {-# STRICT -#} with bangs in compress2
authorSebastian Graf <sgraf1337@gmail.com>
Mon, 31 Dec 2018 10:10:41 +0000 (11:10 +0100)
committerSebastian Graf <sgraf1337@gmail.com>
Tue, 1 Jan 2019 17:13:47 +0000 (18:13 +0100)
The pragma hasn't been recognised for a long time.
Replacing it with bangs will change program semantics to how it was
intended. The perf CI build is currently broken anyway, so this
shouldn't skew numbers too much.

real/compress2/Encode.hs
real/compress2/compress2.stdout

index 290e2fa..c3c2931 100644 (file)
@@ -14,12 +14,12 @@ data CodeEvent =
                  Clear deriving Show{-was:Text-}
 
 data CodeState = CS
-                 Int {-# STRICT #-}
-                 Int {-# STRICT #-}
-                 Int {-# STRICT #-}
-                 Int {-# STRICT #-}
-                 Int {-# STRICT #-}
-                 Int {-# STRICT #-}
+                 !Int
+                 !Int
+                 !Int
+                 !Int
+                 !Int
+                 !Int
 
 firstEnt    = 257       :: Int
 maxBits     = 16        :: Int
index 5c949b3..d62aa2e 100644 (file)
@@ -1 +1 @@
-8522868473445645791
+-787007679832202299