fix / escape

Command/AddUrl.hs

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