From 91d1ea5b3f90d8f29df6f7f028a0718f5719c4e5 Mon Sep 17 00:00:00 2001 From: Akshay Mankar <itsakshaymankar@gmail.com> Date: Sun, 28 Feb 2021 16:25:41 +0100 Subject: [PATCH] GetState: Fix existence check --- CHANGELOG.md | 4 ++++ src/Terraform/HttpBackend/Pass/App.hs | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 637807b..b4808dc 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,9 @@ # Revision history for terraform-http-backend-pass +## Unreleased changes + +* GetState: Fix existence check. + ## 0.1.0.0 -- 2021-02-28 * First version. Released on an unsuspecting world. diff --git a/src/Terraform/HttpBackend/Pass/App.hs b/src/Terraform/HttpBackend/Pass/App.hs index d2e8639..5fdc0ab 100644 --- a/src/Terraform/HttpBackend/Pass/App.hs +++ b/src/Terraform/HttpBackend/Pass/App.hs @@ -51,7 +51,8 @@ instance (Monad m, MonadIO m) => MonadPass (AppT m) where Shelly.run_ "pass" ["rm", name] exists name = do Env {..} <- ask - liftIO $ doesFileExist (directory <> "/" <> Text.unpack name) + let path = directory <> "/" <> Text.unpack name <> ".gpg" + liftIO $ doesFileExist path runAppT :: Env -> AppT m a -> m a runAppT env (AppT r) = runReaderT r env -- GitLab