From 0bb63dca9409308491070d94a0436ad73f81b9e0 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 10 Jan 2020 14:49:05 -0500
Subject: At compile time, allow '#' as a URL

---
 src/mono_opt.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/mono_opt.sml')

diff --git a/src/mono_opt.sml b/src/mono_opt.sml
index cc85f05b..7e737e44 100644
--- a/src/mono_opt.sml
+++ b/src/mono_opt.sml
@@ -161,7 +161,7 @@ fun unAs s =
         doChars (String.explode s, [])
     end
 
-fun checkUrl s = CharVector.all Char.isGraph s andalso Settings.checkUrl s
+fun checkUrl s = CharVector.all Char.isGraph s andalso (s = "#" orelse Settings.checkUrl s)
 val checkData = CharVector.all (fn ch => Char.isAlphaNum ch
                                          orelse ch = #"_"
                                          orelse ch = #"-")
-- 
cgit v1.2.3