1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE PartialTypeSignatures #-} module Recursive where orr :: a -> a -> a orr = undefined g :: _ g = f `orr` True f :: _ f = g