diff --git a/CabalHelper/Compile.hs b/CabalHelper/Compile.hs
--- a/CabalHelper/Compile.hs
+++ b/CabalHelper/Compile.hs
@@ -97,7 +97,8 @@
    compileSandbox :: FilePath -> MaybeT IO (Either ExitCode FilePath)
    compileSandbox chdir = do
        sandbox <- MaybeT $ getSandboxPkgDb projdir (display buildPlatform) =<< ghcVersion opts
-       ver <- MaybeT $ find (== cabalVer) <$> listCabalVersions' opts (Just sandbox)
+       ver <- MaybeT $ logSomeError opts "compileSandbox" $
+         find (== cabalVer) <$> listCabalVersions' opts (Just sandbox)
        vLog opts $ logMsg ++ "sandbox package-db"
        liftIO $ compileWithPkg chdir (Just sandbox) ver
 
diff --git a/CabalHelper/GuessGhc.hs b/CabalHelper/GuessGhc.hs
--- a/CabalHelper/GuessGhc.hs
+++ b/CabalHelper/GuessGhc.hs
@@ -49,11 +49,11 @@
            path              = ghcPath
            dir               = takeDirectory path
            versionSuffix     = takeVersionSuffix (dropExeExtension path)
-           guessNormal       = dir </> toolname <.> exeExtension
+           guessNormal       = dir </> toolname <.> exeExtension'
            guessGhcVersioned = dir </> (toolname ++ "-ghc" ++ versionSuffix)
-                               <.> exeExtension
+                               <.> exeExtension'
            guessVersioned    = dir </> (toolname ++ versionSuffix)
-                               <.> exeExtension
+                               <.> exeExtension'
            guesses | null versionSuffix = [guessNormal]
                    | otherwise          = [guessGhcVersioned,
                                            guessVersioned,
@@ -70,7 +70,7 @@
         dropExeExtension :: FilePath -> FilePath
         dropExeExtension filepath =
           case splitExtension filepath of
-            (filepath', extension) | extension == exeExtension -> filepath'
+            (filepath', extension) | extension == exeExtension' -> filepath'
                                    | otherwise                 -> filepath
 
 -- | @takeWhileEndLE p@ is equivalent to @reverse . takeWhile p . reverse@, but
@@ -81,3 +81,6 @@
     go x (rest, done)
       | not done && p x = (x:rest, False)
       | otherwise = (rest, True)
+
+exeExtension' :: FilePath
+exeExtension' = Distribution.Simple.BuildPaths.exeExtension
diff --git a/CabalHelper/Log.hs b/CabalHelper/Log.hs
--- a/CabalHelper/Log.hs
+++ b/CabalHelper/Log.hs
@@ -2,6 +2,7 @@
 
 import Control.Monad
 import Control.Monad.IO.Class
+import Control.Exception as E
 import Data.String
 import System.IO
 import Prelude
@@ -12,3 +13,9 @@
 vLog Options { verbose = True } msg =
     liftIO $ hPutStrLn stderr msg
 vLog _ _ = return ()
+
+logSomeError :: Options -> String -> IO (Maybe a) -> IO (Maybe a)
+logSomeError opts label a = do
+  a `E.catch` \se@(SomeException _) -> do
+      vLog opts $ label ++ ": " ++ show se
+      return Nothing
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -416,7 +416,7 @@
 findLibexecExe "cabal-helper-wrapper" = do
     libexecdir <- getLibexecDir
     let exeName = "cabal-helper-wrapper"
-        exe = libexecdir </> exeName <.> exeExtension
+        exe = libexecdir </> exeName <.> exeExtension'
 
     exists <- doesFileExist exe
 
@@ -476,3 +476,6 @@
 
 lookupEnv' :: String -> IO (Maybe String)
 lookupEnv' k = lookup k <$> getEnvironment
+
+exeExtension' :: FilePath
+exeExtension' = Distribution.Simple.BuildPaths.exeExtension
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -6,6 +6,7 @@
 import Distribution.Simple.Register
 import Distribution.Simple.InstallDirs as ID
 import Distribution.Simple.LocalBuildInfo
+import Distribution.Simple.Program
 import Distribution.PackageDescription
 
 import Control.Applicative
@@ -17,7 +18,8 @@
 main :: IO ()
 main = defaultMainWithHooks $ simpleUserHooks {
          instHook = inst,
-         copyHook = copy
+         copyHook = copy,
+         hookedPrograms = [ simpleProgram "cabal" ]
        }
 
 -- mostly copypasta from 'defaultInstallHook'
diff --git a/cabal-helper.cabal b/cabal-helper.cabal
--- a/cabal-helper.cabal
+++ b/cabal-helper.cabal
@@ -1,5 +1,5 @@
 name:                cabal-helper
-version:             0.6.3.0
+version:             0.6.3.1
 synopsis:            Simple interface to some of Cabal's configuration state used by ghc-mod
 description:
     @cabal-helper@ provides a library which wraps the internal use of
@@ -87,8 +87,17 @@
   Default-Language:    Haskell2010
   Type:                exitcode-stdio-1.0
   Main-Is:             Spec.hs
+  Other-Modules:       CabalHelper.Common
+                       CabalHelper.Compile
+                       CabalHelper.Data
+                       CabalHelper.Log
+                       CabalHelper.Sandbox
+                       CabalHelper.Types
+                       Distribution.Helper
+                       Paths_cabal_helper
   Hs-Source-Dirs:      tests, .
   GHC-Options:         -Wall
+  Build-Tools:         cabal
   Build-Depends:       base >= 4.5 && < 5
                      , cabal-helper
                      , extra
diff --git a/tests/Spec.hs b/tests/Spec.hs
--- a/tests/Spec.hs
+++ b/tests/Spec.hs
@@ -55,6 +55,10 @@
                          "1.22.2.0"
                        , "1.22.3.0"
                        , "1.22.4.0"
+                       , "1.22.5.0"
+                       , "1.22.6.0"
+                       ]),
+               ("8.0", [
                        ])
              ]