@@ -68,11 +68,11 @@ instance Typeable UUID where
6868 typeOf _ = mkTyConApp (mkTyCon "Data.UUID.UUID") []
6969
7070instance Storable UUID where
71− sizeOf _ = (16 *) $ alignment (undefined :: CChar)
71+ sizeOf _ = (16 *) $ sizeOf (undefined :: CChar)
7272 alignment _ = alignment (undefined :: CChar)
7373
7474 peek psource = do
75− fp <- mallocForeignPtrArray 16
75+ fp <- mallocForeignPtrArray $ sizeOf (undefined :: UUID)
7676 withForeignPtr fp $ \pdest ->
7777 memcpy pdest psource $ fromIntegral $ sizeOf (undefined :: UUID)
7878 return $ U fp