sizeOfPointee :: (Storable a) => Ptr a -> Int
sizeOfPointee addr = sizeOf (typeHack addr)
  where typeHack = undefined  :: Ptr a -> a
sizeOfPointee :: (Storable a) => Ptr a -> Int
sizeOfPointee addr = sizeOf (typeHack addr)
  where typeHack = undefined  :: Ptr a -> a
sizeOfPointee addr = sizeOf (typeHack addr)
  where typeHack = undefined  :: Ptr a -> a