add test for JustusAdam#167

test/test.sh

@@ -12,6 +12,7 @@ namedBroken=()
 ticketsBroken=(
   "T0153.hs"
   "T0165.hs"
+  "T0167.hs"
 )
 
 # Colours used to display test outputs.

test/tickets/T0167.hs

@@ -0,0 +1,28 @@
+-- SYNTAX TEST "source.haskell" "Interaction between record fields and context arrows"
+
+    data BuilderType = Builder
+      { (>>=)  :: forall m a b. Unrestricted.Monad     m => m a -> (a -> m b) -> m b
+--       ^^^ variable.other.member.definition.haskell
+--             ^^ keyword.operator.double-colon.haskell
+--                ^^^^^^ keyword.other.forall.haskell
+--                            ^ keyword.operator.period.haskell
+--                                                       ^^ keyword.operator.big-arrow
+      , (>>)   :: forall m b  . Unrestricted.Monad     m => m () -> m b -> m b
+--       ^^ variable.other.member.definition.haskell
+--             ^^ keyword.operator.double-colon.haskell
+--                ^^^^^^ keyword.other.forall.haskell
+--                            ^ keyword.operator.period.haskell
+--                                                       ^^ keyword.operator.big-arrow
+      , fail   :: forall m a  . Unrestricted.MonadFail m => String -> m a
+--      ^^^^ variable.other.member.definition.haskell
+--             ^^ keyword.operator.double-colon.haskell
+--                ^^^^^^ keyword.other.forall.haskell
+--                            ^ keyword.operator.period.haskell
+--                                                       ^^ keyword.operator.big-arrow
+      , return :: forall m a  . Unrestricted.Monad     m => a -> m a
+--      ^^^^^^ variable.other.member.definition.haskell
+--             ^^ keyword.operator.double-colon.haskell
+--                ^^^^^^ keyword.other.forall.haskell
+--                            ^ keyword.operator.period.haskell
+--                                                       ^^ keyword.operator.big-arrow
+      }