diff --git a/examples/hparser/HXmlParser.hs b/examples/hparser/HXmlParser.hs
--- a/examples/hparser/HXmlParser.hs
+++ b/examples/hparser/HXmlParser.hs
@@ -53,7 +53,7 @@
 -- ------------------------------------------------------------
 
 exitProg        :: Bool -> IO a
-exitProg True   = exitWith (ExitFailure (-1))
+exitProg True   = exitWith (ExitFailure 1)
 exitProg False  = exitWith ExitSuccess
 
 -- ------------------------------------------------------------
diff --git a/examples/hrelaxng/HRelaxNG.hs b/examples/hrelaxng/HRelaxNG.hs
--- a/examples/hrelaxng/HRelaxNG.hs
+++ b/examples/hrelaxng/HRelaxNG.hs
@@ -42,7 +42,7 @@
 
 
 exitProg        :: Bool -> IO a
-exitProg True   = exitWith (ExitFailure (-1))
+exitProg True   = exitWith (ExitFailure 1)
 exitProg False  = exitWith ExitSuccess
 
 
diff --git a/hxt-relaxng.cabal b/hxt-relaxng.cabal
--- a/hxt-relaxng.cabal
+++ b/hxt-relaxng.cabal
@@ -1,6 +1,6 @@
 -- arch-tag: Haskell XML Toolbox main description file
 Name:           hxt-relaxng
-Version:        9.1.5.3
+Version:        9.1.5.4
 Synopsis:       The HXT RelaxNG validator
 Description:    The HXT RelaxNG validator
 License:        MIT
@@ -9,8 +9,8 @@
 Maintainer:     Uwe Schmidt <uwe@fh-wedel.de>
 Stability:      Stable
 Category:       XML
-Homepage:       http://www.fh-wedel.de/~si/HXmlToolbox/index.html
-Copyright:      Copyright (c) 2005-2011 Uwe Schmidt
+Homepage:       https://github.com/UweSchmidt/hxt
+Copyright:      Copyright (c) 2005-2015 Uwe Schmidt
 Build-type:     Simple
 Cabal-version:  >=1.6
 
@@ -65,7 +65,7 @@
  hs-source-dirs: src
 
  ghc-options: -Wall
- ghc-prof-options: -auto-all -caf-all
+ ghc-prof-options: -caf-all
 
  -- extensions: MultiParamTypeClasses DeriveDataTypeable FunctionalDependencies FlexibleInstances
 
@@ -81,3 +81,6 @@
  else
    build-depends: network >= 2.4 && < 2.6
 
+Source-Repository head
+  Type:     git
+  Location: git://github.com/UweSchmidt/hxt.git
diff --git a/src/Text/XML/HXT/RelaxNG/DataTypes.hs b/src/Text/XML/HXT/RelaxNG/DataTypes.hs
--- a/src/Text/XML/HXT/RelaxNG/DataTypes.hs
+++ b/src/Text/XML/HXT/RelaxNG/DataTypes.hs
@@ -172,20 +172,20 @@
 
 -- | Represents a pattern after simplification
 
-data Pattern = NotAllowed ErrMessage			-- {}
-             | Empty					-- {epsilon}
-             | Text					-- symbol: text
-             | Element    NameClass Pattern     	-- symbol: element with pattern for children
-             | Attribute  NameClass Pattern     	-- symbol: attr    with pattern for value
-             | Choice     Pattern   Pattern		-- binary combinator, symmetric
-             | Interleave Pattern   Pattern		--   "         "    , symmetric
-             | Group      Pattern   Pattern		--   "         "
-             | After      Pattern   Pattern		--   "         "
-             | OneOrMore  Pattern			-- unary combinator
-             | Data       Datatype  ParamList   	-- value check
+data Pattern = NotAllowed ErrMessage                    -- {}
+             | Empty                                    -- {epsilon}
+             | Text                                     -- symbol: text
+             | Element    NameClass Pattern             -- symbol: element with pattern for children
+             | Attribute  NameClass Pattern             -- symbol: attr    with pattern for value
+             | Choice     Pattern   Pattern             -- binary combinator, symmetric
+             | Interleave Pattern   Pattern             --   "         "    , symmetric
+             | Group      Pattern   Pattern             --   "         "
+             | After      Pattern   Pattern             --   "         "
+             | OneOrMore  Pattern                       -- unary combinator
+             | Data       Datatype  ParamList           -- value check
              | DataExcept Datatype  ParamList Pattern
-             | List       Pattern               	-- value check
-             | Value      Datatype  String    Context	-- value check
+             | List       Pattern                       -- value check
+             | Value      Datatype  String    Context   -- value check
 
 data Pattern' = NotAllowed'
              | Empty'
diff --git a/src/Text/XML/HXT/RelaxNG/SystemConfig.hs b/src/Text/XML/HXT/RelaxNG/SystemConfig.hs
--- a/src/Text/XML/HXT/RelaxNG/SystemConfig.hs
+++ b/src/Text/XML/HXT/RelaxNG/SystemConfig.hs
@@ -21,13 +21,13 @@
 module   Text.XML.HXT.RelaxNG.SystemConfig
 where
 
-import Text.XML.HXT.Arrow.XmlState.TypeDefs
-import Text.XML.HXT.Arrow.XmlOptions
+import           Text.XML.HXT.Arrow.XmlOptions
+import           Text.XML.HXT.Arrow.XmlState.TypeDefs
 
-import Text.XML.HXT.RelaxNG.Validator           ( validateDocumentWithRelaxSchema )
+import           Text.XML.HXT.RelaxNG.Validator       (validateDocumentWithRelaxSchema)
 
 
-import System.Console.GetOpt
+import           System.Console.GetOpt
 
 -- ------------------------------------------------------------
 
@@ -35,7 +35,7 @@
 withRelaxNG s                   = setS (theRelaxValidate
                                         .&&&. theRelaxSchema
                                         .&&&. theRelaxValidator
-                                       ) ( not (null s)		-- null s turns off validation
+                                       ) ( not (null s)         -- null s turns off validation
                                          , ( s
                                            , validateDocumentWithRelaxSchema [] s
                                            )