summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoradelon <22380201+adelon@users.noreply.github.com>2026-07-26 23:40:09 +0200
committeradelon <22380201+adelon@users.noreply.github.com>2026-07-27 00:47:39 +0200
commitc1c161966167b302954fb55d962f4a5eea5a44bd (patch)
treec8798d2366c19b9109480ecf0e8d314ac0f9ea56
parent108b963ebe395ec7c75234e5069c31732531fc97 (diff)
Export lexer guard through Base
-rw-r--r--source/Base.hs2
-rw-r--r--source/Render/Html.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/source/Base.hs b/source/Base.hs
index 87829d2..b454553 100644
--- a/source/Base.hs
+++ b/source/Base.hs
@@ -7,7 +7,7 @@
-- so that it is obvious that this module is used. Commonly used data types
-- or helper functions from outside of @base@ are also included.
--
-module Base (module Base, module Export) where
+module Base (module Base, module Export, guard) where
-- Some definitions from @base@ need to be hidden to avoid clashes.
--
diff --git a/source/Render/Html.hs b/source/Render/Html.hs
index e393eea..01ac638 100644
--- a/source/Render/Html.hs
+++ b/source/Render/Html.hs
@@ -16,7 +16,7 @@ import Lucid hiding (Term, for_)
import Lucid.Base (makeAttributes)
import Lucid.Math
-import Control.Monad (guard, unless, when)
+import Control.Monad (unless, when)
import Data.Char (digitToInt, isAlphaNum, isDigit, isSpace, toUpper)
import Data.List qualified as List
import Data.List.NonEmpty qualified as NonEmpty