From b165de25982936c05cab8e187e68d144662585ed Mon Sep 17 00:00:00 2001
From: Nick Hu <me@nickhu.co.uk>
Date: Tue, 25 Jul 2017 18:23:52 +0100
Subject: [PATCH] fix extension support, by selecting all enabled extensions

---
 src/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index a040179..0d0e9aa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -17,7 +17,7 @@ module Main (main) where
 import Data.List (isPrefixOf, partition)
 import Data.Vector(Vector, fromList)
 import Language.Haskell.Exts.Annotated (parseFileContentsWithMode, ParseMode(..), knownExtensions, ParseResult(ParseOk, ParseFailed))
-import Language.Haskell.Exts.Extension (Language(..))
+import Language.Haskell.Exts.Extension (Language(..), Extension(EnableExtension))
 import System.Environment (getArgs, getProgName)
 import System.IO (hPutStrLn, stderr)
 import qualified Data.Text as T (unpack, lines, pack, unlines)
@@ -55,12 +55,14 @@ processFile file ignore_parse_error = do
         parseMode = ParseMode
             { parseFilename = file
             , baseLanguage = Haskell2010
-            , extensions = knownExtensions
+            , extensions = filter isEnabled knownExtensions
             , ignoreLanguagePragmas = False
             , ignoreLinePragmas = True
             , fixities = Nothing
             , ignoreFunctionArity = False
             }
+        isEnabled (EnableExtension _) = True
+        isEnabled _ = False
 
 loadFile :: FilePath -> IO (String, Vector String)
 loadFile file = do