diff options
Diffstat (limited to 'Omni/Deploy/Deployer.hs')
| -rw-r--r-- | Omni/Deploy/Deployer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Omni/Deploy/Deployer.hs b/Omni/Deploy/Deployer.hs index fe03f74..ee06907 100644 --- a/Omni/Deploy/Deployer.hs +++ b/Omni/Deploy/Deployer.hs @@ -71,7 +71,7 @@ gcrootsDir = "/nix/var/nix/gcroots/biz" s3Url :: String s3Url = "s3://omni-nix-cache?profile=digitalocean&scheme=https&endpoint=nyc3.digitaloceanspaces.com" -data DeployerState = DeployerState +newtype DeployerState = DeployerState { stateServices :: Map Text Text } deriving (Show, Eq, Generic, Aeson.FromJSON, Aeson.ToJSON) @@ -196,7 +196,7 @@ reconcile manifest st = do localServices = Set.fromList <| Map.keys (stateServices st) toRemove = localServices Set.\\ mfstServices - st' <- foldM (\s name -> removeService name s) st (Set.toList toRemove) + st' <- foldM (flip removeService) st (Set.toList toRemove) foldM ( \s svc -> |