ghc-mod/Language/Haskell/GhcMod/Debug.hs

60 lines
1.9 KiB
Haskell
Raw Normal View History

2013-05-17 01:00:01 +00:00
module Language.Haskell.GhcMod.Debug (debugInfo, debug) where
2013-03-04 02:21:41 +00:00
import Control.Applicative
2013-05-09 01:09:12 +00:00
import Control.Exception.IOChoice
2013-03-13 04:17:22 +00:00
import Control.Monad
2013-03-04 02:21:41 +00:00
import Data.List (intercalate)
import Data.Maybe
2013-03-13 04:17:22 +00:00
import GHC
2013-05-18 21:16:37 +00:00
import GhcMonad (liftIO)
2013-05-17 01:00:01 +00:00
import Language.Haskell.GhcMod.CabalApi
import Language.Haskell.GhcMod.GHCApi
import Language.Haskell.GhcMod.Types
2013-03-04 02:21:41 +00:00
import Prelude
----------------------------------------------------------------
2013-05-20 05:28:56 +00:00
-- | Obtaining debug information.
debugInfo :: Options
-> Cradle
-> GHCVersion
2013-09-05 05:35:28 +00:00
-> FilePath -- ^ A target file.
2013-05-20 05:28:56 +00:00
-> IO String
2013-05-20 02:29:44 +00:00
debugInfo opt cradle ver fileName = unlines <$> withGHC fileName (debug opt cradle ver fileName)
2013-03-04 02:21:41 +00:00
2013-05-20 05:28:56 +00:00
-- | Obtaining debug information.
debug :: Options
-> Cradle
-> GHCVersion
2013-09-05 05:35:28 +00:00
-> FilePath -- ^ A target file.
2013-05-20 05:28:56 +00:00
-> Ghc [String]
2013-03-04 09:11:09 +00:00
debug opt cradle ver fileName = do
2013-09-19 06:58:50 +00:00
CompilerOptions gopts incDir pkgs <-
2013-03-04 02:21:41 +00:00
if cabal then
2013-09-19 07:21:48 +00:00
liftIO (fromCabalFile ||> return simpleCompilerOption)
2013-03-04 02:21:41 +00:00
else
2013-09-19 07:21:48 +00:00
return simpleCompilerOption
2013-05-18 21:16:37 +00:00
[fast] <- do
2013-03-13 04:17:22 +00:00
void $ initializeFlagsWithCradle opt cradle gopts True
setTargetFiles [fileName]
pure . canCheckFast <$> depanal [] False
2013-03-04 02:21:41 +00:00
return [
2013-03-04 09:11:09 +00:00
"GHC version: " ++ ver
2013-03-04 02:21:41 +00:00
, "Current directory: " ++ currentDir
, "Cabal file: " ++ cabalFile
2013-03-05 07:57:18 +00:00
, "GHC options: " ++ unwords gopts
, "Include directories: " ++ unwords incDir
2013-03-04 02:21:41 +00:00
, "Dependent packages: " ++ intercalate ", " pkgs
2013-03-04 04:11:04 +00:00
, "Fast check: " ++ if fast then "Yes" else "No"
2013-03-04 02:21:41 +00:00
]
where
currentDir = cradleCurrentDir cradle
2013-09-19 07:21:48 +00:00
mCabalFile = cradleCabalFile cradle
cabal = isJust mCabalFile
cabalFile = fromMaybe "" mCabalFile
origGopts = ghcOpts opt
simpleCompilerOption = CompilerOptions origGopts [] []
fromCabalFile = parseCabalFile file >>= getCompilerOptions origGopts cradle
where
file = fromJust mCabalFile