diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Meters.hs | 12 | ||||
| -rw-r--r-- | Types/Remote.hs | 5 |
2 files changed, 13 insertions, 4 deletions
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 <joey@kitenet.net> + - + - 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 |