diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2026-07-26 23:40:09 +0200 |
|---|---|---|
| committer | adelon <22380201+adelon@users.noreply.github.com> | 2026-07-27 00:47:39 +0200 |
| commit | c1c161966167b302954fb55d962f4a5eea5a44bd (patch) | |
| tree | c8798d2366c19b9109480ecf0e8d314ac0f9ea56 | |
| parent | 108b963ebe395ec7c75234e5069c31732531fc97 (diff) | |
Export lexer guard through Base
| -rw-r--r-- | source/Base.hs | 2 | ||||
| -rw-r--r-- | source/Render/Html.hs | 2 |
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 |
