testsuite/tests/printer/Test19821.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE TypeFamilies #-}
module Test19821 where

type family F a b  = r | r -> a b where
  F Float  IO      = Float
  F Bool   IO      = Bool
  F a      IO      = IO a   -- (1)
  F Char   b       = b Int  -- (2)