summaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-28 23:27:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-28 23:27:45 -0400
commit3eaa9079161d010b330791581a74fc5de3701e25 (patch)
tree3736f0b8d5ede3ef583a387eb81112c84801d0bc /CmdLine.hs
parenta039606b42b593a18d864b4813965d04dc2e9293 (diff)
syntax tweak
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index db46cba82..63d36c74c 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -40,7 +40,7 @@ dispatch fuzzyok allargs allcmds commonoptions fields header getgitrepo = do
state <- Annex.new g
(actions, state') <- Annex.run state $ do
checkfuzzy
- forM_ fields $ \(f, v) -> Annex.setField f v
+ forM_ fields $ uncurry Annex.setField
sequence_ flags
prepCommand cmd params
tryRun state' cmd $ [startup] ++ actions ++ [shutdown $ cmdnocommit cmd]