fix misleading error message regarding function arity

Summary:
The error reports something like the next:

  The function ‘f’ is applied to three arguments,
  but its type ‘Int -> Float -> Char -> Bool’ has only three

The orifinal type was "Monad m => Int -> Float -> m Bool", but
"m" was unified with "-> Char".

Now it looks better:

  The function ‘f’ is applied to three arguments,
  its inferred type ‘Int -> Float -> Char -> Bool’

Test Plan: T9605

Reviewers: austin, simonpj

Subscribers: carter, thomie

Differential Revision: https://phabricator.haskell.org/D556

GHC Trac Issues: #9605
add original type