AB

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

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_

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

-------------------------------------------------------------------------------- {-# 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