diff --git a/fb.cabal b/fb.cabal
--- a/fb.cabal
+++ b/fb.cabal
@@ -1,5 +1,5 @@
 name:              fb
-version:           0.7.4.1
+version:           0.7.5
 license:           BSD3
 license-file:      LICENSE
 author:            Felipe Lessa
@@ -85,7 +85,7 @@
       -- Library dependencies used on the tests.  No need to
       -- specify versions since they'll use the same as above.
       base, lifted-base, transformers, bytestring,
-      http-conduit, http-types, text, time, aeson
+      http-conduit, text, time, aeson
 
       -- Test-only dependencies
     , HUnit
diff --git a/src/Facebook/Base.hs b/src/Facebook/Base.hs
--- a/src/Facebook/Base.hs
+++ b/src/Facebook/Base.hs
@@ -101,7 +101,7 @@
                       }
     -- | An exception coming from the @fb@ package's code.
   | FbLibraryException { fbeMessage :: Text }
-    deriving (Eq, Ord, Show, Typeable)
+    deriving (Eq, Ord, Show, Read, Typeable)
 
 instance A.FromJSON FacebookException where
     parseJSON (A.Object v) =
diff --git a/src/Facebook/Graph.hs b/src/Facebook/Graph.hs
--- a/src/Facebook/Graph.hs
+++ b/src/Facebook/Graph.hs
@@ -52,7 +52,7 @@
 
 -- | The identification code of an object.
 newtype Id = Id { idCode :: Ascii }
-    deriving (Eq, Ord, Show, Typeable)
+    deriving (Eq, Ord, Show, Read, Typeable)
 
 instance A.FromJSON Id where
     parseJSON (A.Object v) = Id <$> v A..: "id"
diff --git a/src/Facebook/Object/User.hs b/src/Facebook/Object/User.hs
--- a/src/Facebook/Object/User.hs
+++ b/src/Facebook/Object/User.hs
@@ -40,7 +40,7 @@
          , userVerified   :: Maybe Bool
          , userEmail      :: Maybe Text
          }
-    deriving (Eq, Ord, Show, Typeable)
+    deriving (Eq, Ord, Show, Read, Typeable)
 
 instance A.FromJSON User where
     parseJSON (A.Object v) =
@@ -58,7 +58,7 @@
 
 
 -- | An user's gender.
-data Gender = Male | Female deriving (Eq, Ord, Show, Enum, Typeable)
+data Gender = Male | Female deriving (Eq, Ord, Show, Read, Enum, Typeable)
 
 instance A.FromJSON Gender where
     parseJSON (A.String "male")   = return Male
diff --git a/src/Facebook/Types.hs b/src/Facebook/Types.hs
--- a/src/Facebook/Types.hs
+++ b/src/Facebook/Types.hs
@@ -28,7 +28,7 @@
                 , appId     :: Ascii -- ^ Your application ID.
                 , appSecret :: Ascii -- ^ Your application secret key.
                 }
-    deriving (Eq, Ord, Show, Typeable)
+    deriving (Eq, Ord, Show, Read, Typeable)
 
 
 -- | An access token.  While you can make some API calls without
diff --git a/tests/runtests.hs b/tests/runtests.hs
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -7,11 +7,9 @@
 import Data.Text (Text)
 import Data.Time (parseTime)
 import Data.Word (Word8, Word16, Word32, Word)
-import Network.HTTP.Types (Ascii)
 import System.Environment (getEnv)
 import System.Exit (exitFailure)
 import System.IO.Error (isDoesNotExistError)
-import Unsafe.Coerce (unsafeCoerce)
 
 import qualified Data.Aeson as A
 import qualified Data.Aeson.Types as A
@@ -190,9 +188,7 @@
 
     prop "works for Id" $ \i ->
       let toId :: Int -> FB.Id
-          toId = id' . B.pack . show
-            where id' :: Ascii -> FB.Id
-                  id' = unsafeCoerce
+          toId = FB.Id . B.pack . show
           j = abs i
       in FB.encodeFbParam (toId j) == FB.encodeFbParam j