diff --git a/llvm-general-pure.cabal b/llvm-general-pure.cabal
--- a/llvm-general-pure.cabal
+++ b/llvm-general-pure.cabal
@@ -1,5 +1,5 @@
 name: llvm-general-pure
-version: 3.3.14.0
+version: 3.3.14.1
 license: BSD3
 license-file: LICENSE
 author: Benjamin S.Scarlet <fgthb0@greynode.net>
@@ -23,7 +23,7 @@
   type: git
   location: git://github.com/bscarlet/llvm-general.git
   branch: llvm-3.3
-  tag: pure-v3.3.14.0
+  tag: pure-v3.3.14.1
 
 library
   ghc-options: -fwarn-unused-imports
@@ -79,7 +79,7 @@
     HUnit >= 1.2.4.2,
     test-framework-quickcheck2 >= 0.3.0.1,
     QuickCheck >= 2.5.1.1,
-    llvm-general-pure == 3.3.14.0,
+    llvm-general-pure == 3.3.14.1,
     containers >= 0.4.2.1,
     mtl >= 2.1.3
   hs-source-dirs: test
diff --git a/src/LLVM/General/PrettyPrint.hs b/src/LLVM/General/PrettyPrint.hs
--- a/src/LLVM/General/PrettyPrint.hs
+++ b/src/LLVM/General/PrettyPrint.hs
@@ -106,7 +106,8 @@
   ("Data.Maybe", Nothing),
   ("Data.Either", Nothing),
   ("Data.Map", Just "Map"),
-  ("Data.Set", Just "Set")
+  ("Data.Set", Just "Set"),
+  ("GHC.Base", Nothing)
  ]
 
 -- | a terse 'PrefixScheme' for types in the AST, leaving most names unqualified.
@@ -155,7 +156,9 @@
 -- | print Haskell imports to define the correct prefixes for use with the output
 -- of a given 'PrefixScheme'.
 imports :: PrefixScheme -> String
-imports (PrefixScheme p) = unlines . flip map (Map.toList p) $ \(mod, mAbbr) ->
+imports (PrefixScheme p) = unlines [
   "import " ++ maybe mod (\abbr -> "qualified " ++ mod ++ " as " ++ abbr) mAbbr
+  | (mod, mAbbr) <- Map.toList p, mod /= "GHC.Base"
+ ]