matterhorn-31000.0.0: src/HelpTopics.hs

{-# LANGUAGE OverloadedStrings #-}
module HelpTopics
  ( helpTopics
  , lookupHelpTopic

  , mainHelpTopic
  )
where

import Prelude ()
import Prelude.Compat

import qualified Data.Text as T
import Data.Maybe (listToMaybe)

import Types

helpTopics :: [HelpTopic]
helpTopics =
    [ mainHelpTopic
    , scriptHelpTopic
    ]

mainHelpTopic :: HelpTopic
mainHelpTopic =
    HelpTopic "main" "This help page" MainHelp HelpText

scriptHelpTopic :: HelpTopic
scriptHelpTopic =
    HelpTopic "scripts" "Help on available scripts" ScriptHelp ScriptHelpText

lookupHelpTopic :: T.Text -> Maybe HelpTopic
lookupHelpTopic topic =
    listToMaybe $ filter ((== topic) . helpTopicName) helpTopics