From 53d47a403f8e940f6f55f292c3d5d4b2edc0b3cb Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 28 Nov 2013 06:54:51 +0400
Subject: Hide InfoHash internal functions

---
 src/Data/Torrent/InfoHash.hs | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'src/Data/Torrent')

diff --git a/src/Data/Torrent/InfoHash.hs b/src/Data/Torrent/InfoHash.hs
index fd57700a..e9e6cf39 100644
--- a/src/Data/Torrent/InfoHash.hs
+++ b/src/Data/Torrent/InfoHash.hs
@@ -21,15 +21,10 @@ module Data.Torrent.InfoHash
        , shortHex
 
        , addHashToURI
-
-         -- * Internal
-       , Data.Torrent.InfoHash.hash
-       , Data.Torrent.InfoHash.hashlazy
        ) where
 
 import Control.Applicative
 import Control.Monad
-import qualified Crypto.Hash.SHA1 as C
 import Data.Aeson
 import Data.BEncode
 import Data.ByteString as BS
@@ -151,14 +146,6 @@ shortHex = T.take 7 . longHex
 ppHex :: BS.ByteString -> BS.ByteString
 ppHex = BL.toStrict . B.toLazyByteString . B.byteStringHexFixed
 
--- | Hash strict bytestring using SHA1 algorithm.
-hash :: BS.ByteString -> InfoHash
-hash = InfoHash . C.hash
-
--- | Hash lazy bytestring using SHA1 algorithm.
-hashlazy :: BL.ByteString -> InfoHash
-hashlazy = InfoHash . C.hashlazy
-
 -- | Add query info hash parameter to uri.
 --
 --   > info_hash=<url_encoded_info_hash>
-- 
cgit v1.2.3