From 55924ce19f25b6bdbeea1c507dc3b00bc5bf84bc Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sun, 4 Dec 2011 19:53:32 +0900
Subject: [PATCH 1/1] docs

Ditz-issue: 0a3272772c73cf31486eb2b6691fa38232d3c4c5
---
 Data/Time/Asctime.hs     | 3 +++
 Data/Time/HTTP/Common.hs | 8 +-------
 2 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/Data/Time/Asctime.hs b/Data/Time/Asctime.hs
index f7d7bdd..de9de39 100644
--- a/Data/Time/Asctime.hs
+++ b/Data/Time/Asctime.hs
@@ -43,6 +43,9 @@ import Prelude.Unicode
 
 -- |The phantom type for conversion between ANSI C's @asctime()@
 -- string and 'LocalTime'.
+--
+-- >>> convertSuccess (LocalTime (ModifiedJulianDay 49662) (TimeOfDay 8 49 37))
+-- Tagged "Sun Nov  6 08:49:37 1994"
 data Asctime
 
 instance ConvertSuccess LocalTime (Tagged Asctime Ascii) where
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
-- 
2.40.0