blob: 4fbf130c41385a95ad40ae6184868840370b45c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
--- ./src/Crypt/SHA256.hs.orig 2013-02-06 07:07:21.000000000 +0100
+++ ./src/Crypt/SHA256.hs 2014-07-13 18:41:00.000000000 +0200
@@ -20,6 +20,7 @@
import Foreign.C.String ( withCString )
import Data.ByteString.Unsafe (unsafeUseAsCStringLen)
import qualified Data.ByteString as B
+import System.IO.Unsafe
sha256sum :: B.ByteString -> String
sha256sum p = unsafePerformIO $
|
