[Char]->String.

This commit is contained in:
Kazu Yamamoto 2012-02-13 17:13:27 +09:00
parent f2be5ea5e8
commit b86b3245e0

View File

@ -125,7 +125,10 @@
(lambda () (lambda ()
(cd cdir) (cd cdir)
(apply 'call-process ghc-module-command nil t nil (apply 'call-process ghc-module-command nil t nil
`(,@(ghc-make-ghc-options) "type" ,file ,modname ,ln ,cn)))))) `(,@(ghc-make-ghc-options) "type" ,file ,modname ,ln ,cn))
(goto-char (point-min))
(while (search-forward "[Char]" nil t)
(replace-match "String"))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;