diff options
| author | stuebinm | 2024-06-06 20:16:09 +0200 |
|---|---|---|
| committer | stuebinm | 2024-06-06 20:24:15 +0200 |
| commit | e3cafcd9a1fc8621fdaaf33d1772bdcd8390d2bf (patch) | |
| tree | 1a8c593c18c4e0477dd8277da6240a4eceecbc00 /src/Conftrack.hs | |
| parent | 4321bb0b5b90c0f92217ccd07a67f17fce44b388 (diff) | |
add yaml source
Diffstat (limited to 'src/Conftrack.hs')
| -rw-r--r-- | src/Conftrack.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |