Rename everything under the Network.DNS.RBL hierarchy.

[dead/harbl.git] / src / Network / DNS / RBL.hs

diff --git a/src/Network/DNS/RBL.hs b/src/Network/DNS/RBL.hs
new file mode 100644 (file)
index 0000000..5775c47
--- /dev/null
+++ b/src/Network/DNS/RBL.hs
@@ -0,0 +1,10 @@
+module Network.DNS.RBL ( lookup_simple )
+where
+
+-- | Look up the given @host@ on all of the white/blacklists contained
+--   in @rbls@. If the results, multiplied by their weights, add up to
+--   (at least) @threshold@, then @True@ is returned; that is, the
+--   @host@ is \"listed\". Otherwise, @False@ is returned.
+--
+lookup_simple :: String -> Int -> String -> Bool
+lookup_simple rbls threshold host = undefined