diff options
author | joe <joe@jerkface.net> | 2016-04-14 14:48:26 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-04-14 14:48:26 -0400 |
commit | 13f3a96ae0a1417e15c9f969737c512ec71642f9 (patch) | |
tree | 2f5ce83fb1f4e18ce4a5020c62dbf449859912e0 /DNSKey.hs | |
parent | 71469bfd192b3be62b5c51aeeba37620785bda4b (diff) |
Updated build.
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 | -} | ||