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 /Messages.hs | |
| parent | 6873d785f050cbfb2aa7bd67fcdb29ab585ec291 (diff) | |
unify types
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 3 |
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 |