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

fix / escape

Browse source
This commit is contained in:
Joey Hess 2011-09-09 00:11:32 -04:00
parent 03d6209e1c
commit e4ba0934c2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/AddUrl.hs
View file

@ -79,8 +79,9 @@ url2file :: URI -> IO FilePath
url2file url = do url2file url = do
whenM (doesFileExist file) $ whenM (doesFileExist file) $
error $ "already have this url in " ++ file error $ "already have this url in " ++ file
liftIO $ print file
return file return file
where where
file = escape $ uriRegName auth ++ uriPath url ++ uriQuery url file = escape $ uriRegName auth ++ uriPath url ++ uriQuery url
escape = replace "/?" $ repeat '_' escape = replace "/" "_" . replace "?" "_"
auth = fromMaybe (error $ "bad url " ++ show url) $ uriAuthority url auth = fromMaybe (error $ "bad url " ++ show url) $ uriAuthority url