diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 22:20:13 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-10 22:20:13 +0200 |
| commit | da023dfdc4884325fb62b3b101fcc8ea44772752 (patch) | |
| tree | 31c2db47b5aa07cb7302d52e8c9e9451000e2239 /src/Pages/TH.hs | |
| parent | e0e6b516b9dd132e067a226ff7fdf56d3e556559 (diff) | |
Clean up
Diffstat (limited to 'src/Pages/TH.hs')
| -rw-r--r-- | src/Pages/TH.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Pages/TH.hs b/src/Pages/TH.hs index 0cc93db..2061c9a 100644 --- a/src/Pages/TH.hs +++ b/src/Pages/TH.hs @@ -194,7 +194,7 @@ renderNodes dats buf (node : nodes) = do Just (VQInt, _) -> fail $ "Int value in inverted section scrutinee " ++ show named Just (VQUnit, _) -> fail $ "() value in inverted section scrutinee " ++ show named Nothing -> fail $ "Inverted section scrutinee not found: " ++ show named - M.Partial _ _ -> fail $ "TODO partials" + M.Partial _ _ -> fail "TODO partials" renderNodes dats (ExpensiveExp buf') nodes |