module Matching.Matching (findMatch) where

import Config.YamlConfig (Filling (..))
import Data.Foldable (find)
import Data.Map (Map, toList, (!))
import Data.Text (Text)
import Data.Text qualified as T
import Matching.Parser (amountParser, runParser)
import Text.Regex.TDFA ((=~))
import Utils ((??))

findMatch :: Map Text Text -> [Filling] -> Maybe Filling
findMatch templateMap = find $ matches templateMap

matches :: Map Text Text -> Filling -> Bool
matches templateMap filling =
  all matchesEntry $ toList filling.match
 where
  matchesEntry :: (Text, Text) -> Bool
  matchesEntry (key, regex) = case key of
    -- TODO make this string more safe
    "amount" ->
      let
        matchesAmount = runParser amountParser regex ?? const False
        -- TODO don't use unsafe (!)
        amount = read $ T.unpack $ templateMap ! key
       in
        matchesAmount amount
    _otherwise -> (templateMap ! key) =~ regex