From 3d6fb239dd88ec7f105b8066b5c5476bb9c2aeec Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 18 Nov 2012 21:48:42 -0400 Subject: refactor --- Types/Meters.hs | 12 ++++++++++++ Types/Remote.hs | 5 +---- 2 files changed, 13 insertions(+), 4 deletions(-) create mode 100644 Types/Meters.hs (limited to 'Types') diff --git a/Types/Meters.hs b/Types/Meters.hs new file mode 100644 index 000000000..ef304d1ae --- /dev/null +++ b/Types/Meters.hs @@ -0,0 +1,12 @@ +{- git-annex meter types + - + - Copyright 2012 Joey Hess + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Types.Meters where + +{- An action that can be run repeatedly, feeding it the number of + - bytes sent or retrieved so far. -} +type MeterUpdate = (Integer -> IO ()) diff --git a/Types/Remote.hs b/Types/Remote.hs index 572240de0..271676d0e 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -15,6 +15,7 @@ import Data.Ord import qualified Git import Types.Key import Types.UUID +import Types.Meters type RemoteConfigKey = String type RemoteConfig = M.Map RemoteConfigKey String @@ -37,10 +38,6 @@ instance Eq (RemoteTypeA a) where {- A filename associated with a Key, for display to user. -} type AssociatedFile = Maybe FilePath -{- An action that can be run repeatedly, feeding it the number of - - bytes sent or retrieved so far. -} -type MeterUpdate = (Integer -> IO ()) - {- An individual remote. -} data RemoteA a = Remote { -- each Remote has a unique uuid -- cgit v1.2.3