From eb1ea554e09e2674ccaaebc299fc40f7623146e8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 2 Jun 2009 18:36:08 +0000 Subject: [PATCH] Remove unnecessary parens --- GHC/Float.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GHC/Float.lhs b/GHC/Float.lhs index 3059db9..0d535c5 100644 --- 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# -- 1.7.10.4