storablePtrZero = \ (Ptr p ) -> let
     x :: a
     x = undefined
     byteSize :: Int
     byteSize = sizeOf x
    in
    if byteSize /= 0 then
         do
            let q = Addr p
            setAddr q byteSize (0 :: Word8)
          else return ()
storablePtrZero = \ (Ptr p ) -> let
     x :: a
     x = undefined
     byteSize :: Int
     byteSize = sizeOf x
    in
    if byteSize /= 0 then
         do
            let q = Addr p
            setAddr q byteSize (0 :: Word8)
          else return ()
storablePtrZero = \ (Ptr p ) -> let
     x :: a
     x = undefined
     byteSize :: Int
     byteSize = sizeOf x
    in
    if byteSize /= 0 then
         do
            let q = Addr p
            setAddr q byteSize (0 :: Word8)
          else return ()