@@ -8,6 +8,9 @@ module Prelude where
9 on :: forall a b c. (b -> b -> c) -> (a -> b) -> a -> a -> c
9 on :: forall a b c. (b -> b -> c) -> (a -> b) -> a -> a -> c
10 on f g x y = g x `f` g y
10 on f g x y = g x `f` g y
12+ asTypeOf :: forall a. a -> a -> a
12 infixr 9 >>>
15 infixr 9 >>>
13 infixr 9 <<<
16 infixr 9 <<<