module StaticAssert where

import Network.Socket (htonl)
import Language.Haskell.TH

staticAssert :: Bool -> Q [Dec]
staticAssert cond = case cond of
    True  -> return []
    False -> fail "staticAssert failed"

isLittleEndian :: Bool
isLittleEndian = htonl 0x01000000 == 1