github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Maintain pragmas and comments occuring before the module within the module

Browse Source
This commit is contained in:
Rick Winfrey 2018-06-19 15:15:39 -07:00
parent f29cfde086
commit 66c28dd142
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Language/Haskell/Syntax.hs
View File

@ -7,9 +7,10 @@ import Diffing.Algorithm
import Prelude import Prelude
import Prologue import Prologue
data Module a = Module { moduleIdentifier :: !a data Module a = Module { moduleContext :: [a]
, moduleExports :: ![a] , moduleIdentifier :: a
, moduleStatements :: !a , moduleExports :: [a]
, moduleStatements :: a
} }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable) deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)