Start the deployment logic

tchoutri · May 27, 2024 · 30f3678 · 30f3678
1 parent 7fb7632
commit 30f3678
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/src/Confer/Cmd/Deploy.hs b/src/Confer/Cmd/Deploy.hs
@@ -0,0 +1,18 @@
+module Confer.Cmd.Deploy (deploy) where
+
+import Control.Placeholder
+import Data.Vector (Vector)
+import Effectful
+import Effectful.FileSystem (FileSystem)
+
+import Confer.Effect.Symlink 
+import Confer.Config.Types
+-- | Take a filtered and checked list of deployments.
+deploy
+  :: ( FileSystem :> es
+     , Symlink :> es
+     , IOE :> es
+     )
+  => (Vector Deployment)
+  -> Eff es ()
+deploy deployments = todo