github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

Add GAlign to the deriving clause.

Browse Source
This commit is contained in:
Rob Rix 2017-08-23 12:10:24 -04:00
parent 0d9b29f6b6
commit 7c89e45c53
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Syntax.hs
View File

@ -111,7 +111,7 @@ data Syntax f
| Ty [f]
-- | A send statement has a channel and an expression in Go.
| Send f f
deriving (Eq, Foldable, Functor, Generic, Generic1, Mergeable, Ord, Show, Traversable, ToJSON, NFData)
deriving (Eq, Foldable, Functor, GAlign, Generic, Generic1, Mergeable, Ord, Show, Traversable, ToJSON, NFData)
extractLeafValue :: Syntax a -> Maybe Text
@ -185,4 +185,3 @@ instance Eq1 Syntax where
liftEq = genericLiftEq
instance Pretty1 DoWhile where liftPretty = genericLiftPretty
instance GAlign Syntax