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/Source/Trivial.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Conftrack/Source/Trivial.hs')

diff --git a/src/Conftrack/Source/Trivial.hs b/src/Conftrack/Source/Trivial.hs
index bb06e77..ff22ee9 100644
--- a/src/Conftrack/Source/Trivial.hs
+++ b/src/Conftrack/Source/Trivial.hs
@@ -27,7 +27,7 @@ instance ConfigSource Trivial where
   type SourceState Trivial = [Key]
   fetchValue key (Trivial tree) = do
     case M.lookup key tree of
-      Nothing -> pure $ Left NotPresent
+      Nothing -> pure $ Left (NotPresent key)
       Just val -> do
         modify (key :)
         pure $ Right (val, "Trivial source with keys "<> T.pack (show (M.keys tree)))
-- 
cgit v1.2.3