X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Data%2FURI%2FInternal%2FScheme.hs;h=7b8fd5209bc771c53253d27703c20ada55414b96;hp=8bb5a7dd90522eb30061817586662be4b176a820;hb=4a9daff;hpb=42cfef33be09e73dea517c0e06d859fda02d3a49 diff --git a/Data/URI/Internal/Scheme.hs b/Data/URI/Internal/Scheme.hs index 8bb5a7d..7b8fd52 100644 --- 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: -- 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