Permalink
Browse files

Merge pull request #4 from meiersi/fix-remove-unnecessary-unpack

remove unnecessary UNPACK pragma
  • Loading branch information...
2 parents 0e9c87f + 08afa18 commit 050a5c308104b6e934e71ccfbebe111b9c8362c3 @elliottt elliottt committed Apr 27, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Data/Serialize/Put.hs
@@ -84,8 +84,8 @@ import qualified Data.Tree as T
------------------------------------------------------------------------
--- XXX Strict in buffer only.
-data PairS a = PairS a {-# UNPACK #-}!Builder
+-- XXX Strict in builder only.
+data PairS a = PairS a !Builder
sndS :: PairS a -> Builder
sndS (PairS _ b) = b

0 comments on commit 050a5c3

Please sign in to comment.