Fix warnings and errors

1 files changed, 30 insertions, 0 deletions

diff --git a/test.hs b/test.hs
new file mode 100644
index 0000000..8b3a2de
--- /dev/null
+++ b/test.hs
@@ -0,0 +1,30 @@
+{-# LANGUAGE BangPatterns #-}
+import           Control.Monad          (forM)
+import qualified Crypto.Hash.SHA256     as SHA256
+import qualified Data.ByteString.Base16 as Base16
+import qualified Data.ByteString.Char8  as BS8
+import qualified Data.ByteString.Lazy   as BSL
+import           Data.Map               (Map)
+import qualified Data.Map               as Map
+import           Hakyll
+import           System.FilePath        ((</>))
+
+type FileHashes = Map Identifier String
+
+mkFileHashes :: FilePath -> IO FileHashes
+mkFileHashes dir = do
+    allFiles <- getRecursiveContents (\_ -> return False) dir
+    fmap Map.fromList $ forM allFiles $ \path0 -> do
+        let path1 = dir </> path0
+        !h <- hash path1
+        return (fromFilePath path1, h)
+  where
+    hash :: FilePath -> IO String
+    hash fp = do
+        !h <- SHA256.hashlazy <$> BSL.readFile fp
+        return $! BS8.unpack $! Base16.encode h
+
+main :: IO ()
+main = hakyll $ do
+    fileHashes <- preprocess (mkFileHashes "images")
+    undefined