shifted_x1 = x `quot` 2^(24 :: Integer)
shifted_x2 = x2 `quot` 2^(16 :: Integer)
shifted_x3 = x3 `quot` 2^(8 :: Integer)
- oct1 = toEnum shifted_x1
- oct2 = toEnum shifted_x2
- oct3 = toEnum shifted_x3
- oct4 = toEnum x4
+ oct1 = toEnum shifted_x1 :: Octet
+ oct2 = toEnum shifted_x2 :: Octet
+ oct3 = toEnum shifted_x3 :: Octet
+ oct4 = toEnum x4 :: Octet
-- | Convert @addr@ to an 'Int' by converting each octet to an 'Int'
-- and shifting the result to the left by 0,8.16, or 24 bits.
mk_testaddr a b c d =
IPv4Address oct1 oct2 oct3 oct4
where
- oct1 = toEnum a
- oct2 = toEnum b
- oct3 = toEnum c
- oct4 = toEnum d
+ oct1 = toEnum a :: Octet
+ oct2 = toEnum b :: Octet
+ oct3 = toEnum c :: Octet
+ oct4 = toEnum d :: Octet
test_minBound :: TestTree
where
desc = "192.168.0.0 in base-10 is 3232235520"
expected = mk_testaddr 192 168 0 0
- actual = toEnum 3232235520
+ actual = toEnum 3232235520 :: IPv4Address