diff options
Diffstat (limited to 'DNSKey.hs')
-rw-r--r-- | DNSKey.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -50,6 +50,7 @@ i2bs_unsized 0 = B.singleton 0 | |||
50 | i2bs_unsized i = B.reverse $ B.unfoldr (\i' -> if i' <= 0 then Nothing else Just (fromIntegral i', (i' `shiftR` 8))) i | 50 | i2bs_unsized i = B.reverse $ B.unfoldr (\i' -> if i' <= 0 then Nothing else Just (fromIntegral i', (i' `shiftR` 8))) i |
51 | {-# INLINE i2bs_unsized #-} | 51 | {-# INLINE i2bs_unsized #-} |
52 | 52 | ||
53 | {- | ||
53 | main = do | 54 | main = do |
54 | bs <- L.getContents | 55 | bs <- L.getContents |
55 | let rsa = runGet (getRSA (fromIntegral $ L.length bs)) bs | 56 | let rsa = runGet (getRSA (fromIntegral $ L.length bs)) bs |
@@ -57,3 +58,4 @@ main = do | |||
57 | rsa' = runGet (getRSA (fromIntegral $ L.length bs)) bs' | 58 | rsa' = runGet (getRSA (fromIntegral $ L.length bs)) bs' |
58 | print rsa | 59 | print rsa |
59 | print rsa' | 60 | print rsa' |
61 | -} | ||