mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

BF(minor): missing space after "Unsupported url scheme" msg before the scheme

Browse source
This commit is contained in:
Yaroslav Halchenko 2018-09-18 17:21:46 -04:00 • committed by Joey Hess
parent 5f36435491
commit b976eb5353
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Url.hs
View file

@ -151,7 +151,7 @@ checkPolicy uo u onerr a
unsupportedUrlScheme :: URI -> IO () unsupportedUrlScheme :: URI -> IO ()
unsupportedUrlScheme u = do unsupportedUrlScheme u = do
hPutStrLn stderr $ hPutStrLn stderr $
"Unsupported url scheme" ++ show u "Unsupported url scheme " ++ show u
hFlush stderr hFlush stderr
allowedScheme :: UrlOptions -> URI -> Bool allowedScheme :: UrlOptions -> URI -> Bool