Improvements?

gistfile1.hs

class Misty m where
  banana :: (a -> m b) -> m a -> m b
  unicorn :: a -> m a

  -- Exercise 6
  -- Relative Difficulty: 3
  -- (use banana and/or unicorn)

  furry' :: (a -> b) -> m a -> m b
  furry' f mm = banana (unicorn . f) mm

  --furry' f = banana (unicorn . f)
  --furry' f mm = banana (\x → unicorn (f x)) mm