diff --git a/net-mqtt.cabal b/net-mqtt.cabal
--- a/net-mqtt.cabal
+++ b/net-mqtt.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 5a165eeed76406b35cd868b291e467af93ca4b8ac8a9da0670c73f3c8999b4c6
+-- hash: dcfcdd2f1a20a1390ddb1b704e80aaef402ac531570c44502ddfb47cd1ae85f4
 
 name:           net-mqtt
-version:        0.8.0.1
+version:        0.8.0.2
 synopsis:       An MQTT Protocol Implementation.
 description:    Please see the README on GitHub at <https://github.com/dustin/mqtt-hs#readme>
 category:       Network
diff --git a/src/Network/MQTT/Arbitrary.hs b/src/Network/MQTT/Arbitrary.hs
--- a/src/Network/MQTT/Arbitrary.hs
+++ b/src/Network/MQTT/Arbitrary.hs
@@ -18,8 +18,8 @@
 module Network.MQTT.Arbitrary (
   SizeT(..),
   MatchingTopic(..),
-  arbitraryTopicSegment, arbitraryTopic, arbitraryMatchingTopic,
-  v311mask
+  arbitraryTopicSegment, arbitraryTopic, arbitraryFilter,
+  arbitraryMatchingTopic, v311mask
   ) where
 
 import           Control.Applicative   (liftA2)
diff --git a/test/Spec.hs b/test/Spec.hs
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -103,10 +103,6 @@
   mapM_ (\q -> assertEqual (show q) (Just q) (qosFromInt (fromEnum q))) [QoS0 ..]
   assertEqual "invalid QoS" Nothing (qosFromInt 1939)
 
-instance Arbitrary Filter where
-  arbitrary = ttof <$> arbitrary
-    where ttof = fromString . T.unpack . unTopic
-
 instance EqProp Filter where (=-=) = eq
 instance EqProp Topic where (=-=) = eq