[Haskell-cafe] On to applicative

The two myAction functions below seem to be equivalent and, for this small case, show an interesting economy of code, but being far from a Haskell expert, I have to ask, is the first function as small (code wise) as it could be? Michael import Control.Applicative data Color     = Red     | Blue     | Green     | Yellow     | Orange     | Brown     | Black     | White     deriving (Show, Read, Eq, Enum, Ord, Bounded) -- myAction :: IO Color -- myAction = getLine --            >>= \str -> return (read str :: Color) myAction :: IO Color myAction = read <$> getLine