Start rolling ghc-modi into the ghc-mod executable

src/Misc.hs

@@ -11,22 +11,14 @@ module Misc (
   , newSymDbReq
   , getDb
   , checkDb
-  , prepareAutogen
   ) where
 
 import Control.Applicative ((<$>))
-import Control.Concurrent (threadDelay)
 import Control.Concurrent.Async (Async, async, wait)
 import Control.Exception (Exception)
-import Control.Monad (unless, when)
 import CoreMonad (liftIO)
 import Data.IORef (IORef, newIORef, readIORef, writeIORef)
-import Data.List (isPrefixOf)
-import Data.Maybe (isJust)
 import Data.Typeable (Typeable)
-import System.Directory (doesDirectoryExist, getDirectoryContents)
-import System.IO (openBinaryFile, IOMode(..))
-import System.Process
 
 import Language.Haskell.GhcMod
 import Language.Haskell.GhcMod.Internal
@@ -92,63 +84,3 @@ checkDb (SymDbReq ref act) db = do
         hoistGhcModT =<< liftIO (wait req)
       else
         return db
-
-----------------------------------------------------------------
-
-build :: IO ProcessHandle
-build = do
-#ifdef WINDOWS
-    nul <- openBinaryFile "NUL" AppendMode
-#else
-    nul <- openBinaryFile "/dev/null" AppendMode
-#endif
-    (_, _, _, hdl) <- createProcess $ pro nul
-    return hdl
- where
-   pro nul = CreateProcess {
-       cmdspec = RawCommand "cabal" ["build"]
-     , cwd = Nothing
-     , env = Nothing
-     , std_in = Inherit
-     , std_out = UseHandle nul
-     , std_err = UseHandle nul
-     , close_fds = False
-#if __GLASGOW_HASKELL__ >= 702
-      , create_group = True
-#endif
-#if __GLASGOW_HASKELL__ >= 707
-      , delegate_ctlc = False
-#endif
-     }
-
-autogen :: String
-autogen = "dist/build/autogen"
-
-isAutogenPrepared :: IO Bool
-isAutogenPrepared = do
-    exist <- doesDirectoryExist autogen
-    if exist then do
-        files <- filter ("." `isPrefixOf`) <$> getDirectoryContents autogen
-        if length files >= 2 then
-            return True
-          else
-            return False
-      else
-        return False
-
-watch :: Int -> ProcessHandle -> IO ()
-watch 0 _ = return ()
-watch n hdl = do
-    prepared <- isAutogenPrepared
-    if prepared then
-        interruptProcessGroupOf hdl
-      else do
-        threadDelay 100000
-        watch (n - 1) hdl
-
-prepareAutogen :: Cradle -> IO ()
-prepareAutogen crdl = when (isJust $ cradleCabalFile crdl) $ do
-    prepared <- isAutogenPrepared
-    unless prepared $ do
-        hdl <- build
-        watch 30 hdl