fixing a bug to call ghc-mod twice.

This commit is contained in:
Kazu Yamamoto 2014-03-14 14:00:38 +09:00
parent 63e59cbebd
commit 90cc99f203

View File

@ -106,7 +106,7 @@
(let ((types (ghc-type-obtain-tinfos modname))) (let ((types (ghc-type-obtain-tinfos modname)))
(if (not (listp types)) ;; main does not exist in Main (if (not (listp types)) ;; main does not exist in Main
(ghc-type-set-types nil) (ghc-type-set-types nil)
(ghc-type-set-types (ghc-type-obtain-tinfos modname)) (ghc-type-set-types types)
(ghc-type-set-point (point)) (ghc-type-set-point (point))
(ghc-type-set-ix 0)))) (ghc-type-set-ix 0))))
(ghc-type-get-types)) (ghc-type-get-types))