break out non-log stuff to separate module
This commit is contained in:
parent
ec169f84b1
commit
ee9af605bc
28 changed files with 86 additions and 78 deletions
|
@ -9,7 +9,7 @@ module Command.ConfigList where
|
|||
|
||||
import Common.Annex
|
||||
import Command
|
||||
import Logs.UUID
|
||||
import Annex.UUID
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "configlist" paramNothing seek
|
||||
|
|
|
@ -15,7 +15,7 @@ import qualified Types.Key
|
|||
import Annex.Content
|
||||
import Logs.Location
|
||||
import Logs.Trust
|
||||
import Logs.UUID
|
||||
import Annex.UUID
|
||||
import Utility.DataUnits
|
||||
import Utility.FileMode
|
||||
import Config
|
||||
|
|
|
@ -9,6 +9,7 @@ module Command.Init where
|
|||
|
||||
import Common.Annex
|
||||
import Command
|
||||
import Annex.UUID
|
||||
import Logs.UUID
|
||||
import Init
|
||||
|
||||
|
|
|
@ -14,7 +14,7 @@ import Command
|
|||
import qualified Remote
|
||||
import qualified Logs.Remote
|
||||
import qualified Types.Remote as R
|
||||
import Logs.UUID
|
||||
import Annex.UUID
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "initremote"
|
||||
|
|
|
@ -13,6 +13,7 @@ import qualified Data.Map as M
|
|||
import Common.Annex
|
||||
import Command
|
||||
import qualified Git
|
||||
import Annex.UUID
|
||||
import Logs.UUID
|
||||
import Logs.Trust
|
||||
import Utility.Ssh
|
||||
|
|
|
@ -14,7 +14,7 @@ import qualified Annex
|
|||
import Logs.Location
|
||||
import Annex.Content
|
||||
import qualified Remote
|
||||
import Logs.UUID
|
||||
import Annex.UUID
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "move" paramPaths seek
|
||||
|
|
|
@ -10,7 +10,6 @@ module Command.Semitrust where
|
|||
import Common.Annex
|
||||
import Command
|
||||
import qualified Remote
|
||||
import Logs.UUID
|
||||
import Logs.Trust
|
||||
|
||||
command :: [Command]
|
||||
|
|
|
@ -11,7 +11,6 @@ import Common.Annex
|
|||
import Command
|
||||
import qualified Remote
|
||||
import Logs.Trust
|
||||
import Logs.UUID
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "trust" (paramRepeating paramRemote) seek
|
||||
|
|
|
@ -10,7 +10,6 @@ module Command.Untrust where
|
|||
import Common.Annex
|
||||
import Command
|
||||
import qualified Remote
|
||||
import Logs.UUID
|
||||
import Logs.Trust
|
||||
|
||||
command :: [Command]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue