X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-http.git;a=blobdiff_plain;f=Data%2FTime%2FHTTP%2FCommon.hs;h=c07065bf6585cb15a8aecaa6e6b597d9b3aa7607;hp=84beeb3665cd9439f66f85bb5bae18197dfbe187;hb=55924ce19f25b6bdbeea1c507dc3b00bc5bf84bc;hpb=127b8db10ba98b77b5549902f4759f09a19604b1

diff --git a/Data/Time/HTTP/Common.hs b/Data/Time/HTTP/Common.hs
index 84beeb3..c07065b 100644
--- a/Data/Time/HTTP/Common.hs
+++ b/Data/Time/HTTP/Common.hs
@@ -358,10 +358,4 @@ parseAttempt f p bs
 
 parseAttempt' ∷ Parser α → Ascii → Attempt α
 {-# INLINE parseAttempt' #-}
-parseAttempt' p a = parseAttempt h p bs
-    where
-      h ∷ String → StringException
-      h _ = StringException $ A.toString a
-
-      bs ∷ ByteString
-      bs = A.toByteString a
+parseAttempt' = (∘ A.toByteString) ∘ parseAttempt StringException