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

warnings

Browse source
This commit is contained in:
Joey Hess 2014-10-15 14:29:53 -04:00
parent cdcb4548b3
commit 807f8553c3
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Map.hs
View file

@ -194,11 +194,11 @@ tryScan r
| Git.repoIsUrl r = return Nothing | Git.repoIsUrl r = return Nothing
| otherwise = liftIO $ safely $ Git.Config.read r | otherwise = liftIO $ safely $ Git.Config.read r
where where
pipedconfig cmd params = liftIO $ safely $ pipedconfig pcmd params = liftIO $ safely $
withHandle StdoutHandle createProcessSuccess p $ withHandle StdoutHandle createProcessSuccess p $
Git.Config.hRead r Git.Config.hRead r
where where
p = proc cmd $ toCommand params p = proc pcmd $ toCommand params
configlist = Ssh.onRemote r (pipedconfig, return Nothing) "configlist" [] [] configlist = Ssh.onRemote r (pipedconfig, return Nothing) "configlist" [] []
manualconfiglist = do manualconfiglist = do

4
Command/Trust.hs
View file

@ -24,11 +24,11 @@ seek :: CommandSeek
seek = trustCommand "trust" Trusted seek = trustCommand "trust" Trusted
trustCommand :: String -> TrustLevel -> CommandSeek trustCommand :: String -> TrustLevel -> CommandSeek
trustCommand cmd level = withWords start trustCommand c level = withWords start
where where
start ws = do start ws = do
let name = unwords ws let name = unwords ws
showStart cmd name showStart c name
u <- Remote.nameToUUID name u <- Remote.nameToUUID name
next $ perform u next $ perform u
perform uuid = do perform uuid = do