diff --git a/src/Text/ParserCombinators/UU/CHANGELOG.hs b/src/Text/ParserCombinators/UU/CHANGELOG.hs
--- a/src/Text/ParserCombinators/UU/CHANGELOG.hs
+++ b/src/Text/ParserCombinators/UU/CHANGELOG.hs
@@ -1,5 +1,9 @@
 -- | This module just contains the CHANGELOG
 --
+-- Version 2.7.2.1
+--
+-- removed a left-over from debugging
+--
 -- Version 2.7.2
 --
 -- fixed a subtle bug in the merging parsers caused by name shielding ;-{{
diff --git a/src/Text/ParserCombinators/UU/MergeAndPermute.hs b/src/Text/ParserCombinators/UU/MergeAndPermute.hs
--- a/src/Text/ParserCombinators/UU/MergeAndPermute.hs
+++ b/src/Text/ParserCombinators/UU/MergeAndPermute.hs
@@ -29,7 +29,7 @@
 --   Here we use the functions `getOneP` and `getZeroP` which are provided in the uu-parsinglib package,
 --   but they could easily be provided by other packages too.
 
-mkGram :: Show a => P t a -> Gram (P t) a
+mkGram ::  P t a -> Gram (P t) a
 mkGram p =  case getOneP p of
             Just q  -> Gram [q `Seq` Gram  [] (Just id)] (getZeroP p)
             Nothing -> Gram []                           (getZeroP p)
diff --git a/uu-parsinglib.cabal b/uu-parsinglib.cabal
--- a/uu-parsinglib.cabal
+++ b/uu-parsinglib.cabal
@@ -1,5 +1,5 @@
 Name:                uu-parsinglib
-Version:             2.7.2
+Version:             2.7.2.1
 Build-Type:          Simple
 License:             MIT
 Copyright:           S Doaitse Swierstra