Fix a few warnings
This commit is contained in:
parent
95b16ded6d
commit
fb19d021ca
@ -27,14 +27,14 @@ import Data.Char
|
|||||||
import Language.Haskell.GhcMod.Error
|
import Language.Haskell.GhcMod.Error
|
||||||
import Language.Haskell.GhcMod.Monad.Types
|
import Language.Haskell.GhcMod.Monad.Types
|
||||||
import Exception
|
import Exception
|
||||||
import System.Directory (getCurrentDirectory, setCurrentDirectory, doesFileExist)
|
import System.Directory (getCurrentDirectory, setCurrentDirectory, doesFileExist,
|
||||||
|
getTemporaryDirectory, canonicalizePath, doesFileExist)
|
||||||
import System.Process (readProcess)
|
import System.Process (readProcess)
|
||||||
import System.Directory (getTemporaryDirectory)
|
import System.Directory ()
|
||||||
import System.FilePath (splitDrive, takeDirectory, takeFileName, pathSeparators,
|
import System.FilePath (splitDrive, takeDirectory, takeFileName, pathSeparators,
|
||||||
(</>))
|
(</>))
|
||||||
import System.IO.Temp (createTempDirectory)
|
import System.IO.Temp (createTempDirectory)
|
||||||
import System.Environment
|
import System.Environment
|
||||||
import System.Directory
|
|
||||||
import Text.Printf
|
import Text.Printf
|
||||||
|
|
||||||
import Paths_ghc_mod (getLibexecDir)
|
import Paths_ghc_mod (getLibexecDir)
|
||||||
@ -161,6 +161,7 @@ getExecutablePath' = getExecutablePath
|
|||||||
getExecutablePath' = getProgName
|
getExecutablePath' = getProgName
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
canonFilePath :: FilePath -> IO FilePath
|
||||||
canonFilePath f = do
|
canonFilePath f = do
|
||||||
p <- canonicalizePath f
|
p <- canonicalizePath f
|
||||||
e <- doesFileExist p
|
e <- doesFileExist p
|
||||||
|
@ -28,7 +28,7 @@ Cabal-Version: >= 1.14
|
|||||||
Build-Type: Custom
|
Build-Type: Custom
|
||||||
Data-Files: elisp/Makefile
|
Data-Files: elisp/Makefile
|
||||||
elisp/*.el
|
elisp/*.el
|
||||||
|
Data-Files: LICENSE COPYING.BSD3 COPYING.AGPL3
|
||||||
Extra-Source-Files: ChangeLog
|
Extra-Source-Files: ChangeLog
|
||||||
SetupCompat.hs
|
SetupCompat.hs
|
||||||
NotCPP/*.hs
|
NotCPP/*.hs
|
||||||
|
Loading…
Reference in New Issue
Block a user