From b7da6a23a4ae94e8ce376376df77401ee779f028 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 6 Jul 2019 17:33:40 -0400
Subject: sigs

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

(limited to 'DNSKey.hs')

diff --git a/DNSKey.hs b/DNSKey.hs
index 5c71c16..03767cf 100644
--- a/DNSKey.hs
+++ b/DNSKey.hs
@@ -5,8 +5,7 @@ import           Data.Binary.Get
 import           Data.Binary.Put
 import           Data.Bits
 import qualified Data.ByteString      as B
-import qualified Data.ByteString.Lazy as L
-import           Data.Word
+import           Data.Int
 
 -- RSA n e
 --  n = modulus
@@ -14,6 +13,7 @@ import           Data.Word
 data RSA = RSA Integer Integer
  deriving (Eq,Show)
 
+getRSA :: Int64 -> Get RSA
 getRSA len = do
     elen <- do
         tog <- get
@@ -27,6 +27,7 @@ getRSA len = do
         n = snd $ B.foldl' (\(c,a) w8 -> (c-1, a + 256^c * fromIntegral w8)) (nlen-1,0) nbs
     return $ RSA n e
 
+putRSA :: RSA -> PutM ()
 putRSA (RSA n e) = do
     if elen > 255 || elen==0
         then do
-- 
cgit v1.2.3