diff options
Diffstat (limited to 'Data/OpenPGP/Internal.hs')
| -rw-r--r-- | Data/OpenPGP/Internal.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/Data/OpenPGP/Internal.hs b/Data/OpenPGP/Internal.hs index f9a8803..a4cdc10 100644 --- a/Data/OpenPGP/Internal.hs +++ b/Data/OpenPGP/Internal.hs | |||
| @@ -77,7 +77,6 @@ integerToBS i = BS.unsafeCreate (I# (word2Int# (sizeInBaseInteger i 256#))) $ \p | |||
| 77 | cnt <- exportIntegerToAddr i addr 1# -- 1# for big-endian (use 0# for little-endian) | 77 | cnt <- exportIntegerToAddr i addr 1# -- 1# for big-endian (use 0# for little-endian) |
| 78 | return () | 78 | return () |
| 79 | 79 | ||
| 80 | {- | ||
| 81 | getBigNumLE :: BS.ByteString -> Integer | 80 | getBigNumLE :: BS.ByteString -> Integer |
| 82 | getBigNumLE bytes = unsafeDupablePerformIO $ | 81 | getBigNumLE bytes = unsafeDupablePerformIO $ |
| 83 | let (fptr,offset,len) = BS.toForeignPtr bytes | 82 | let (fptr,offset,len) = BS.toForeignPtr bytes |
| @@ -92,4 +91,3 @@ integerToLE i = BS.unsafeCreate (I# (word2Int# (sizeInBaseInteger i 256#))) $ \p | |||
| 92 | let Ptr addr = ptr | 91 | let Ptr addr = ptr |
| 93 | cnt <- exportIntegerToAddr i addr 0# | 92 | cnt <- exportIntegerToAddr i addr 0# |
| 94 | return () | 93 | return () |
| 95 | -} | ||