ruleHalfAnHour :: Rule
ruleHalfAnHour = Rule
  { name = "half an hour"
  , pattern =
    [ regex "(1/2|en halv) timme"
    ]
  , prod = \_ -> Just . Token Duration $ duration TG.Minute 30
  }
ruleHalfAnHour :: Rule
ruleHalfAnHour = Rule
  { name = "half an hour"
  , pattern =
    [ regex "(1/2|en halv) timme"
    ]
  , prod = \_ -> Just . Token Duration $ duration TG.Minute 30
  }
ruleHalfAnHour = Rule
  { name = "half an hour"
  , pattern =
    [ regex "(1/2|en halv) timme"
    ]
  , prod = \_ -> Just . Token Duration $ duration TG.Minute 30
  }