Werror

Author: wz1000

ghcide/session-loader/Development/IDE/Session/Implicit.hs

@@ -43,18 +43,18 @@ implicitConfig = (fmap . first) (CradleConfig noDeps) . inferCradleTree
 
 
 inferCradleTree :: FilePath -> MaybeT IO (CradleTree a, FilePath)
-inferCradleTree fp =
+inferCradleTree start_dir =
        maybeItsBios
    -- If we have both a config file (cabal.project/stack.yaml) and a work dir
    -- (dist-newstyle/.stack-work), prefer that
-   <|> (cabalExecutable >> cabalConfigDir fp >>= \dir -> cabalWorkDir dir >> pure (cabalCradle dir))
-   <|> (stackExecutable >> stackConfigDir fp >>= \dir -> stackWorkDir dir >> stackCradle dir)
+   <|> (cabalExecutable >> cabalConfigDir start_dir >>= \dir -> cabalWorkDir dir >> pure (cabalCradle dir))
+   <|> (stackExecutable >> stackConfigDir start_dir >>= \dir -> stackWorkDir dir >> stackCradle dir)
    -- Redo the checks, but don't check for the work-dir, maybe the user hasn't run a build yet
-   <|> (cabalExecutable >> cabalConfigDir fp >>= pure . cabalCradle)
-   <|> (stackExecutable >> stackConfigDir fp >>= stackCradle)
+   <|> (cabalExecutable >> cabalConfigDir start_dir >>= pure . cabalCradle)
+   <|> (stackExecutable >> stackConfigDir start_dir >>= stackCradle)
 
   where
-  maybeItsBios = (\wdir -> (Bios (Program $ wdir </> ".hie-bios") Nothing Nothing, wdir)) <$> biosWorkDir fp
+  maybeItsBios = (\wdir -> (Bios (Program $ wdir </> ".hie-bios") Nothing Nothing, wdir)) <$> biosWorkDir start_dir
 
   stackCradle :: FilePath -> MaybeT IO (CradleTree a, FilePath)
   stackCradle fp = do