I wouldn't say this is simplier but here you go:
maxmin :: Ord a => a -> a -> a -> a
maxmin = (. min) . (.) . max
(Generated with pl
tool from lambdabot
http://www.haskell.org/haskellwiki/Pointfree)
lambdabot> pl maxmin a b c = max a (min b c)
maxmin = (. min) . (.) . max