Упростить выражения Maybe

У меня есть следующий код, и я думаю, что он уродлив:

loginCheck = do
  ml <- getPostParam "login" -- ml and mp :: Maybe ByteString
  mp <- getPostParam "password"
  if isJust ml && isJust mp
    then authAs (fromJust ml) (fromJust mp)
    else render "Msg" [("text", "Form incomplete")]

Этот код кажется очень важным. Можно как-то упростить?