diff --git a/fadno-xml.cabal b/fadno-xml.cabal
--- a/fadno-xml.cabal
+++ b/fadno-xml.cabal
@@ -1,5 +1,5 @@
 name:                fadno-xml
-version:             1.1.2
+version:             1.1.3
 synopsis:            XML/XSD combinators/schemas/codegen
 description:
             Library for generating code from XML schema files, with
diff --git a/src/Fadno/Xml/EmitTypes.hs b/src/Fadno/Xml/EmitTypes.hs
--- a/src/Fadno/Xml/EmitTypes.hs
+++ b/src/Fadno/Xml/EmitTypes.hs
@@ -24,7 +24,7 @@
     ) where
 
 import Fadno.Xml.ParseXsd
-import Data.Monoid
+import Data.Semigroup
 import Control.Lens hiding (Choice,element,elements,anon)
 
 import Control.Monad.State.Strict
@@ -181,6 +181,7 @@
   (EmitState a b) <> (EmitState c d) = EmitState (a<>c) (b<>d)
 instance Monoid EmitState where
     mempty = EmitState mempty mempty
+    mappend = (<>)
 
 
 -- | Emit monad.
diff --git a/src/Fadno/Xml/ParseXsd.hs b/src/Fadno/Xml/ParseXsd.hs
--- a/src/Fadno/Xml/ParseXsd.hs
+++ b/src/Fadno/Xml/ParseXsd.hs
@@ -6,6 +6,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
 
 -- | Parse an XSD into types with the ability to resolve references.
 module Fadno.Xml.ParseXsd
@@ -45,6 +46,7 @@
 import Control.Monad.State.Strict hiding (sequence)
 import Control.Monad.Except hiding (sequence)
 import Data.Either
+import Data.Semigroup
 import Control.Applicative
 import Prelude hiding (sequence)
 import Fadno.Xml.XParser
@@ -52,7 +54,6 @@
 import Data.Data.Lens
 import Data.Data
 import qualified Text.Parsec as P
-import Data.Monoid
 import Control.Exception
 import qualified Data.Map.Strict as M
 import Data.Map.Strict (Map)
@@ -297,7 +298,7 @@
 
 instance Monoid Schema where
     mempty = Schema mempty mempty mempty mempty mempty mempty
-
+    mappend = (<>)