aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/UnicodeSyntax/unicode-composition-operator.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE UnicodeSyntax #-}

module UnicodeCompositionOperator where

infixr 9 •
(•) :: (b -> c) -> (a -> b) -> (a -> c)
f • g = \x -> f (g x)

data SpecificScreenNumber = SpecificScreenNumber Int

fromSpecificScreenNumber :: SpecificScreenNumber -> Int
fromSpecificScreenNumber = undefined

instance Show SpecificScreenNumber where
  show = fromSpecificScreenNumber • succ • show