diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-21 14:50:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-21 14:50:14 -0400 |
| commit | 226781c047a50747f5c60a6cf4920a43cd3a3a73 (patch) | |
| tree | 0a5ead6c80110d533630db1875a9ebc10dea176d /Command | |
| parent | 6873d785f050cbfb2aa7bd67fcdb29ab585ec291 (diff) | |
unify types
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/SendKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/SendKey.hs b/Command/SendKey.hs index 79cc61876..e5d4c7e6e 100644 --- a/Command/SendKey.hs +++ b/Command/SendKey.hs @@ -32,7 +32,7 @@ start key = ifM (inAnnex key) liftIO exitFailure ) -fieldTransfer :: Direction -> Key -> (ProgressCallback -> Annex Bool) -> CommandStart +fieldTransfer :: Direction -> Key -> (MeterUpdate -> Annex Bool) -> CommandStart fieldTransfer direction key a = do afile <- Fields.getField Fields.associatedFile ok <- maybe (a $ const noop) |