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 _ = ()