summaryrefslogtreecommitdiff
path: root/Messages.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-21 14:50:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-21 14:50:14 -0400
commit226781c047a50747f5c60a6cf4920a43cd3a3a73 (patch)
tree0a5ead6c80110d533630db1875a9ebc10dea176d /Messages.hs
parent6873d785f050cbfb2aa7bd67fcdb29ab585ec291 (diff)
unify types
Diffstat (limited to 'Messages.hs')
-rw-r--r--Messages.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Messages.hs b/Messages.hs
index 1b48c119b..7f61efb88 100644
--- a/Messages.hs
+++ b/Messages.hs
@@ -11,7 +11,6 @@ module Messages (
showAction,
showProgress,
metered,
- MeterUpdate,
showSideAction,
doSideAction,
doQuietSideAction,
@@ -42,6 +41,7 @@ import Common
import Types
import Types.Messages
import Types.Key
+import Types.Remote
import qualified Annex
import qualified Messages.JSON as JSON
@@ -63,7 +63,6 @@ showProgress = handle q $
{- Shows a progress meter while performing a transfer of a key.
- The action is passed a callback to use to update the meter. -}
-type MeterUpdate = Integer -> IO ()
metered :: Key -> (MeterUpdate -> Annex a) -> Annex a
metered key a = withOutputType $ go (keySize key)
where