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