diff options
Diffstat (limited to 'Network/DNS/Lookup.hs')
| -rw-r--r-- | Network/DNS/Lookup.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Network/DNS/Lookup.hs b/Network/DNS/Lookup.hs index b61d543..79af339 100644 --- a/Network/DNS/Lookup.hs +++ b/Network/DNS/Lookup.hs @@ -66,11 +66,10 @@ lookupXviaMX rlv dom func = do mdps <- lookupMX rlv dom maybe (return Nothing) lookup' mdps where - lookup' dps = do - as <- catMaybes <$> mapM (func . fst) dps - case as of - [] -> return Nothing - ass -> return $ Just (concat ass) + lookup' dps = check . catMaybes <$> mapM (func . fst) dps + check as = case as of + [] -> Nothing + ass -> Just (concat ass) ---------------------------------------------------------------- |