summaryrefslogtreecommitdiff
path: root/tests/examples/ghc710/SlidingTypeSyn.hs
blob: 1a60d1f50d868c9d2305ab21ada1a2b439e20903 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{-# LANGUAGE FlexibleContexts    #-}
{-# LANGUAGE RankNTypes          #-}
{-# LANGUAGE TypeOperators       #-}
{-# LANGUAGE KindSignatures      #-}
{-# LANGUAGE LiberalTypeSynonyms #-}
{-# LANGUAGE GADTs               #-}
{-# LANGUAGE TypeFamilies        #-}


type ( f :->   g) (r :: * -> *) ix = f r ix -> g r ix

type ( f :-->  g)  b ix = f b ix -> g b ix

type ((f :---> g)) b ix = f b ix -> g b ix