]> gitweb.michael.orlitzky.com - dead/harbl.git/blob - src/Network/DNS/RBL.hs
Rename everything under the Network.DNS.RBL hierarchy.
[dead/harbl.git] / src / Network / DNS / RBL.hs
1 module Network.DNS.RBL ( lookup_simple )
2 where
3
4 -- | Look up the given @host@ on all of the white/blacklists contained
5 -- in @rbls@. If the results, multiplied by their weights, add up to
6 -- (at least) @threshold@, then @True@ is returned; that is, the
7 -- @host@ is \"listed\". Otherwise, @False@ is returned.
8 --
9 lookup_simple :: String -> Int -> String -> Bool
10 lookup_simple rbls threshold host = undefined