X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Data%2FURI%2FInternal%2FScheme.hs;h=8bb5a7dd90522eb30061817586662be4b176a820;hp=da8294ef679ed5b966a6d795000cd2944d18b7b4;hb=42cfef3;hpb=f97a92f4fc2fc2ff3c85362c31d02c72c754bb58

diff --git a/Data/URI/Internal/Scheme.hs b/Data/URI/Internal/Scheme.hs
index da8294e..8bb5a7d 100644
--- a/Data/URI/Internal/Scheme.hs
+++ b/Data/URI/Internal/Scheme.hs
@@ -56,6 +56,7 @@ instance Default (Parser Scheme) where
           {-# INLINE nonFirst #-}
           nonFirst c
               = isAlpha_ascii c ∨
+                isDigit c       ∨
                 c ≡ '+'         ∨
                 c ≡ '-'         ∨
                 c ≡ '.'