Updated build.

1 files changed, 2 insertions, 0 deletions

diff --git a/DNSKey.hs b/DNSKey.hs
index 38d336d..5c71c16 100644
--- a/DNSKey.hs
+++ b/DNSKey.hs
@@ -50,6 +50,7 @@ i2bs_unsized 0 = B.singleton 0
 i2bs_unsized i = B.reverse $ B.unfoldr (\i' -> if i' <= 0 then Nothing else Just (fromIntegral i', (i' `shiftR` 8))) i
 {-# INLINE i2bs_unsized #-}
 
+{-
 main = do
     bs <- L.getContents
     let rsa = runGet (getRSA (fromIntegral $ L.length bs)) bs
@@ -57,3 +58,4 @@ main = do
         rsa' = runGet (getRSA (fromIntegral $ L.length bs)) bs'
     print rsa
     print rsa'
+-}