Simplify Read instance code.

[hath.git] / src / Cidr.hs

diff --git a/src/Cidr.hs b/src/Cidr.hs
index dc2b556361f759904c453d5896390f292df72d71..368cf765e380219a1a4cc89354ddd8e9936335e1 100644 (file)
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -85,7 +85,7 @@ octets_from_cidr_string s =
 
 instance Read Cidr where
   -- | Parse everything or nothing.
-  readsPrec _ = \s ->
+  readsPrec _ s =
     case (octets_from_cidr_string s) of
       [oct1, oct2, oct3, oct4] ->
         case (maskbits_from_cidr_string s) of