summaryrefslogtreecommitdiff
path: root/tests/examples/ghc710/OveridingPrimitives.hs
blob: 212e9da5accb76e554a49af1ea646e455ccb8a4e (plain)
1
2
3
4
5
6
{-# LANGUAGE DataKinds              #-}
{-# LANGUAGE TypeOperators          #-}

(~#) :: Comonad w => CascadeW w (t ': ts) -> w t -> Last (t ': ts)
(~#) = cascadeW
infixr 0 ~#