diff options
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/test.hs b/test.hs deleted file mode 100644 index aea447c..0000000 --- a/test.hs +++ /dev/null @@ -1,28 +0,0 @@ -{-# LANGUAGE BangPatterns #-} -import Control.Monad (forM) -import qualified Data.ByteString.Base16 as Base16 -import qualified Data.ByteString.Char8 as BS8 -import qualified Data.ByteString.Lazy as BSL -import qualified Data.Hashable as DH -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 = (show . DH.hash) <$> BSL.readFile fp - -main :: IO () -main = hakyll $ do - fileHashes <- preprocess (mkFileHashes "images") - undefined |