diff --git a/dbus.cabal b/dbus.cabal
--- a/dbus.cabal
+++ b/dbus.cabal
@@ -1,5 +1,5 @@
 name: dbus
-version: 0.10.9.1
+version: 0.10.9.2
 license: GPL-3
 license-file: license.txt
 author: John Millikin <john@john-millikin.com>
@@ -83,12 +83,15 @@
 source-repository this
   type: git
   location: https://john-millikin.com/code/haskell-dbus/
-  tag: haskell-dbus_0.10.9.1
+  tag: haskell-dbus_0.10.9.2
 
 library
   ghc-options: -Wall -O2
   hs-source-dirs: lib
 
+  if impl(ghc>=7.10)
+    ghc-options: -fno-warn-tabs
+
   -- IMPORTANT: keep these in sync with the test suite
   build-depends:
       base >= 4.0 && < 5.0
@@ -123,6 +126,9 @@
   main-is: DBusTests.hs
   hs-source-dirs: lib,tests
 
+  if impl(ghc>=7.10)
+    ghc-options: -fno-warn-tabs
+
   build-depends:
       base >= 4.0 && < 5.0
     , bytestring >= 0.9
@@ -149,6 +155,9 @@
   main-is: DBusBenchmarks.hs
   hs-source-dirs: benchmarks
   ghc-options: -Wall -O2 -fno-warn-orphans
+
+  if impl(ghc>=7.10)
+    ghc-options: -fno-warn-tabs
 
   build-depends:
       dbus
diff --git a/lib/DBus/Types.hs b/lib/DBus/Types.hs
--- a/lib/DBus/Types.hs
+++ b/lib/DBus/Types.hs
@@ -802,12 +802,14 @@
 	
 	wellKnown = elements alpha
 	
+	elements :: [Char] -> Parsec.Parser ()
 	elements start = do
 		element start
 		Parsec.skipMany1 $ do
 			_ <- Parsec.char '.'
 			element start
 	
+	element :: [Char] -> Parsec.Parser ()
 	element start = do
 		_ <- oneOf start
 		Parsec.skipMany (oneOf alphanum)