From f43d340fd2911695ae6069173954292e144faf6e Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Sun, 5 Apr 2015 07:33:37 +0100
Subject: [PATCH] improve parsing further

---
 QA.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/QA.hs b/QA.hs
index e670c0b..4abc72e 100644
--- a/QA.hs
+++ b/QA.hs
@@ -21,12 +21,12 @@ main = do
             let mexts = readExtensions content
             case mexts of
                 Nothing        -> printError "failed to parsed extensions"
-                Just (_, exts) -> qaExts content exts
+                Just (_, exts) -> qaExts file content exts
 
-        qaExts content exts = do
+        qaExts file content exts = do
             putStrLn ("extensions : " ++ (intercalate ", " $ map show exts))
 
-            let mode = defaultParseMode { extensions = exts }
+            let mode = defaultParseMode { parseFilename = file, extensions = exts }
 
             case parseModuleWithMode mode content of
                 ParseFailed srcLoc s -> printError ("failed to parse module: " ++ show srcLoc ++ " : " ++ s)