module Debug where

import CabalApi
import GHCApi
import Control.Applicative
import Data.List (intercalate)
import Data.Maybe
import Prelude
import Types

----------------------------------------------------------------

debugInfo :: Options -> Cradle -> String -> IO String
debugInfo opt cradle fileName = unlines <$> debug opt cradle fileName

debug :: Options -> Cradle -> String -> IO [String]
debug opt cradle fileName = do
    (gopts, incDir, pkgs, langext) <-
        if cabal then
            fromCabalFile (ghcOpts opt) cradle
          else
            return (ghcOpts opt, [], [], [])
    dflags <- getDynFlags
    hdrext <- getHeaderExtension dflags fileName
    let th = useTemplateHaskell (Just langext) hdrext
    return [
        "GHC version:         " ++ ghcVer
      , "Current directory:   " ++ currentDir
      , "Cabal file:          " ++ cabalFile
      , "GHC options:         " ++ intercalate " " gopts
      , "Include directories: " ++ intercalate " " incDir
      , "Dependent packages:  " ++ intercalate ", " pkgs
      , "Fast check:          " ++ if th then "No" else "Yes"
      ]
  where
    ghcVer = cradleGHCVersion cradle
    currentDir = cradleCurrentDir cradle
    cabal = isJust $ cradleCabalFile cradle
    cabalFile = fromMaybe "" $ cradleCabalFile cradle