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