skipping lang extents.

2014-03-25 16:02:26 +09:00 · 2014-03-25 16:02:26 +09:00 · 58b64cc9e2
parent e9b3b44631
commit 58b64cc9e2
1 changed files with 2 additions and 0 deletions
--- a/elisp/ghc-command.el
+++ b/elisp/ghc-command.el
@ -33,6 +33,8 @@
 		(if (string-match "^[a-z]" file)
 		    "Main"
 		  file))))
+    (while (looking-at "^{-#")
+      (forward-line))
    (insert "module " mod " where\n")))

 ;; (defun ghc-capitalize (str)