From 59cee6fb0e42e5c327af4d19d07b24c0c52a6192 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <lsp@informatik.uni-kiel.de>
Date: Fri, 12 Aug 2016 17:05:50 +0200
Subject: [PATCH] Fix output validity check extensions missing

---
 src/Language/Haskell/Brittany.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Language/Haskell/Brittany.hs b/src/Language/Haskell/Brittany.hs
index fdcc0e7..a190cff 100644
--- a/src/Language/Haskell/Brittany.hs
+++ b/src/Language/Haskell/Brittany.hs
@@ -88,8 +88,12 @@ pPrintModuleAndCheck
   -> GHC.ParsedSource
   -> IO ([LayoutError], TextL.Text)
 pPrintModuleAndCheck conf anns parsedModule = do
+  let ghcOptions     = conf & _conf_forward & _options_ghc & runIdentity
   let (errs, output) = pPrintModule conf anns parsedModule
-  parseResult <- ExactPrint.Parsers.parseModuleFromString "output" (TextL.unpack output)
+  parseResult <- parseModuleFromString ghcOptions
+                                       "output"
+                                       (\_ -> return $ Right ())
+                                       (TextL.unpack output)
   let errs' = errs ++ case parseResult of
         Left{}  -> [LayoutErrorOutputCheck]
         Right{} -> []