[Char]->String.
This commit is contained in:
parent
f2be5ea5e8
commit
b86b3245e0
@ -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"))))))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;;;
|
;;;
|
||||||
|
Loading…
Reference in New Issue
Block a user