tcfail031.hs:3: Couldn't match the type
		    `PrelBase.Bool' against `PrelBase.Char'
    Expected: `PrelBase.Bool'
    Inferred: `PrelBase.Char'
    In a predicate expression:
	`'a''
    In an equation for function `f':
	`f x       =   if 'a' then 1 else 2'


Compilation had errors