{-# LANGUAGE OverloadedStrings #-}

module Bangs (Bangs) where

import Data.Aeson
import Data.Aeson.Types (Parser)
import Data.Text (Text)
import qualified Data.Map.Strict as M

-- The map stored is equivalent to `HM.HashMap Shortcut URL`.
-- For now, we're omitting category information as I don't want to force our
-- own custom bangs to need that info.
data Bangs = Bangs (M.Map Text Text) deriving (Show)
instance FromJSON Bangs where
    parseJSON b = fmap (Bangs . M.fromList) $
        (parseJSON b :: Parser [Value])
            >>= mapM (withObject "Bang" $ \ob ->
                (,) <$> ob .: "t" <*> ob .: "u")