From 58b64cc9e2c28c142dba8519b04cdbc44cade280 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 25 Mar 2014 16:02:26 +0900
Subject: [PATCH] skipping lang extents.

---
 elisp/ghc-command.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/elisp/ghc-command.el b/elisp/ghc-command.el
index caa1761..342796d 100644
--- 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)