X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FCidr.hs;h=368cf765e380219a1a4cc89354ddd8e9936335e1;hp=dc2b556361f759904c453d5896390f292df72d71;hb=cca5aba75c313151878a98344c289827c94151e7;hpb=a5dfa1fd4dde2d79f42c606a56b4aea303d273e8

diff --git a/src/Cidr.hs b/src/Cidr.hs
index dc2b556..368cf76 100644
--- 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