1 files changed, 0 insertions, 48 deletions

diff --git a/cryptonite-backport/Crypto/Internal/Compat.hs b/cryptonite-backport/Crypto/Internal/Compat.hs
deleted file mode 100644
index a3712a7c..00000000
--- a/cryptonite-backport/Crypto/Internal/Compat.hs
+++ /dev/null
@@ -1,48 +0,0 @@
--- |
--- Module      : Crypto.Internal.Compat
--- License     : BSD-style
--- Maintainer  : Vincent Hanquez <vincent@snarc.org>
--- Stability   : stable
--- Portability : Good
---
--- This module try to keep all the difference between versions of base
--- or other needed packages, so that modules don't need to use CPP
---
-{-# LANGUAGE CPP #-}
-module Crypto.Internal.Compat
-    ( unsafeDoIO
-    , popCount
-    , byteSwap64
-    ) where
-
-import System.IO.Unsafe
-import Data.Word
-import Data.Bits
-
--- | perform io for hashes that do allocation and ffi.
--- unsafeDupablePerformIO is used when possible as the
--- computation is pure and the output is directly linked
--- to the input. we also do not modify anything after it has
--- been returned to the user.
-unsafeDoIO :: IO a -> a
-#if __GLASGOW_HASKELL__ > 704
-unsafeDoIO = unsafeDupablePerformIO
-#else
-unsafeDoIO = unsafePerformIO
-#endif
-
-#if !(MIN_VERSION_base(4,5,0))
-popCount :: Word64 -> Int
-popCount n = loop 0 n
-  where loop c 0 = c
-        loop c i = loop (c + if testBit c 0 then 1 else 0) (i `shiftR` 1)
-#endif
-
-#if !(MIN_VERSION_base(4,7,0))
-byteSwap64 :: Word64 -> Word64
-byteSwap64 w =
-        (w `shiftR` 56)                  .|. (w `shiftL` 56)
-    .|. ((w `shiftR` 40) .&. 0xff00)     .|. ((w .&. 0xff00) `shiftL` 40)
-    .|. ((w `shiftR` 24) .&. 0xff0000)   .|. ((w .&. 0xff0000) `shiftL` 24)
-    .|. ((w `shiftR` 8)  .&. 0xff000000) .|. ((w .&. 0xff000000) `shiftL` 8)
-#endif