hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

capitalize -> upcase.

Browse Source
This commit is contained in:
Kazu Yamamoto 2011-12-26 16:27:55 +09:00
parent e4d47de1f8
commit 3a47b525fb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
elisp/ghc-command.el
View File

@ -21,7 +21,8 @@
(message "Nothing to be done")))) (message "Nothing to be done"))))
(defun ghc-insert-module-template () (defun ghc-insert-module-template ()
(let ((mod (capitalize (file-name-sans-extension (buffer-name))))) (let ((mod (file-name-sans-extension (buffer-name))))
(aset mod 0 (upcase (aref mod 0)))
(insert "module " mod " where\n"))) (insert "module " mod " where\n")))
(defun ghc-sort-lines (beg end) (defun ghc-sort-lines (beg end)