purescript-0.15.15: tests/purs/passing/QualifiedOperators/Foo.purs

module Foo where

import Prelude

tie :: Int -> Int -> Int
tie a b = (a - 1) * (b + 1)

infix 5 tie as -#-