From 100178c8ad90eb332b027240cd0a1a65b2ae2b37 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Fri, 16 Dec 2011 11:01:11 +0900 Subject: [PATCH] capitalize mod name. --- elisp/ghc-command.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/elisp/ghc-command.el b/elisp/ghc-command.el index 1db0e5d..904b493 100644 --- a/elisp/ghc-command.el +++ b/elisp/ghc-command.el @@ -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)