floatTests = testGroup "Float Tests"
  [ testProperty "coerced floats are recognized" checkRecognizesCast
  , testProperty "floats are recognized" checkRecognizesFloat
  , testProperty "exponents are recognized" checkRecognizesExponent ]
floatTests = testGroup "Float Tests"
  [ testProperty "coerced floats are recognized" checkRecognizesCast
  , testProperty "floats are recognized" checkRecognizesFloat
  , testProperty "exponents are recognized" checkRecognizesExponent ]
floatTests = testGroup "Float Tests"
  [ testProperty "coerced floats are recognized" checkRecognizesCast
  , testProperty "floats are recognized" checkRecognizesFloat
  , testProperty "exponents are recognized" checkRecognizesExponent ]