From d3dcb5f4a787657f15799744c74f9a84baf1057b Mon Sep 17 00:00:00 2001 From: stuebinm Date: Tue, 5 Apr 2022 23:23:49 +0200 Subject: linter: whitespace confusing can be --- lib/Uris.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Uris.hs') 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 -- cgit v1.2.3