simplify, removing () instance

1 files changed, 1 insertions, 4 deletions

diff --git a/Hash.hs b/Hash.hs
index a76e0b4..89b0384 100644
--- a/Hash.hs
+++ b/Hash.hs
@@ -85,8 +85,5 @@ instance Hashable [Hash] where
 
 -- | Hash empty string for Nothing
 instance Hashable (Maybe Hash) where
-	hash Nothing = hash ()
+	hash Nothing = hash (mempty :: B.ByteString)
 	hash (Just v) = hash v
-
-instance Hashable () where
-	hash () = hash (mempty :: B.ByteString)