Wingman is incorrectly not using parentheses in applications

[isovector]

Given this:

unyo :: DTree d Pair (Pair a) -> Pair (DTree d Pair a) 
unyo (DLeaf pa) = _w4j

when doing auto, wingman now writes

unyo :: DTree d Pair (Pair a) -> Pair (DTree d Pair a) 
unyo (DLeaf (Pair a a')) = Pair DLeaf a DLeaf a'

but it should be

unyo :: DTree d Pair (Pair a) -> Pair (DTree d Pair a) 
unyo (DLeaf (Pair a a')) = Pair (DLeaf a) (DLeaf a')

GHC 8.10, haskell-language-server version: 1.4.0.0