capitalize mod name.

This commit is contained in:
Kazu Yamamoto 2011-12-16 11:01:11 +09:00
parent 921c002321
commit 100178c8ad

View File

@ -21,8 +21,7 @@
(message "Nothing to be done"))))
(defun ghc-insert-module-template ()
;; xxx mod from filename...
(let ((mod (file-name-sans-extension (buffer-name))))
(let ((mod (capitalize (file-name-sans-extension (buffer-name)))))
(insert "module " mod " where\n")))
(defun ghc-sort-lines (beg end)