doc comments

[Lucu.git] / Data / URI / Internal / Scheme.hs

diff --git a/Data/URI/Internal/Scheme.hs b/Data/URI/Internal/Scheme.hs
index da8294ef679ed5b966a6d795000cd2944d18b7b4..7b8fd5209bc771c53253d27703c20ada55414b96 100644 (file)
--- a/Data/URI/Internal/Scheme.hs
+++ b/Data/URI/Internal/Scheme.hs
@@ -28,7 +28,8 @@ import Prelude.Unicode
 
 -- |'Scheme' names consist of a non-empty sequence of characters
 -- beginning with a letter and followed by any combination of letters,
--- digits, plus (\'+\'), period (\'.\'), or hyphen (\'-\'):
+-- digits, plus (\'+\'), period (\'.\'), or hyphen (\'-\'). Comparison
+-- of 'Scheme's are always case-insensitive. See:
 -- <http://tools.ietf.org/html/rfc3986#section-3.1>
 newtype Scheme = Scheme CIAscii
     deriving ( Eq
@@ -39,7 +40,7 @@ newtype Scheme = Scheme CIAscii
              , Typeable
              )
 
--- |'isString' is a fast but unsafe way to create 'Scheme' such that
+-- |'fromString' is a fast but unsafe way to create 'Scheme' such that
 -- no validation on the string is performed.
 deriving instance IsString Scheme
 
@@ -56,6 +57,7 @@ instance Default (Parser Scheme) where
           {-# INLINE nonFirst #-}
           nonFirst c
               = isAlpha_ascii c ∨
+                isDigit c       ∨
                 c ≡ '+'         ∨
                 c ≡ '-'         ∨
                 c ≡ '.'