Qual.curry 90 Bytes
Newer Older
1 2 3 4 5 6 7 8
module Qual where

f :: a -> ()
f x = g (Qual.g x)
  where g y = y

g :: a -> ()
g _ = ()