Brackets and nested parsers

gistfile1.txt

foo :: Parser Foo
foo = do
  ... <- ...
  ... <- ...
  ... <- ...
  pure $ ...
  
bracket :: Parser () -> Parser () -> Parser a -> Parser a
bracket bra cket m =  bra *> m <* cket

bar :: Parser Foo
bar = bracket (void $ char '(') (void $ char ')') foo

baz :: Parser Foo
baz = bracket (void $ char '(') (void $ char ')') bar