diff options
Diffstat (limited to 'web')
-rw-r--r-- | web/gn-uri.scm | 7 |
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 |