X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Data%2FURI%2FInternal%2FScheme.hs;h=ebef877e376c4334a21d361ebe6bb5d92b103542;hb=ceb6901059c21991562e5ad4ffe3d6558d44309e;hp=7b8fd5209bc771c53253d27703c20ada55414b96;hpb=4a9daff746713dfbb3d7c953e3ce09dcd21064b4;p=Lucu.git

diff --git a/Data/URI/Internal/Scheme.hs b/Data/URI/Internal/Scheme.hs
index 7b8fd52..ebef877 100644
--- a/Data/URI/Internal/Scheme.hs
+++ b/Data/URI/Internal/Scheme.hs
@@ -64,14 +64,17 @@ instance Default (Parser Scheme) where
           {-# INLINE fromBS #-}
           fromBS = Scheme ∘ A.toCIAscii ∘ A.unsafeFromByteString
 
+-- |Extract a 'CIAscii' with all letters lowercased.
 instance ConvertSuccess Scheme CIAscii where
     {-# INLINE convertSuccess #-}
     convertSuccess (Scheme s) = foldCase s
 
+-- |Create an 'AsciiBuilder' with all letters lowercased.
 instance ConvertSuccess Scheme AsciiBuilder where
     {-# INLINE convertSuccess #-}
     convertSuccess = A.toAsciiBuilder ∘ A.fromCIAscii ∘ cs
 
+-- |Try to parse a 'Scheme' from 'CIAscii'.
 instance ConvertAttempt CIAscii Scheme where
     {-# INLINE convertAttempt #-}
     convertAttempt = parseAttempt' def ∘ A.fromCIAscii