From 13f3a96ae0a1417e15c9f969737c512ec71642f9 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 14 Apr 2016 14:48:26 -0400
Subject: Updated build.

---
 DNSKey.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'DNSKey.hs')

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'
+-}
-- 
cgit v1.2.3