From 453e9a6f35b84bc7859d565f637c90748b90a398 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Mon, 1 Jun 2015 13:02:53 +0100
Subject: [PATCH] [number] internal serialize, unconditionally zero the buffer.

---
 Crypto/Number/Serialize/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/Number/Serialize/Internal.hs b/Crypto/Number/Serialize/Internal.hs
index a819e6d..2b56bfd 100644
--- a/Crypto/Number/Serialize/Internal.hs
+++ b/Crypto/Number/Serialize/Internal.hs
@@ -44,7 +44,7 @@ i2ospOf m ptr ptrSz
     | m < 0      = return 0
     | ptrSz < sz = return 0
     | otherwise  = do
-        if padSz > 0 then memSet ptr 0 padSz else return ()
+        memSet ptr 0 ptrSz
         fillPtr (ptr `plusPtr` padSz) sz m
         return ptrSz
   where