Fix CStorable default implementation

maurer · Jan 17, 2015 · 495c2de · 495c2de
1 parent 03165fd
commit 495c2de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Foreign/CStorable/TypeClass.hs b/Foreign/CStorable/TypeClass.hs
@@ -80,4 +80,4 @@ class CStorable a where
 
   cSizeOf            :: a -> Int
   default cSizeOf    :: (Generic a, GCStorable (Rep a)) => a -> Int
-  cSizeOf            = gcAlignment . from
+  cSizeOf            = gcSizeOf . from