mirror/chinese-holidays-calendar
2
0
Fork 0
mirror of https://github.com/muhac/chinese-holidays-calendar.git synced 2024-11-21 01:01:50 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

extend supported data format

Browse Source
This commit is contained in:
Muhan Li 2024-06-04 04:46:06 +08:00
parent f2bd722bd7
commit 4a1dbaaae1
5 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.github/workflows/ci.yml vendored
View File

@ -39,7 +39,7 @@ jobs:
strategy: strategy:
matrix: matrix:
ghc: ["9.6", "9.8", "latest"] ghc: ["9.6", "9.8"]
cabal: ["3.10", "latest"] cabal: ["3.10", "latest"]
include: include:
- ghc: "9.2.8" - ghc: "9.2.8"

4
data/2024.txt
View File

@ -2,10 +2,10 @@
// and manually checked on 11/5/2023 // and manually checked on 11/5/2023
// source: https://www.gov.cn/zhengce/content/202310/content_6911527.htm // 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.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.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.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.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日（星期六）上班。 国庆节;2024.10.1-2024.10.7;2024.9.29,2024.10.12 // 10月1日至7日放假调休，共7天。9月29日（星期日）、10月12日（星期六）上班。

2
data/readme.txt
View File

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

6
parser.cabal
View File

@ -24,7 +24,7 @@ description: Calendar of Public Holidays in China
-- PVP summary: +-+------- breaking API changes -- PVP summary: +-+------- breaking API changes
-- | | +----- non-breaking API additions -- | | +----- non-breaking API additions
-- | | | +--- code changes with no API change -- | | | +--- code changes with no API change
version: 0.2.0.0 version: 0.2.1.0
-- A short (one-line) description of the package. -- A short (one-line) description of the package.
-- synopsis: -- synopsis:
@ -90,13 +90,13 @@ test-suite test
type: exitcode-stdio-1.0 type: exitcode-stdio-1.0
main-is: Test.hs main-is: Test.hs
other-modules: Main.Base Main.Input Main.Output 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, directory >= 1.3.6 && < 1.4,
filepath >= 1.4.2 && < 1.5, filepath >= 1.4.2 && < 1.5,
split >= 0.2.4 && < 0.3, split >= 0.2.4 && < 0.3,
time >= 1.11.1 && < 1.12, time >= 1.11.1 && < 1.12,
uuid >= 1.3.15 && < 1.4, uuid >= 1.3.15 && < 1.4,
HUnit >=1.6 && <1.7 HUnit >= 1.6 && < 1.7
hs-source-dirs: parser hs-source-dirs: parser
default-language: Haskell2010 default-language: Haskell2010

1
parser/Main/Base.hs
View File

@ -47,6 +47,7 @@ rawDate _ = return ""
toHolidayRaw :: [String] -> Maybe HolidayRaw toHolidayRaw :: [String] -> Maybe HolidayRaw
toHolidayRaw [n, r, w] = Just $ HolidayRaw n r w toHolidayRaw [n, r, w] = Just $ HolidayRaw n r w
toHolidayRaw [n, r] = toHolidayRaw [n, r, ""]
toHolidayRaw _ = Nothing toHolidayRaw _ = Nothing
data Holiday = Holiday data Holiday = Holiday