Haskell - Notes Blog

Multithreaded Hakyll

I thought I could make my Hakyll site generator faster with multithreading. My attempt below has reduced the time to generate 150,000 pages from 31 minutes (with this), to 22 minutes. It is a little bit hardcoded due to my lack of experience with Haskell. I need the numbers

Haskell

Haskell: More playing with lists

module Main where import System.Environment arg_num_print :: Int -> String -> IO () arg_num_print a b = do putStr (show a) if a == 1 then putStrLn (": " ++ b ++ " (first)") else putStrLn (": " ++ b) do_list :: Int -> [String] -> IO () do_list a [b] = do putStr

Coding

Haskell Playing: Showing Args

module Main where import System.Environment arg_num_print :: Int -> String -> IO () arg_num_print a b = do putStr (show a) putStrLn (": " ++ b) do_list a (x:xs) = do arg_num_print a x do_list (a+1) xs do_list a [] = do return () main :: IO

Coding

BCrypt hash a String in Haskell

Just wanted to see if I could make this in haskell. import Crypto.KDF.BCrypt (hashPassword) import qualified Data.ByteString.Char8 as B import Data.ByteString.Base64 (encode,decode) import System.Environment runArgs :: [String] -> IO B.ByteString runArgs [a] = do hash a hash :: String -> IO B.ByteString hash

Coding

Haskell: Find and Replace in File

module MyLib ( findReplaceAndCopyFile, findReplaceInFile, replaceMarkerWithFile, replaceMarkerWithFile2, replaceMarkerWithFile3 ) where import Data.List (intercalate) import Data.List.Split (splitOn) import System.IO (stdout, hFlush, hPutStr) import Type.Reflection (typeOf) import System.Directory replaceMarkerWithFile_ :: FilePath -> FilePath -> String -> FilePath -> IO () replaceMarkerWithFile_ inFile outFile marker injectionFile = do inFileText FilePath -> String

Coding

Haskell Hakyll: site.hs

-------------------------------------------------------------------------------- {-# LANGUAGE OverloadedStrings #-} import Data.Monoid (mappend) import Hakyll import Hakyll.Web.Paginate import qualified Data.Map as M import Control.Monad (liftM) -------------------------------------------------------------------------------- main :: IO () main = hakyll $ do match "images/*" $ do route idRoute compile copyFileCompiler match "css/*" $ do route idRoute compile compressCssCompiler match (fromList ["about.rst", "contact.