module Data.Holiday.Korea where
import Data.Holiday.Model (Date(..), Holiday(..))
import Data.Maybe (listToMaybe)
import Util.Config (holidays)
import Control.Monad (msum)
import qualified Data.Time as Time
getHoliday ::
Integer
-> Int
-> Int
-> Maybe Holiday
getHoliday year month day = listToMaybe $ filter match holidays
where
match :: Holiday -> Bool
match Holiday {date = YMD (y, m, d)}
| y == year && m == month && d == day = True
match Holiday {date = MD (m, d)}
| m == month && d == day = True
match _ = False
getNearestHoliday :: Time.Day -> Maybe Holiday
getNearestHoliday day = msum . map go $ [0 .. 365]
where
go :: Integer -> Maybe Holiday
go delta =
let newDay = Time.addDays delta day
(y, m, d) = Time.toGregorian newDay
in getHoliday y m d