lucid 2.11.20250303 → 2.11.20260427
raw patch · 3 files changed
+8/−11 lines, 3 filesdep ~base
Dependency ranges changed: base
Files
- CHANGELOG.md +4/−0
- lucid.cabal +2/−2
- src/Lucid/Base.hs +2/−9
CHANGELOG.md view
@@ -1,5 +1,9 @@ ## Upcoming +## 2.11.20260427++* Support GHC 9.14+ ## 2.11.20250303 * Support GHC 9.12
lucid.cabal view
@@ -1,5 +1,5 @@ name: lucid-version: 2.11.20250303+version: 2.11.20260427 synopsis: Clear to write, read and edit DSL for HTML description: Clear to write, read and edit DSL for HTML.@@ -33,7 +33,7 @@ Lucid.Bootstrap -- GHC boot libraries- build-depends: base >=4.8 && <4.22+ build-depends: base >=4.8 && <5 , bytestring >=0.10.6.0 , containers >=0.5.6.2 , transformers >=0.4.2.0
src/Lucid/Base.hs view
@@ -116,7 +116,9 @@ -- | Monoid is right-associative, a la the 'Builder' in it. instance (a ~ (),Applicative m) => Monoid (HtmlT m a) where mempty = pure mempty+#if !MIN_VERSION_base(4,11,0) mappend = liftA2 mappend+#endif -- | Based on the monad instance. instance Applicative m => Applicative (HtmlT m) where@@ -144,20 +146,11 @@ -- | Basically acts like Writer. instance Monad m => Monad (HtmlT m) where- return a = HtmlT (return (mempty,a))- {-# INLINE return #-}- m >>= f = HtmlT $ do ~(g,a) <- runHtmlT m ~(h,b) <- runHtmlT (f a) return (g <> h,b) {-# INLINE (>>=) #-}-- m >> n = HtmlT $ do- ~(g, _) <- runHtmlT m- ~(h, b) <- runHtmlT n- return (g <> h, b)- {-# INLINE (>>) #-} -- | Used for 'lift'. instance MonadTrans HtmlT where