Remove unnecessary parens

diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index 3059db9..0d535c5 100644 (file)
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -205,7 +205,7 @@ instance  RealFrac Float  where
 #error FLT_RADIX must be 2
 #endif
     properFraction (F# x#)
-      = case (decodeFloat_Int# x#) of
+      = case decodeFloat_Int# x# of
         (# m#, n# #) ->
             let m = I# m#
                 n = I# n#