diff --git a/System/Console/CmdArgs/Annotate.hs b/System/Console/CmdArgs/Annotate.hs
--- a/System/Console/CmdArgs/Annotate.hs
+++ b/System/Console/CmdArgs/Annotate.hs
@@ -189,14 +189,10 @@
 (&=) :: (Data val, Data ann) => val -> ann -> val
 (&=) x y = addAnn (id_ x) (id_ y)
 
-
-{-# NOINLINE const_ #-}
-const_ :: a -> b -> b
-const_ f x = x
-
 {-# INLINE id_ #-}
 id_ :: a -> a
-id_ x = const_ (\() -> ()) x
+id_ x = case unit of () -> x
+    where unit = reverse "" `seq` ()
 
 
 ---------------------------------------------------------------------
diff --git a/System/Console/CmdArgs/Implicit/Reform.hs b/System/Console/CmdArgs/Implicit/Reform.hs
--- a/System/Console/CmdArgs/Implicit/Reform.hs
+++ b/System/Console/CmdArgs/Implicit/Reform.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE PatternGuards, RecordWildCards #-}
+{-# LANGUAGE RecordWildCards #-}
 
 module System.Console.CmdArgs.Implicit.Reform(reform) where
 
diff --git a/cmdargs.cabal b/cmdargs.cabal
--- a/cmdargs.cabal
+++ b/cmdargs.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               cmdargs
-version:            0.6.9
+version:            0.6.10
 license:            BSD3
 license-file:       LICENSE
 category:           Console