From 66c28dd1429461d4f61ee386b2d0cc980fa1192d Mon Sep 17 00:00:00 2001
From: Rick Winfrey <rewinfrey@github.com>
Date: Tue, 19 Jun 2018 15:15:39 -0700
Subject: [PATCH] Maintain pragmas and comments occuring before the module
 within the module

---
 src/Language/Haskell/Syntax.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Language/Haskell/Syntax.hs b/src/Language/Haskell/Syntax.hs
index e47f3be66..0018e4b96 100644
--- a/src/Language/Haskell/Syntax.hs
+++ b/src/Language/Haskell/Syntax.hs
@@ -7,9 +7,10 @@ import           Diffing.Algorithm
 import           Prelude
 import           Prologue
 
-data Module a = Module { moduleIdentifier :: !a
-                       , moduleExports    :: ![a]
-                       , moduleStatements :: !a
+data Module a = Module { moduleContext    :: [a]
+                       , moduleIdentifier :: a
+                       , moduleExports    :: [a]
+                       , moduleStatements :: a
                        }
   deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)