NestedTypeSynonyms.purs

module Main where

import Prelude

type X = String
type Y = X -> X

fn :: Y
fn a = a

main = Control.Monad.Eff.Console.print (fn "Done")