-- | Utility definition for reasons of type ambiguity.
floatConst :: FloatType -> Double -> SubExp
floatConst t v = constant $ floatValue t v
floatConst :: FloatType -> Double -> SubExp
floatConst t v = constant $ floatValue t v
floatConst t v = constant $ floatValue t v