diff --git a/benchmarks/DBusBenchmarks.hs b/benchmarks/DBusBenchmarks.hs
deleted file mode 100644
--- a/benchmarks/DBusBenchmarks.hs
+++ /dev/null
@@ -1,91 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
--- Copyright (C) 2010-2011 John Millikin <john@john-millikin.com>
---
--- Licensed under the Apache License, Version 2.0 (the "License");
--- you may not use this file except in compliance with the License.
--- You may obtain a copy of the License at
---
---     http://www.apache.org/licenses/LICENSE-2.0
---
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS,
--- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
--- See the License for the specific language governing permissions and
--- limitations under the License.
-
-module Main (benchmarks, main) where
-
-import Criterion.Types
-import Data.Word (Word32)
-import Unsafe.Coerce (unsafeCoerce)
-import qualified Criterion.Main
-
-import DBus
-
-serial :: Word32 -> Serial
-serial = unsafeCoerce -- FIXME: should the Serial constructor be exposed to
-                      -- clients?
-
-empty_MethodCall :: MethodCall
-empty_MethodCall = methodCall "/" "org.i" "m"
-
-empty_MethodReturn :: MethodReturn
-empty_MethodReturn = methodReturn (serial 0)
-
-benchMarshal :: Message msg => String -> msg -> Benchmark
-benchMarshal name msg = bench name (whnf (marshalWithFds LittleEndian (serial 0)) msg)
-
-benchUnmarshal :: Message msg => String -> msg -> Benchmark
-benchUnmarshal name msg = bench name (whnf (uncurry unmarshalWithFds) (bytes, fds)) where
-    Right (bytes, fds) = marshalWithFds LittleEndian (serial 0) msg
-
-parseSig :: String -> Maybe Signature
-parseSig = parseSignature
-
-benchmarks :: [Benchmark]
-benchmarks =
-    [  bgroup "Types"
-        [ bgroup "Signature"
-            [ bench "parseSignature/small" (nf parseSig "y")
-            , bench "parseSignature/medium" (nf parseSig "yyyyuua(yv)")
-            , bench "parseSignature/large" (nf parseSig "a{s(asiiiiasa(siiia{s(iiiiv)}))}")
-            ]
-        , bgroup "ObjectPath"
-            [ bench "objectPath_/small" (nf objectPath_ "/")
-            , bench "objectPath_/medium" (nf objectPath_ "/foo/bar")
-            , bench "objectPath_/large" (nf objectPath_ "/f0OO/b4R/baz_qux/blahblahblah")
-            ]
-        , bgroup "InterfaceName"
-            [ bench "interfaceName_/small" (nf interfaceName_ "f.b")
-            , bench "interfaceName_/medium" (nf interfaceName_ "foo.bar.baz")
-            , bench "interfaceName_/large" (nf interfaceName_ "f0OOO.b4R.baz_qux.blahblahblah")
-            ]
-        , bgroup "MemberName"
-            [ bench "memberName_/small" (nf memberName_ "f")
-            , bench "memberName_/medium" (nf memberName_ "FooBar")
-            , bench "memberName_/large" (nf memberName_ "f0OOOb4RBazQuxBlahBlahBlah")
-            ]
-        , bgroup "ErrorName"
-            [ bench "errorName_/small" (nf errorName_ "f.b")
-            , bench "errorName_/medium" (nf errorName_ "foo.bar.baz")
-            , bench "errorName_/large" (nf errorName_ "f0OOO.b4R.baz_qux.blahblahblah")
-            ]
-        , bgroup "BusName"
-            [ bench "busName_/small" (nf busName_ "f.b")
-            , bench "busName_/medium" (nf busName_ "foo.bar.baz")
-            , bench "busName_/large" (nf busName_ "f0OOO.b4R.baz-qux.blahblahblah")
-            ]
-        ]
-    ,  bgroup "Marshal"
-        [ benchMarshal "MethodCall/empty" empty_MethodCall
-        , benchMarshal "MethodReturn/empty" empty_MethodReturn
-        ]
-    , bgroup "Unmarshal"
-        [ benchUnmarshal "MethodCall/empty" empty_MethodCall
-        , benchUnmarshal "MethodReturn/empty" empty_MethodReturn
-        ]
-    ]
-
-main :: IO ()
-main = Criterion.Main.defaultMain benchmarks
diff --git a/dbus.cabal b/dbus.cabal
--- a/dbus.cabal
+++ b/dbus.cabal
@@ -1,5 +1,5 @@
 name: dbus
-version: 1.3.7
+version: 1.3.8
 license: Apache-2.0
 license-file: license.txt
 author: John Millikin <john@john-millikin.com>
@@ -133,7 +133,7 @@
     , cereal < 0.6
     , containers < 0.7
     , directory < 1.4
-    , extra < 1.8
+    , extra < 1.9
     , filepath < 1.5
     , network >= 3.2 && < 3.3
     , parsec < 3.2
@@ -170,15 +170,3 @@
     DBusTests.Util
     DBusTests.Variant
     DBusTests.Wire
-
-benchmark dbus_benchmarks
-  type: exitcode-stdio-1.0
-  main-is: DBusBenchmarks.hs
-  hs-source-dirs: benchmarks
-  default-language: Haskell2010
-  ghc-options: -Wall -fno-warn-orphans
-
-  build-depends:
-      dbus
-    , base >=4 && <5
-    , criterion < 1.7