Fix warnings.

5d83e1db · Kenton Varda · d6019da7 · 5d83e1db
Commit 5d83e1db authored Apr 20, 2013 by Kenton Varda
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 8 deletions

Compiler.hs compiler/src/Compiler.hs +4 -8

No files found.
--- a/compiler/src/Compiler.hs
+++ b/compiler/src/Compiler.hs
@@ -196,14 +196,10 @@ compileValue _ (BuiltinType BuiltinFloat32) (FloatFieldValue x) = succeed (Float
 compileValue _ (BuiltinType BuiltinFloat64) (FloatFieldValue x) = succeed (Float64Desc x)
 compileValue _ (BuiltinType BuiltinFloat32) (IntegerFieldValue x) = succeed (Float32Desc (realToFrac x))
 compileValue _ (BuiltinType BuiltinFloat64) (IntegerFieldValue x) = succeed (Float64Desc (realToFrac x))
-compileValue _ (BuiltinType BuiltinFloat32) (IdentifierFieldValue "inf") =
+compileValue _ (BuiltinType BuiltinFloat32) (IdentifierFieldValue "inf") = succeed $ Float32Desc $ 1.0 / 0.0
-    succeed $ Float32Desc $ realToFrac $ 1.0 / 0.0
+compileValue _ (BuiltinType BuiltinFloat64) (IdentifierFieldValue "inf") = succeed $ Float64Desc $ 1.0 / 0.0
-compileValue _ (BuiltinType BuiltinFloat64) (IdentifierFieldValue "inf") =
+compileValue _ (BuiltinType BuiltinFloat32) (IdentifierFieldValue "nan") = succeed $ Float32Desc $ 0.0 / 0.0
-    succeed $ Float64Desc $ 1.0 / 0.0
+compileValue _ (BuiltinType BuiltinFloat64) (IdentifierFieldValue "nan") = succeed $ Float64Desc $ 0.0 / 0.0
-compileValue _ (BuiltinType BuiltinFloat32) (IdentifierFieldValue "nan") =
-    succeed $ Float32Desc $ realToFrac $ 0.0 / 0.0
-compileValue _ (BuiltinType BuiltinFloat64) (IdentifierFieldValue "nan") =
-    succeed $ Float64Desc $ 0.0 / 0.0
 compileValue _ (BuiltinType BuiltinText) (StringFieldValue x) = succeed (TextDesc x)
 compileValue _ (BuiltinType BuiltinData) (StringFieldValue x) =
    succeed (DataDesc (map (fromIntegral . fromEnum) x))