diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-01 21:56:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-01 21:56:04 -0400 |
| commit | 703c437bd9c6cb9e4675b65ac2b107f76b135d71 (patch) | |
| tree | a6f35036bdd2b33aca50fd899448a0f6e3b60507 /Command/Status.hs | |
| parent | 971ab27e7820a3228f71dd42f3e870c0fc2f4345 (diff) | |
rename modules for data types into Types/ directory
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index dd518416c..1a7f694ba 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -14,8 +14,8 @@ import Data.List import qualified Data.Map as M import qualified Annex -import qualified BackendClass -import qualified RemoteClass +import qualified Types.Backend as B +import qualified Types.Remote as R import qualified Remote import qualified Command.Unused import qualified GitRepo as Git @@ -23,7 +23,7 @@ import Command import Types import DataUnits import Content -import Key +import Types.Key import Locations -- a named computation that produces a statistic @@ -97,11 +97,11 @@ showStat s = calc =<< s supported_backends :: Stat supported_backends = stat "supported backends" $ lift (Annex.getState Annex.supportedBackends) >>= - return . unwords . (map BackendClass.name) + return . unwords . (map B.name) supported_remote_types :: Stat supported_remote_types = stat "supported remote types" $ - return $ unwords $ map RemoteClass.typename Remote.remoteTypes + return $ unwords $ map R.typename Remote.remoteTypes local_annex_size :: Stat local_annex_size = stat "local annex size" $ |