diff --git a/hdevtools.cabal b/hdevtools.cabal
--- a/hdevtools.cabal
+++ b/hdevtools.cabal
@@ -1,5 +1,5 @@
 name:                hdevtools
-version:             0.1.0.7
+version:             0.1.0.8
 synopsis:            Persistent GHC powered background server for FAST haskell development tools
 description:
     'hdevtools' is a backend for text editor plugins, to allow for things such as
diff --git a/src/Cabal.hs b/src/Cabal.hs
--- a/src/Cabal.hs
+++ b/src/Cabal.hs
@@ -9,7 +9,9 @@
 import Control.Exception (IOException, catch)
 import Data.Char (isSpace)
 import Data.List (foldl', nub, sort, find, isPrefixOf, isSuffixOf)
+#if __GLASGOW_HASKELL__ < 709
 import Data.Monoid (Monoid(..))
+#endif
 import Distribution.Package (PackageIdentifier(..), PackageName)
 import Distribution.PackageDescription (PackageDescription(..), Executable(..), TestSuite(..), Benchmark(..), emptyHookedBuildInfo, buildable, libBuildInfo)
 import Distribution.PackageDescription.Parse (readPackageDescription)
@@ -138,7 +140,8 @@
                                        , ghcOptSourcePath = overNubListR (map (baseDir </>)) (ghcOptSourcePath ghcOpts')
                                        }
 
-                (ghcInfo,_,_) <- GHC.configure silent (Just path) Nothing defaultProgramConfiguration
+                putStrLn "configuring"
+                (ghcInfo,_,_) <- GHC.configure silent Nothing Nothing defaultProgramConfiguration
 
                 return $ Right $ renderGhcOptions ghcInfo ghcOpts
 #else
@@ -149,34 +152,34 @@
                 return $ Right $ renderGhcOptions ghcVersion ghcOpts
 #endif
 
-    pkgLibName :: PackageDescription -> Maybe PackageName
-    pkgLibName pkgDescr = if hasLibrary pkgDescr
-                          then Just $ pkgName . package $ pkgDescr
-                          else Nothing
+pkgLibName :: PackageDescription -> Maybe PackageName
+pkgLibName pkgDescr = if hasLibrary pkgDescr
+                      then Just $ pkgName . package $ pkgDescr
+                      else Nothing
 
-    hasLibrary :: PackageDescription -> Bool
-    hasLibrary = maybe False (\_ -> True) . library
+hasLibrary :: PackageDescription -> Bool
+hasLibrary = maybe False (\_ -> True) . library
 
-    getComponentGhcOptions :: LocalBuildInfo -> Component -> GhcOptions
-    getComponentGhcOptions lbi comp =
-        componentGhcOptions silent lbi bi clbi (buildDir lbi)
+getComponentGhcOptions :: LocalBuildInfo -> Component -> GhcOptions
+getComponentGhcOptions lbi comp =
+    componentGhcOptions silent lbi bi clbi (buildDir lbi)
 
-      where bi   = componentBuildInfo comp
-            clbi = getComponentLocalBuildInfo lbi (componentName comp)
+  where bi   = componentBuildInfo comp
+        clbi = getComponentLocalBuildInfo lbi (componentName comp)
 
-    getGhcVersion :: LocalBuildInfo -> Maybe Version
-    getGhcVersion lbi = let db = withPrograms lbi
-                         in do ghc <- lookupProgram (simpleProgram "ghc") db
-                               programVersion ghc
+getGhcVersion :: LocalBuildInfo -> Maybe Version
+getGhcVersion lbi = let db = withPrograms lbi
+                     in do ghc <- lookupProgram (simpleProgram "ghc") db
+                           programVersion ghc
 
-    getSandboxPackageDB :: FilePath -> IO PackageDB
-    getSandboxPackageDB sandboxPath = do
-        contents <- readFile sandboxPath
-        return $ SpecificPackageDB $ extractValue . parse $ contents
-      where
-        pkgDbKey = "package-db:"
-        parse = head . filter (pkgDbKey `isPrefixOf`) . lines
-        extractValue = fst . break isSpace . dropWhile isSpace . drop (length pkgDbKey)
+getSandboxPackageDB :: FilePath -> IO PackageDB
+getSandboxPackageDB sandboxPath = do
+    contents <- readFile sandboxPath
+    return $ SpecificPackageDB $ extractValue . parse $ contents
+  where
+    pkgDbKey = "package-db:"
+    parse = head . filter (pkgDbKey `isPrefixOf`) . lines
+    extractValue = fst . break isSpace . dropWhile isSpace . drop (length pkgDbKey)
 
 
 findCabalFile :: FilePath -> IO (Maybe FilePath)