diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,10 @@
 # libarchive
 
+## 2.0.0.2
+
+  * Export `FilePtr` type constructor
+  * Clean up spurious code
+
 ## 2.0.0.1
 
   * Polish documentation
diff --git a/libarchive.cabal b/libarchive.cabal
--- a/libarchive.cabal
+++ b/libarchive.cabal
@@ -1,6 +1,6 @@
 cabal-version:   1.18
 name:            libarchive
-version:         2.0.0.1
+version:         2.0.0.2
 license:         BSD3
 license-file:    LICENSE
 copyright:       Copyright: (c) 2018-2019 Vanessa McHale
diff --git a/src/Codec/Archive/Foreign/Archive.chs b/src/Codec/Archive/Foreign/Archive.chs
--- a/src/Codec/Archive/Foreign/Archive.chs
+++ b/src/Codec/Archive/Foreign/Archive.chs
@@ -277,6 +277,8 @@
                                      , Archive
                                      -- * Haskell types
                                      , ArchiveEncryption (..)
+                                     -- * C types
+                                     , FilePtr (..)
                                      -- * Enum types
                                      , ArchiveFilter (..)
                                      , ArchiveFormat (..)
diff --git a/src/Codec/Archive/Foreign/Archive/Macros.chs b/src/Codec/Archive/Foreign/Archive/Macros.chs
--- a/src/Codec/Archive/Foreign/Archive/Macros.chs
+++ b/src/Codec/Archive/Foreign/Archive/Macros.chs
@@ -35,7 +35,6 @@
                                             , archiveReadDiskNoAcl
                                             , archiveReadDiskNoFFlags
                                             -- * Conversion functions
-                                            , resultToErr
                                             , encryptionResult
                                             ) where
 
diff --git a/src/Codec/Archive/Types.hs b/src/Codec/Archive/Types.hs
--- a/src/Codec/Archive/Types.hs
+++ b/src/Codec/Archive/Types.hs
@@ -14,7 +14,6 @@
                            , ArchiveCloseCallback
                            , ArchiveSwitchCallback
                            -- * Marshalling functions
-                           , errorRes
                            , resultToErr
                            ) where
 
@@ -31,9 +30,6 @@
 
 resultToErr :: ArchiveResult -> CInt
 resultToErr = fromIntegral . fromEnum
-
-errorRes :: Integral a => a -> ArchiveResult
-errorRes = toEnum . fromIntegral
 
 data ArchiveEncryption = HasEncryption
                        | NoEncryption