Add Goto Statement constructor

src/Data/Syntax/Statement.hs

@@ -22,6 +22,12 @@ data Else a = Else { elseCondition :: !a, elseBody :: !a }
 instance Eq1 Else where liftEq = genericLiftEq
 instance Show1 Else where liftShowsPrec = genericLiftShowsPrec
 
+newtype Goto a = Goto { gotoLocation :: a }
+  deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Show, Traversable)
+
+instance Eq1 Goto where liftEq = genericLiftEq
+instance Show1 Goto where liftShowsPrec = genericLiftShowsPrec
+
 -- TODO: Alternative definition would flatten if/else if/else chains: data If a = If ![(a, a)] !(Maybe a)
 
 -- | A pattern-matching or computed jump control-flow statement, like 'switch' in C or JavaScript, or 'case' in Ruby or Haskell.