skipping lang extents.

This commit is contained in:
Kazu Yamamoto 2014-03-25 16:02:26 +09:00
parent e9b3b44631
commit 58b64cc9e2

View File

@ -33,6 +33,8 @@
(if (string-match "^[a-z]" file) (if (string-match "^[a-z]" file)
"Main" "Main"
file)))) file))))
(while (looking-at "^{-#")
(forward-line))
(insert "module " mod " where\n"))) (insert "module " mod " where\n")))
;; (defun ghc-capitalize (str) ;; (defun ghc-capitalize (str)