serokell-util-0.1.1: src/Serokell/Util/StaticAssert.hs

-- | Compile time assertions
-- Very simple implementation from: http://stackoverflow.com/a/6654903
-- TODO: understand and maybe improve
module Serokell.Util.StaticAssert
       ( staticAssert
       ) where

import           Control.Monad       (unless)
import           Language.Haskell.TH (Q)

staticAssert :: Bool -> String -> Q [a]
staticAssert cond mesg = do
    unless cond $ fail $ "Compile time assertion failed: " ++ mesg
    return [] -- No need to make a dummy declaration