[Char]->String.
This commit is contained in:
parent
f2be5ea5e8
commit
b86b3245e0
@ -125,7 +125,10 @@
|
||||
(lambda ()
|
||||
(cd cdir)
|
||||
(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