diff --git a/hxt-unicode.cabal b/hxt-unicode.cabal
--- a/hxt-unicode.cabal
+++ b/hxt-unicode.cabal
@@ -1,5 +1,5 @@
 Name:                hxt-unicode
-Version:             9.0.2.2
+Version:             9.0.2.4
 Synopsis:            Unicode en-/decoding functions for utf8, iso-latin-* and other encodings
 Description:         Unicode encoding and decoding functions for utf8, iso-latin-* and somes other encodings,
                      used in the Haskell XML Toolbox.
@@ -10,12 +10,13 @@
 License-file:        LICENSE
 Author:              Uwe Schmidt
 Maintainer:          Uwe Schmidt <uwe@fh-wedel.de>
+Homepage:            https://github.com/UweSchmidt/hxt
 Copyright:           Copyright (c) 2010- Uwe Schmidt
 Stability:           Stable
 Category:            Text
 Build-type:          Simple
 
-Cabal-version:       >=1.4
+Cabal-version:       >=1.6
 
 Library
   Exposed-modules:     
@@ -31,4 +32,8 @@
   hs-source-dirs: src
 
   ghc-options: -Wall
-  ghc-prof-options: -auto-all -caf-all
+  ghc-prof-options: -caf-all
+
+Source-Repository head
+  Type:     git
+  Location: git://github.com/UweSchmidt/hxt.git
diff --git a/src/Data/String/Unicode.hs b/src/Data/String/Unicode.hs
--- a/src/Data/String/Unicode.hs
+++ b/src/Data/String/Unicode.hs
@@ -61,15 +61,15 @@
     )
 where
 
-import Data.Char                        ( toUpper )
+import           Data.Char                         (toUpper)
 
-import Data.Char.Properties.XMLCharProps( isXml1ByteChar
-                                        , isXmlLatin1Char
-                                        )
-import Data.Char.IsoLatinTables
+import           Data.Char.IsoLatinTables
+import           Data.Char.Properties.XMLCharProps (isXml1ByteChar,
+                                                    isXmlLatin1Char)
 
-import Data.String.UTF8Decoding        ( decodeUtf8, decodeUtf8EmbedErrors )
-import Data.String.EncodingNames
+import           Data.String.EncodingNames
+import           Data.String.UTF8Decoding          (decodeUtf8,
+                                                    decodeUtf8EmbedErrors)
 
 -- ------------------------------------------------------------
 
@@ -559,7 +559,7 @@
 -- the table of supported output encoding schemes and the associated
 -- conversion functions from Unicode
 
-type StringFct		= String -> String
+type StringFct          = String -> String
 
 outputEncodingTable'     :: [(String, (Char -> StringFct))]
 outputEncodingTable'
@@ -628,10 +628,10 @@
 -- substitute all Unicode characters, that are not legal 1-byte
 -- UTF-8 XML characters by a character reference.
 
-unicodeCharToXmlEntity'	:: Char -> StringFct
+unicodeCharToXmlEntity' :: Char -> StringFct
 unicodeCharToXmlEntity' c
-    | isXml1ByteChar c	= (c :)
-    | otherwise		= ((intToCharRef . fromEnum $ c) ++)
+    | isXml1ByteChar c  = (c :)
+    | otherwise         = ((intToCharRef . fromEnum $ c) ++)
 
 -- ------------------------------------------------------------
 
@@ -639,10 +639,10 @@
 -- substitute all Unicode characters, that are not legal latin1
 -- UTF-8 XML characters by a character reference.
 
-unicodeCharToLatin1' 	:: Char -> StringFct
+unicodeCharToLatin1'    :: Char -> StringFct
 unicodeCharToLatin1' c
-    | isXmlLatin1Char c	= (c :)
-    | otherwise		= ((intToCharRef . fromEnum $ c) ++)
+    | isXmlLatin1Char c = (c :)
+    | otherwise         = ((intToCharRef . fromEnum $ c) ++)
 
 -- ------------------------------------------------------------