X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FReversible.hs;fp=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FReversible.hs;h=cbd1529e38f5d50e993bea4017aa98fe7c46ec9c;hp=0000000000000000000000000000000000000000;hb=349c5a80e0b729b0e030a1ff3e47667d8afa0d36;hpb=b55e5db2a68be5d69b970bbe4b5ad447881abd3d

diff --git a/harbl/src/Network/DNS/RBL/Reversible.hs b/harbl/src/Network/DNS/RBL/Reversible.hs
new file mode 100644
index 0000000..cbd1529
--- /dev/null
+++ b/harbl/src/Network/DNS/RBL/Reversible.hs
@@ -0,0 +1,11 @@
+-- | The 'Reversible' typeclass.
+
+module Network.DNS.RBL.Reversible ( Reversible(..) )
+where
+
+-- | This class is pretty straightforward. It's for things that you
+-- can reverse, or flip around, or make backwards, or however you want
+-- to think of it. Our primary application is to hostname components.
+--
+class Reversible a where
+  backwards :: a -> a