ghc-mod 1.11.2 → 1.11.3
raw patch · 5 files changed
+9/−7 lines, 5 files
Files
- Check.hs +1/−1
- GHCApi.hs +5/−2
- elisp/ghc-comp.el +1/−2
- elisp/ghc-info.el +1/−1
- ghc-mod.cabal +1/−1
Check.hs view
@@ -18,7 +18,7 @@ ---------------------------------------------------------------- check :: Options -> String -> IO [String]-check opt fileName = withGHC $ checkIt `gcatch` handleErrMsg+check opt fileName = withGHC' fileName $ checkIt `gcatch` handleErrMsg where checkIt = do (file,readLog) <- initializeGHC opt fileName options True
GHCApi.hs view
@@ -15,13 +15,16 @@ ---------------------------------------------------------------- withGHC :: Alternative m => Ghc (m a) -> IO (m a)-withGHC body = ghandle ignore $ runGhc (Just libdir) $ do+withGHC = withGHC' "Dummy"++withGHC' :: Alternative m => FilePath -> Ghc (m a) -> IO (m a)+withGHC' file body = ghandle ignore $ runGhc (Just libdir) $ do dflags <- getSessionDynFlags defaultCleanupHandler dflags body where ignore :: Alternative m => SomeException -> IO (m a) ignore e = do- hPutStr stderr "Dummy:0:0:Error:"+ hPutStr stderr $ file ++ ":0:0:Error:" hPrint stderr e exitSuccess
elisp/ghc-comp.el view
@@ -64,6 +64,7 @@ (defvar ghc-loaded-module nil) (defun ghc-comp-init ()+ (add-hook 'find-file-hook 'ghc-import-module) (let* ((syms '(ghc-module-names ghc-language-extensions ghc-option-flags@@ -226,8 +227,6 @@ ;;; ;;; Loading keywords ;;;--(add-hook 'find-file-hook 'ghc-import-module) (defun ghc-import-module () (interactive)
elisp/ghc-info.el view
@@ -14,7 +14,7 @@ (interactive "P") (let* ((modname (or (ghc-find-module-name) "Main")) (expr0 (ghc-things-at-point))- (expr (if ask (ghc-read-expression expr0) expr0))+ (expr (if (or ask (not expr0)) (ghc-read-expression expr0) expr0)) (file (buffer-file-name)) (cmds (list "info" file modname expr))) (ghc-display-information cmds nil)))
ghc-mod.cabal view
@@ -1,5 +1,5 @@ Name: ghc-mod-Version: 1.11.2+Version: 1.11.3 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3