removing fast/slow code.

2014-03-17 15:56:00 +09:00
parent 5aa5d3cbca
commit 16e050439d
9 changed files with 8 additions and 78 deletions
--- a/Language/Haskell/GhcMod/Debug.hs
+++ b/Language/Haskell/GhcMod/Debug.hs
@@ -32,17 +32,14 @@ debug opt cradle fileName = do
            liftIO (fromCabalFile ||> return simpleCompilerOption)
          else
            return simpleCompilerOption
-    [fast] <- do
-        void $ initializeFlagsWithCradle opt cradle gopts True
-        setTargetFiles [fileName]
-        pure . canCheckFast <$> depanal [] False
+    void $ initializeFlagsWithCradle opt cradle gopts True
+    setTargetFiles [fileName]
    return [
        "Current directory:   " ++ currentDir
      , "Cabal file:          " ++ cabalFile
      , "GHC options:         " ++ unwords gopts
      , "Include directories: " ++ unwords incDir
      , "Dependent packages:  " ++ (intercalate ", " $ map fst pkgs)
-      , "Fast check:          " ++ if fast then "Yes" else "No"
      ]
  where
    currentDir = cradleCurrentDir cradle