diff options
author | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-08-30 14:50:50 +0900 |
---|---|---|
committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-08-30 14:50:50 +0900 |
commit | 8ba004e4135783c2a3c79e057c553fa01fb87a57 (patch) | |
tree | e4186e02fff1adce313a396418a88c9ae225ee4c /Network/DNS/StateBinary.hs | |
parent | 0fa5d283af40eb6d994dde824f3e3beea1dc070b (diff) |
clean up code.
Diffstat (limited to 'Network/DNS/StateBinary.hs')
-rw-r--r-- | Network/DNS/StateBinary.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Network/DNS/StateBinary.hs b/Network/DNS/StateBinary.hs index bd54a75..2bd610c 100644 --- a/Network/DNS/StateBinary.hs +++ b/Network/DNS/StateBinary.hs @@ -50,14 +50,14 @@ put16 = writeWord16be put32 :: Word32 -> SPut put32 = writeWord32be -putInt8 :: Int8 -> SPut -putInt8 = writeInt8 +putInt8 :: Int -> SPut +putInt8 = writeInt8 . fromIntegral -putInt16 :: Int16 -> SPut -putInt16 = writeInt16be +putInt16 :: Int -> SPut +putInt16 = writeInt16be . fromIntegral -putInt32 :: Int32 -> SPut -putInt32 = writeInt32be +putInt32 :: Int -> SPut +putInt32 = writeInt32be . fromIntegral ---------------------------------------------------------------- |