shithub: MicroHs

ref: 3f7af2a4f9c9f042294c6e61117cc8fa3b87460a
dir: /tests/Infix.hs/

View raw version 
module Infix(main) where
import Prelude

infix 1 ===
infixl 2 +++
infixr 3 &&&

(===) :: Int -> Int -> Bool
x === y = x == y+1

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

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

main :: IO ()
main = do
  putStrLn $ show $ 2 +++ 3 &&& 4 === 17