fieldpattern :: PatField NodeInfo -> Printer t ()
fieldpattern e =
  case e of
    PFieldPat _ n e' ->
      dependOrNewline
        (do pretty n
            write " = ")
        e'
        pretty
    _ -> prettyNoExt e


-- | Right-hand sides are dependent.
fieldpattern :: PatField NodeInfo -> Printer t ()
fieldpattern e =
  case e of
    PFieldPat _ n e' ->
      dependOrNewline
        (do pretty n
            write " = ")
        e'
        pretty
    _ -> prettyNoExt e


-- | Right-hand sides are dependent.
fieldpattern e =
  case e of
    PFieldPat _ n e' ->
      dependOrNewline
        (do pretty n
            write " = ")
        e'
        pretty
    _ -> prettyNoExt e


-- | Right-hand sides are dependent.