gistfile1.txt

(defun ghc-run-ghc-mod (cmds &optional prog)
  (let ((target (or prog ghc-module-command)))
    (let ((cdir default-directory))
      (with-temp-buffer
        (cd cdir)
        (apply 'ghc-call-process target nil t nil
               (append (ghc-make-ghc-options) cmds))
        (buffer-substring (point-min) (1- (point-max)))))))