From 42cfef33be09e73dea517c0e06d859fda02d3a49 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Fri, 13 Jan 2012 08:05:15 +0900
Subject: [PATCH] Bugfix

Ditz-issue: c80e79a2585ac20cc5ed677d70b6983a2842a81d
---
 Data/URI/Internal/Scheme.hs | 1 +
 1 file changed, 1 insertion(+)

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 ≡ '.'
-- 
2.40.0