mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename modules for data types into Types/ directory

Browse source
This commit is contained in:
Joey Hess 2011-06-01 21:56:04 -04:00
parent 971ab27e78
commit 703c437bd9
32 changed files with 61 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/Status.hs
View file

@ -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" $