diff options
| -rw-r--r-- | lib/Uris.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Uris.hs b/lib/Uris.hs index 40ea43e..127b7f1 100644 --- a/lib/Uris.hs +++ b/lib/Uris.hs @@ -42,7 +42,7 @@ type SchemaSet = Map Text [Substitution] -- and a normalised version of the same URI parseUri :: Text -> Maybe (Text, Text, Text, Text) parseUri raw = - case parseURI (toString raw) of + case parseURI (toString (T.strip raw)) of Nothing -> Nothing Just uri@URI{..} -> case uriAuthority of Nothing -> Nothing |