diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-11-21 20:57:42 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-11-21 20:57:42 -0700 |
| commit | 8888a83ef06d16d4bdd3c06bef721fff43f04175 (patch) | |
| tree | f94c6175c935a05846b6322d29625e354ff2cd17 /src/Rahm/Desktop/Hash.hs | |
| parent | e76a1c089951a72055bc8fc35808ccfa8988ddec (diff) | |
| parent | 7d6e83479719e04b77a8230a7ecf03e971cd5fc6 (diff) | |
| download | rde-8888a83ef06d16d4bdd3c06bef721fff43f04175.tar.gz rde-8888a83ef06d16d4bdd3c06bef721fff43f04175.tar.bz2 rde-8888a83ef06d16d4bdd3c06bef721fff43f04175.zip | |
Merge branch 'v017' of josher.dev:rde into v017
Diffstat (limited to 'src/Rahm/Desktop/Hash.hs')
| -rw-r--r-- | src/Rahm/Desktop/Hash.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/Hash.hs b/src/Rahm/Desktop/Hash.hs index dc58d96..abce660 100644 --- a/src/Rahm/Desktop/Hash.hs +++ b/src/Rahm/Desktop/Hash.hs @@ -1,11 +1,12 @@ {-# LANGUAGE OverloadedStrings #-} + module Rahm.Desktop.Hash where -import Numeric (showHex) +import qualified Crypto.Hash.SHA1 as SHA1 import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BC -import qualified Crypto.Hash.SHA1 as SHA1 +import Numeric (showHex) quickHash :: String -> String quickHash str = - concatMap (`showHex` "") $ BS.unpack (SHA1.hash $ BC.pack str) + concatMap (`showHex` "") $ BS.unpack (SHA1.hash $ BC.pack str) |