@@ -68,11 +68,11 @@ instance Typeable UUID where
68 typeOf _ = mkTyConApp (mkTyCon "Data.UUID.UUID") []
68 typeOf _ = mkTyConApp (mkTyCon "Data.UUID.UUID") []
70instance Storable UUID where
70instance Storable UUID where
71− sizeOf _ = (16 *) $ alignment (undefined :: CChar)
71+ sizeOf _ = (16 *) $ sizeOf (undefined :: CChar)
72 alignment _ = alignment (undefined :: CChar)
72 alignment _ = alignment (undefined :: CChar)
74 peek psource = do
74 peek psource = do
75− fp <- mallocForeignPtrArray 16
75+ fp <- mallocForeignPtrArray $ sizeOf (undefined :: UUID)
76 withForeignPtr fp $ \pdest ->
76 withForeignPtr fp $ \pdest ->
77 memcpy pdest psource $ fromIntegral $ sizeOf (undefined :: UUID)
77 memcpy pdest psource $ fromIntegral $ sizeOf (undefined :: UUID)
78 return $ U fp
78 return $ U fp