1 files changed, 6 insertions, 1 deletions
diff --git a/src/Command.hs b/src/Command.hs
index 0b1c790..1ef52ed 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -30,19 +30,22 @@ import System.Exit
 import System.IO
 
 import Config
+import Destination
 import Eval
 import Output
 import Repo
 
 data CommonOptions = CommonOptions
     { optJobs :: Int
-    , optRepo :: [ DeclaredRepo ]
+    , optRepo :: [ ( RepoName, FilePath ) ]
+    , optDestination :: [ ( DestinationName, Text ) ]
     }
 
 defaultCommonOptions :: CommonOptions
 defaultCommonOptions = CommonOptions
     { optJobs = 2
     , optRepo = []
+    , optDestination = []
     }
 
 class CommandArgumentsType (CommandArguments c) => Command c where
@@ -102,6 +105,7 @@ data CommandInput = CommandInput
     , ciJobRoot :: JobRoot
     , ciContainingRepo :: Maybe Repo
     , ciOtherRepos :: [ ( RepoName, Repo ) ]
+    , ciDestinations :: [ ( DestinationName, Destination ) ]
     , ciOutput :: Output
     , ciStorageDir :: FilePath
     }
@@ -137,6 +141,7 @@ getEvalInput = CommandExec $ do
     eiCurrentIdRev <- return []
     eiContainingRepo <- asks ciContainingRepo
     eiOtherRepos <- asks ciOtherRepos
+    eiDestinations <- asks ciDestinations
     return EvalInput {..}
 
 cmdEvalWith :: (EvalInput -> EvalInput) -> Eval a -> CommandExec a