Bugfix

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

diff --git a/Data/URI/Internal/Scheme.hs b/Data/URI/Internal/Scheme.hs
index da8294ef679ed5b966a6d795000cd2944d18b7b4..8bb5a7dd90522eb30061817586662be4b176a820 100644 (file)
--- 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 ≡ '.'