hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

refactoring ghc-modi.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-25 11:34:58 +09:00
parent 6ce9ded357
commit b2c4212c01
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/GHCModi.hs
View File

@ -2,8 +2,8 @@
module Main where module Main where
import Panic
import Control.Concurrent import Control.Concurrent
import qualified Control.Exception as E (handle, SomeException(..))
import Control.Monad (when, void) import Control.Monad (when, void)
import Data.Function import Data.Function
import Data.List (intercalate, groupBy, sort) import Data.List (intercalate, groupBy, sort)
@ -11,11 +11,10 @@ import Data.Map.Strict (Map)
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
import Data.Set (Set) import Data.Set (Set)
import qualified Data.Set as S import qualified Data.Set as S
import HscTypes (SourceError)
import qualified Exception as G (ghandle) import qualified Exception as G (ghandle)
import qualified Control.Exception as E (handle, SomeException(..))
import GHC import GHC
import GhcMonad import GhcMonad
import HscTypes (SourceError)
import Language.Haskell.GhcMod import Language.Haskell.GhcMod
import Language.Haskell.GhcMod.Internal import Language.Haskell.GhcMod.Internal
import System.IO (hFlush,stdout) import System.IO (hFlush,stdout)
@ -27,9 +26,11 @@ type Logger = IO [String]
---------------------------------------------------------------- ----------------------------------------------------------------
-- Running two GHC monad threads disables the handling of
-- C-c since installSignalHandlers is called twice, sigh.
main :: IO () main :: IO ()
main = E.handle handler $ do main = E.handle handler $ do
myThreadId >>= pushInterruptTargetThread
cradle <- findCradle cradle <- findCradle
mvar <- liftIO newEmptyMVar mvar <- liftIO newEmptyMVar
mlibdir <- getSystemLibDir mlibdir <- getSystemLibDir