module System.Linux.Netlink.Helpers
where
import Data.Serialize.Get
import Data.Serialize.Put
import Data.Word
indent :: String -> String
indent :: String -> String
indent = [String] -> String
unlines ([String] -> String) -> (String -> [String]) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (String -> String) -> [String] -> [String]
forall a b. (a -> b) -> [a] -> [b]
map (String
" " String -> String -> String
forall a. [a] -> [a] -> [a]
++) ([String] -> [String])
-> (String -> [String]) -> String -> [String]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> [String]
lines
p8 :: Word8 -> Put
p8 :: Word8 -> Put
p8 = Word8 -> Put
putWord8
p16 :: Word16 -> Put
p16 :: Word16 -> Put
p16 = Word16 -> Put
putWord16host
p32 :: Word32 -> Put
p32 :: Word32 -> Put
p32 = Word32 -> Put
putWord32host
p64 :: Word64 -> Put
p64 :: Word64 -> Put
p64 = Word64 -> Put
putWord64host
g8 :: Get Word8
g8 :: Get Word8
g8 = Get Word8
getWord8
g16:: Get Word16
g16 :: Get Word16
g16 = Get Word16
getWord16host
g32 :: Get Word32
g32 :: Get Word32
g32 = Get Word32
getWord32host
g64 :: Get Word64
g64 :: Get Word64
g64 = Get Word64
getWord64host