extend supported data format

.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"

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日（星期六）上班。

data/readme.txt

@@ -2,8 +2,8 @@
 年份开头，形如 2022.txt
 
 数据格式
+节日名;放假日期
 节日名;放假日期;补班日期
-没有补班留空，“;” 不可省略
 
 日期格式
 Y.M.D,Y.M.D-Y.M.D

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
 

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