Fix bug in reboxing code
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 21 Aug 2009 05:29:58 +0000 (05:29 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 21 Aug 2009 05:29:58 +0000 (05:29 +0000)
dph-base/Data/Array/Parallel/Base/Rebox.hs

index cbdd5d2..5d3f22c 100644 (file)
@@ -94,7 +94,7 @@ instance Rebox a => Rebox (MaybeS a) where
   dseq NothingS  y = y
   dseq (JustS x) y = dseq x y
 
-newtype Box a = Box a
+data Box a = Box a
 
 instance Rebox (Box a) where
   {-# INLINE [0] rebox #-}