@@ -23,5 +23,9 @@ infixr 4 <$>
2323(<$>) : Functor f => (func : a -> b) -> f a -> f b
2424func <$> x = map func x
2525
26+||| Run something for effects, throwing away the return value
27+ignore : Functor f => f a -> f ()
28+ignore x = map (const ()) x
29+
2630Functor (Pair a) where
2731 map f (x, y) = (x, f y)