From e3cafcd9a1fc8621fdaaf33d1772bdcd8390d2bf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 6 Jun 2024 20:16:09 +0200
Subject: add yaml source

---
 src/Conftrack.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Conftrack.hs')

diff --git a/src/Conftrack.hs b/src/Conftrack.hs
index 0f40048..d6e68e2 100644
--- a/src/Conftrack.hs
+++ b/src/Conftrack.hs
@@ -69,7 +69,7 @@ readValue bareKey = do
         Left e -> Left e
 
   val <- case fmap (\(Right a) -> a) $ NonEmpty.filter isRight values of
-    [] -> lift $ throwE [NotPresent]
+    [] -> lift $ throwE [NotPresent key]
     val:_ -> pure val
 
   put (states, prefix, snd val : origins, warnings)
-- 
cgit v1.2.3