convert-old-jsons-to-htmls.hs

{-
Copyright 2018 Japan Haskell User Group

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-}

import qualified Data.HashMap.Strict  as HM
import           Data.Traversable     (for)
import           SlackLog.Html
import           SlackLog.Types       (targetChannels)
import qualified System.Directory     as Dir
import qualified Data.Yaml            as Yaml

main :: IO ()
main = do
  logConfig <- Yaml.decodeFileThrow "slack-log.yaml"
  Dir.withCurrentDirectory "docs" $ do
    ws <- loadWorkspaceInfo logConfig "json"

    namesByChannel <- for (HM.keys $ targetChannels logConfig) $ \chanId -> do
      jsonPaths <- collectTargetJsons chanId
      convertJsonsInChannel ws chanId jsonPaths
      return (chanId, jsonPaths)

    generateIndexHtml ws namesByChannel