brittany keeps adding parentheses to type operator in constraint

[tomjaguarpaw]

If I start with the below program, brittany adds extra parens around (->) each time I run it.

{-# LANGUAGE TypeFamilies #-}

id :: p ~ (->) => p a a
id = Prelude.id

After running brittany several times:

{-# LANGUAGE TypeFamilies #-}

id :: p ~ ((((((((((((->)))))))))))) => p a a
id = Prelude.id

% ~/.cabal/bin/brittany --version
brittany version 0.12.0.0
Copyright (C) 2016-2018 Lennart Spitzner
There is NO WARRANTY, to the extent permitted by law.