1 files changed, 0 insertions, 30 deletions
diff --git a/test.hs b/test.hs
deleted file mode 100644
index 8b3a2de..0000000
--- a/test.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# 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