add 'StackProject' around

Language/Haskell/GhcMod/CabalHelper.hs

@@ -119,7 +119,7 @@ prepareCabalHelper = do
   let projdir = cradleRootDir crdl
       distdir = projdir </> cradleDistDir crdl
   readProc <- gmReadProcess
-  when (cradleProjectType crdl == CabalProject) $
+  when (cradleProjectType crdl == CabalProject || cradleProjectType crdl == StackProject) $
        withCabal $ liftIO $ prepare readProc projdir distdir
 
 parseCustomPackageDb :: String -> [GhcPkgDb]

Language/Haskell/GhcMod/Debug.hs

@@ -27,6 +27,7 @@ debugInfo = do
     cabal <-
         case cradleProjectType of
           CabalProject -> cabalDebug
+          StackProject -> cabalDebug
           _ -> return []
 
     pkgOpts <- packageGhcOptions

src/GHCMod.hs

@@ -669,9 +669,10 @@ nukeCaches = do
   chdir <- liftIO $ (</> "cabal-helper") <$> getAppUserDataDirectory "ghc-mod"
   c <- cradle
 
-  when (cradleProjectType c == CabalProject) $ do
+  when (cradleProjectType c == CabalProject || cradleProjectType c == StackProject) $ do
     let root = cradleRootDir c
-    liftIO $ (trySome . removeDirectoryRecursive) `mapM_` [chdir, root </> "dist"]
+    let dist = cradleDistDir c
+    liftIO $ (trySome . removeDirectoryRecursive) `mapM_` [chdir, root </> dist]
 
 trySome :: IO a -> IO (Either SomeException a)
 trySome = try