diff --git a/Text/XHtml/Internals.hs b/Text/XHtml/Internals.hs
index 7de94d52fcaa2baa1ffdf9fd688cb2ff787585a5..20218b95c447ca0b032a61eec63dbe70ba2064da 100644
--- a/Text/XHtml/Internals.hs
+++ b/Text/XHtml/Internals.hs
@@ -17,6 +17,7 @@ module Text.XHtml.Internals where
 
 import Data.Char
 import qualified Data.Semigroup as Sem
+import qualified Data.Monoid as Mon
 
 infixr 2 +++  -- combining Html
 infixr 7 <<   -- nesting Html
@@ -67,7 +68,7 @@ instance Show HtmlAttr where
 instance Sem.Semigroup Html where
     (<>) = (+++)
 
-instance Sem.Monoid Html where
+instance Mon.Monoid Html where
     mempty = noHtml
     mappend = (Sem.<>)