diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-05-27 20:21:15 +0200 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-05-27 20:21:15 +0200 |
| commit | 08742b6b310468ac5e6e09adb5a31d300c998411 (patch) | |
| tree | f6caa335f6220769dee3737805e38021a18f3e8c /mustache/src/Text/Mustache/Render.hs | |
| parent | 73498534cfdccab95e580f8d6b121655d00e7578 (diff) | |
| download | reploy-08742b6b310468ac5e6e09adb5a31d300c998411.tar.gz reploy-08742b6b310468ac5e6e09adb5a31d300c998411.tar.bz2 | |
implement simple harmless "true check" to mustache
Diffstat (limited to 'mustache/src/Text/Mustache/Render.hs')
| -rw-r--r-- | mustache/src/Text/Mustache/Render.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mustache/src/Text/Mustache/Render.hs b/mustache/src/Text/Mustache/Render.hs index 7a0ad89..b0ae5b6 100644 --- a/mustache/src/Text/Mustache/Render.hs +++ b/mustache/src/Text/Mustache/Render.hs @@ -148,6 +148,18 @@ substituteNode (Section (NamedData secName) secSTree) = shiftContext newContext $ substituteAST secSTree Nothing -> tellError $ SectionTargetNotFound secName +-- substituting an existing section (exact invert of the inverted section) +substituteNode (ExistingSection Implicit _) = tellError InvertedImplicitSection +substituteNode (ExistingSection (NamedData secName) invSecSTree) = + search secName >>= \case + Just (Bool False) -> return () + Just (Array a) | V.null a -> return () + Just Null -> return () + Nothing -> return () + _ -> contents + where + contents = mapM_ substituteNode invSecSTree + -- substituting an inverted section substituteNode (InvertedSection Implicit _) = tellError InvertedImplicitSection substituteNode (InvertedSection (NamedData secName) invSecSTree) = |