Makes Cell data strict
parent
5a3044e09c
commit
0377999561
|
@ -17,8 +17,8 @@ fixM f x = f x >>= \x' -> if x' == x then return x else fixM f x'
|
||||||
setBits :: Data.Word.Word16 -> [Data.Word.Word16] -> Data.Word.Word16
|
setBits :: Data.Word.Word16 -> [Data.Word.Word16] -> Data.Word.Word16
|
||||||
setBits = Data.List.foldl' (Data.Bits..|.)
|
setBits = Data.List.foldl' (Data.Bits..|.)
|
||||||
|
|
||||||
data Cell = Fixed Data.Word.Word16
|
data Cell = Fixed {-# UNPACK #-} !Data.Word.Word16
|
||||||
| Possible Data.Word.Word16
|
| Possible {-# UNPACK #-} !Data.Word.Word16
|
||||||
deriving (Show, Eq)
|
deriving (Show, Eq)
|
||||||
|
|
||||||
type Row = [Cell]
|
type Row = [Cell]
|
||||||
|
|
Loading…
Reference in New Issue