From 4a1dbaaae194f650b4f762d50eadf1a966df8483 Mon Sep 17 00:00:00 2001 From: Muhan Li Date: Tue, 4 Jun 2024 04:46:06 +0800 Subject: [PATCH] extend supported data format --- .github/workflows/ci.yml | 2 +- data/2024.txt | 4 ++-- data/readme.txt | 2 +- parser.cabal | 6 +++--- parser/Main/Base.hs | 1 + 5 files changed, 8 insertions(+), 7 deletions(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 5cf0bd1..686fb4c 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -39,7 +39,7 @@ jobs: strategy: matrix: - ghc: ["9.6", "9.8", "latest"] + ghc: ["9.6", "9.8"] cabal: ["3.10", "latest"] include: - ghc: "9.2.8" diff --git a/data/2024.txt b/data/2024.txt index eff20a9..f77206d 100644 --- a/data/2024.txt +++ b/data/2024.txt @@ -2,10 +2,10 @@ // and manually checked on 11/5/2023 // source: https://www.gov.cn/zhengce/content/202310/content_6911527.htm -元旦;2023.12.30-2024.1.1; // 1月1日放假，与周末连休。 +元旦;2023.12.30-2024.1.1 // 1月1日放假，与周末连休。 春节;2024.2.10-2024.2.17;2024.2.4,2024.2.18 // 2月10日至17日放假调休，共8天。2月4日（星期日）、2月18日（星期日）上班。鼓励各单位结合带薪年休假等制度落实，安排职工在除夕（2月9日）休息。 清明节;2024.4.4-2024.4.6;2024.4.7 // 4月4日至6日放假调休，共3天。4月7日（星期日）上班。 劳动节;2024.5.1-2024.5.5;2024.4.28,2024.5.11 // 5月1日至5日放假调休，共5天。4月28日（星期日）、5月11日（星期六）上班。 -端午节;2024.6.8-2024.6.10; // 6月10日放假，与周末连休。 +端午节;2024.6.8-2024.6.10 // 6月10日放假，与周末连休。 中秋节;2024.9.15-2024.9.17;2024.9.14 // 9月15日至17日放假调休，共3天。9月14日（星期六）上班。 国庆节;2024.10.1-2024.10.7;2024.9.29,2024.10.12 // 10月1日至7日放假调休，共7天。9月29日（星期日）、10月12日（星期六）上班。 diff --git a/data/readme.txt b/data/readme.txt index 927336e..2ce855f 100644 --- a/data/readme.txt +++ b/data/readme.txt @@ -2,8 +2,8 @@ 年份开头，形如 2022.txt 数据格式 +节日名;放假日期 节日名;放假日期;补班日期 -没有补班留空，“;” 不可省略 日期格式 Y.M.D,Y.M.D-Y.M.D diff --git a/parser.cabal b/parser.cabal index 5c20d6f..1e2d104 100644 --- a/parser.cabal +++ b/parser.cabal @@ -24,7 +24,7 @@ description: Calendar of Public Holidays in China -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change -version: 0.2.0.0 +version: 0.2.1.0 -- A short (one-line) description of the package. -- synopsis: @@ -90,13 +90,13 @@ test-suite test type: exitcode-stdio-1.0 main-is: Test.hs other-modules: Main.Base Main.Input Main.Output - build-depends: base >=4.16.4.0 && <4.20, + build-depends: base >= 4.16.4.0 && < 4.20, directory >= 1.3.6 && < 1.4, filepath >= 1.4.2 && < 1.5, split >= 0.2.4 && < 0.3, time >= 1.11.1 && < 1.12, uuid >= 1.3.15 && < 1.4, - HUnit >=1.6 && <1.7 + HUnit >= 1.6 && < 1.7 hs-source-dirs: parser default-language: Haskell2010 diff --git a/parser/Main/Base.hs b/parser/Main/Base.hs index f735650..004073d 100644 --- a/parser/Main/Base.hs +++ b/parser/Main/Base.hs @@ -47,6 +47,7 @@ rawDate _ = return "" toHolidayRaw :: [String] -> Maybe HolidayRaw toHolidayRaw [n, r, w] = Just $ HolidayRaw n r w +toHolidayRaw [n, r] = toHolidayRaw [n, r, ""] toHolidayRaw _ = Nothing data Holiday = Holiday