aboutsummaryrefslogtreecommitdiff
path: root/web/gn-uri.scm
diff options
context:
space:
mode:
Diffstat (limited to 'web/gn-uri.scm')
-rw-r--r--web/gn-uri.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/web/gn-uri.scm b/web/gn-uri.scm
index f275bcd..5d95cd8 100644
--- a/web/gn-uri.scm
+++ b/web/gn-uri.scm
@@ -22,11 +22,12 @@
))
-
(define (normalize-id str)
;; (string-replace-substring (string-downcase str) " " "_")
- (string-replace-substring str " " "_")
- )
+ (match str
+ (#f "unknown")
+ (_ (string-replace-substring str " " "_"))
+ ))
(define (url-parse-id uri)
(if uri