Use Int instead of Word8 as tags to avoid inlining problems
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Nov 2010 19:27:10 +0000 (19:27 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Nov 2010 19:27:10 +0000 (19:27 +0000)
dph-base/Data/Array/Parallel/Base/Util.hs

index f9bdc70..e17db9b 100644 (file)
@@ -4,7 +4,7 @@ module Data.Array.Parallel.Base.Util (
 
 import Data.Word ( Word8 )
 
-type Tag = Word8
+type Tag = Int
 
 fromBool :: Bool -> Tag
 fromBool False = 0
@@ -17,10 +17,10 @@ toBool n | n == 0    = False
 {-# INLINE toBool #-}
 
 tagToInt :: Tag -> Int
-tagToInt = fromEnum
+tagToInt = id -- fromEnum
 {-# INLINE tagToInt #-}
 
 intToTag :: Int -> Tag
-intToTag = toEnum
+intToTag = id -- toEnum
 {-# INLINE intToTag #-}