-- | All primitive types.
anyPrimType :: [PrimType]
anyPrimType = Bool : anyIntType ++ anyFloatType
anyPrimType :: [PrimType]
anyPrimType = Bool : anyIntType ++ anyFloatType
anyPrimType = Bool : anyIntType ++ anyFloatType