diff --git a/language-c.cabal b/language-c.cabal
--- a/language-c.cabal
+++ b/language-c.cabal
@@ -1,5 +1,5 @@
 Name:           language-c
-Version:        0.3.2
+Version:        0.3.2.1
 Cabal-Version:  >= 1.2.3
 Build-Type:     Simple
 License:        BSD3
diff --git a/src/Language/C/Analysis/Debug.hs b/src/Language/C/Analysis/Debug.hs
--- a/src/Language/C/Analysis/Debug.hs
+++ b/src/Language/C/Analysis/Debug.hs
@@ -25,7 +25,6 @@
 import Language.C.Pretty
 import Language.C.Syntax
 
-import Data.Generics
 import Text.PrettyPrint.HughesPJ
 import Data.Map (Map) ; import qualified Data.Map as Map
 
diff --git a/src/Language/C/Syntax/Constants.hs b/src/Language/C/Syntax/Constants.hs
--- a/src/Language/C/Syntax/Constants.hs
+++ b/src/Language/C/Syntax/Constants.hs
@@ -34,11 +34,11 @@
 
 -- | C char constants (abstract)
 data CChar = CChar
-              {-# UNPACK #-} !Char
-              {-# UNPACK #-} !Bool  -- wide flag
+              !Char
+              !Bool  -- wide flag
            | CChars
-                              [Char] -- multi-character character constant
-              {-# UNPACK #-} !Bool   -- wide flag
+              [Char] -- multi-character character constant
+              !Bool   -- wide flag
            deriving (Eq,Ord,Data,Typeable)
 
 instance Show CChar where
@@ -98,9 +98,9 @@
 {-# SPECIALIZE testFlag :: CIntFlag -> Flags CIntFlag -> Bool #-}
 
 data CInteger = CInteger
-                 {-# UNPACK #-} !Integer
-                 {-# UNPACK #-} !CIntRepr
-                 {-# UNPACK #-} !(Flags CIntFlag)  -- integer flags
+                 !Integer
+                 !CIntRepr
+                 !(Flags CIntFlag)  -- integer flags
                  deriving (Eq,Ord,Data,Typeable)
 instance Show CInteger where
     showsPrec _ (CInteger i repr flags) = showInt i . showString (concatMap showIFlag [FlagUnsigned .. ]) where
@@ -141,8 +141,8 @@
 
 -- | Floats (represented as strings)
 data CFloat = CFloat
-                {-# UNPACK #-} !String
-                 deriving (Eq,Ord,Data,Typeable)
+               !String
+               deriving (Eq,Ord,Data,Typeable)
 instance Show CFloat where
   showsPrec _ (CFloat internal) = showString internal