createDirectories :: Configure -> IO ()
createDirectories conf = do
  createDirectoryIfMissing False $ templateDirectory conf
  createDirectoryIfMissing False $ htmlDirectory conf
createDirectories :: Configure -> IO ()
createDirectories conf = do
  createDirectoryIfMissing False $ templateDirectory conf
  createDirectoryIfMissing False $ htmlDirectory conf
createDirectories conf = do
  createDirectoryIfMissing False $ templateDirectory conf
  createDirectoryIfMissing False $ htmlDirectory conf