diff --git a/invertible-syntax.cabal b/invertible-syntax.cabal
--- a/invertible-syntax.cabal
+++ b/invertible-syntax.cabal
@@ -1,5 +1,5 @@
 Name:                invertible-syntax
-Version:             0.2
+Version:             0.2.1
 Synopsis:            Invertible syntax descriptions for both parsing and pretty printing.
 Description:         Invertible syntax descriptions as a common 
                      interface for parser combinator and pretty 
diff --git a/src/Text/Syntax/Combinators.hs b/src/Text/Syntax/Combinators.hs
--- a/src/Text/Syntax/Combinators.hs
+++ b/src/Text/Syntax/Combinators.hs
@@ -20,14 +20,13 @@
   ,  sepSpace
   ,  optSpace) where
 
-import Prelude ()
+import Prelude (String)
 
 import Control.Category ((.))
 import Control.Isomorphism.Partial.Constructors (nothing, just, nil, cons, left, right)
 import Control.Isomorphism.Partial.Derived (foldl)
 import Control.Isomorphism.Partial.Prim (Iso, (<$>), inverse, element, unit, commute, ignore) 
 
-import Data.Char (String)
 import Data.Maybe (Maybe)
 import Data.Either (Either)
 
diff --git a/src/Text/Syntax/Parser/Naive.hs b/src/Text/Syntax/Parser/Naive.hs
--- a/src/Text/Syntax/Parser/Naive.hs
+++ b/src/Text/Syntax/Parser/Naive.hs
@@ -1,12 +1,11 @@
 module Text.Syntax.Parser.Naive where
 
-import Prelude ()
+import Prelude (String)
 
 import Control.Category ()
 import Control.Isomorphism.Partial (IsoFunctor, (<$>), apply)
 import Control.Monad (Monad, return, fail, (>>=))
 
-import Data.Char (String)
 import Data.List ((++))
 import Data.Maybe (Maybe (Just))
 
diff --git a/src/Text/Syntax/Printer/Naive.hs b/src/Text/Syntax/Printer/Naive.hs
--- a/src/Text/Syntax/Printer/Naive.hs
+++ b/src/Text/Syntax/Printer/Naive.hs
@@ -1,12 +1,11 @@
 module Text.Syntax.Printer.Naive where
 
-import Prelude ()
+import Prelude (String)
 
 import Control.Category ()
 import Control.Isomorphism.Partial (IsoFunctor ((<$>)), unapply)
 import Control.Monad (Monad, return, fail, (>>=), liftM2, mplus)
 
-import Data.Char (String)
 import Data.Eq (Eq ((==)))
 import Data.Function (($))
 import Data.List ((++))