\u0648\u0642\u062a\u06cc \u0645\u06cc \u06af\u0648\u06cc\u06cc\u0645 \u06a9\u0647 \u0641\u0627\u06cc\u0644 \u062d\u0627\u0644\u062a \u062e\u0627\u0644\u06cc \u0627\u0633\u062a\u060c \u062f\u0631 \u0648\u0627\u0642\u0639 \u06cc\u06a9 \u0634\u06cc JSON \u062e\u0627\u0644\u06cc \u0627\u0633\u062a:\n<\/p>\n
\n
{}<\/span>\n<\/span><\/code><\/pre>\n<\/div>\n\u0648\u0642\u062a\u06cc \u0641\u0627\u06cc\u0644 \u062d\u0627\u0644\u062a \u062d\u0627\u0648\u06cc \u0645\u0642\u062f\u0627\u0631\u06cc \u062f\u0627\u062f\u0647 \u0628\u0627\u0634\u062f\u060c \u06cc\u06a9 \u0634\u06cc JSON \u0628\u0627 3 \u06a9\u0644\u06cc\u062f \u0627\u0633\u062a. project<\/code>\u060c start<\/code> \u0632\u0645\u0627\u0646 \u0648 tags<\/code> \u0644\u06cc\u0633\u062a:\n<\/p>\n\n
{<\/span>\n <\/span>\"project\"<\/span>:<\/span> <\/span>\"project1\"<\/span>,<\/span>\n <\/span>\"start\"<\/span>:<\/span> <\/span>1629043200<\/span>,<\/span>\n <\/span>\"tags\"<\/span>:<\/span> <\/span>[<\/span>\"tag1\"<\/span>,<\/span> <\/span>\"tag2\"<\/span>]<\/span>\n<\/span>}<\/span>\n<\/span><\/code><\/pre>\n<\/div>\n\u0628\u06cc\u0627\u06cc\u06cc\u062f \u0628\u0627 \u0627\u06cc\u0646 \u0641\u0627\u06cc\u0644 \u062d\u0627\u0644\u062a \u06a9\u0627\u0631 \u06a9\u0646\u06cc\u0645…<\/p>\n
<\/span>\n \u0628\u0631\u0646\u0627\u0645\u0647
\n<\/span><\/h2>\n\u0627\u06cc\u0646 \u067e\u0633\u062a \u0648\u0628\u0644\u0627\u06af \u06cc\u06a9 \u0628\u0631\u0646\u0627\u0645\u0647 Literate Haskell \u0627\u0633\u062a \u06a9\u0647 \u0633\u0639\u06cc \u0645\u06cc \u06a9\u0646\u062f \u062d\u0627\u0644\u062a Watson \u0631\u0627 \u0627\u0632 \u06cc\u06a9 \u0641\u0627\u06cc\u0644 JSON \u0628\u062e\u0648\u0627\u0646\u062f \u0648 \u0622\u0646 \u0631\u0627 \u062f\u0631 \u062e\u0631\u0648\u062c\u06cc \u0627\u0633\u062a\u0627\u0646\u062f\u0627\u0631\u062f \u0686\u0627\u067e \u06a9\u0646\u062f. \u0628\u0631\u0627\u06cc \u0647\u0645\u06cc\u0646 \u067e\u0633\u062a \u0648\u0628\u0644\u0627\u06af \u062a\u0645\u0627\u0645 \u0634\u062f.<\/p>\n
\u0628\u06cc\u0627\u06cc\u06cc\u062f \u0628\u0627 \u067e\u0633\u0648\u0646\u062f\u0647\u0627\u06cc \u0632\u0628\u0627\u0646 \u0634\u0631\u0648\u0639 \u06a9\u0646\u06cc\u0645:\n<\/p>\n
\n
{-# LANGUAGE OverloadedStrings #-}<\/span>\n{-# LANGUAGE RecordWildCards #-}<\/span>\n{-# LANGUAGE TypeApplications #-}<\/span>\n<\/code><\/pre>\n<\/div>\n\u0645\u0627 \u0627\u0632 \u067e\u06a9\u06cc\u062c aeson \u0645\u0627\u0646\u0646\u062f \u067e\u0633\u062a \u0642\u0628\u0644\u06cc\u060c \u0639\u0644\u0627\u0648\u0647 \u0628\u0631 \u06a9\u062a\u0627\u0628\u062e\u0627\u0646\u0647 \u0647\u0627\u06cc\u06cc \u06a9\u0647 \u0628\u0627 GHC \u0639\u0631\u0636\u0647 \u0645\u06cc \u0634\u0648\u0646\u062f\u060c \u0627\u0633\u062a\u0641\u0627\u062f\u0647 \u062e\u0648\u0627\u0647\u06cc\u0645 \u06a9\u0631\u062f. \u0628\u06cc\u0627\u06cc\u06cc\u062f \u0648\u0627\u0631\u062f\u0627\u062a \u062e\u0648\u062f \u0631\u0627 \u0627\u062c\u0631\u0627 \u06a9\u0646\u06cc\u0645:\n<\/p>\n
\n
import<\/span> Data.Time.Clock.POSIX<\/span> (<\/span>posixSecondsToUTCTime<\/span>)<\/span>\nimport<\/span> System.Directory<\/span> (<\/span>doesFileExist<\/span>)<\/span>\nimport<\/span> System.Environment<\/span> (<\/span>getArgs<\/span>)<\/span>\nimport<\/span> qualified<\/span> Data.Aeson<\/span> as<\/span> Aeson<\/span>\nimport<\/span> qualified<\/span> Data.Text<\/span> as<\/span> T<\/span>\nimport<\/span> qualified<\/span> Data.Time<\/span> as<\/span> Time<\/span>\n<\/code><\/pre>\n<\/div>\n\u062a\u0627\u0628\u0639 \u0646\u0642\u0637\u0647 \u0648\u0631\u0648\u062f\u06cc \u0645\u0627 \u0627\u0633\u062a main<\/code> \u0637\u0628\u0642 \u0645\u0639\u0645\u0648\u0644 \u062f\u0631 \u0627\u06cc\u0646\u062c\u0627 \u0686\u06cc\u0632\u06cc \u0627\u0633\u062a \u06a9\u0647 \u0627\u0646\u062c\u0627\u0645 \u062e\u0648\u0627\u0647\u062f \u062f\u0627\u062f:<\/p>\n\n- \u0645\u0633\u06cc\u0631 \u0641\u0627\u06cc\u0644 JSON \u062d\u0627\u0644\u062a \u0631\u0627 \u0627\u0632 \u0622\u0631\u06af\u0648\u0645\u0627\u0646 \u0647\u0627\u06cc \u062e\u0637 \u0641\u0631\u0645\u0627\u0646 \u0628\u062e\u0648\u0627\u0646\u06cc\u062f.<\/li>\n
- \u0633\u0639\u06cc \u06a9\u0646\u06cc\u062f \u0648\u0636\u0639\u06cc\u062a \u0631\u0627 \u0627\u0632 \u0641\u0627\u06cc\u0644 \u0628\u062e\u0648\u0627\u0646\u06cc\u062f.<\/li>\n
- \u062f\u0631 \u0635\u0648\u0631\u062a \u0645\u0648\u0641\u0642\u06cc\u062a \u0622\u0645\u06cc\u0632 \u062e\u0648\u0627\u0646\u062f\u0646\u060c \u0648\u0636\u0639\u06cc\u062a \u0641\u0639\u0644\u06cc \u0631\u0627 \u062f\u0631 \u062e\u0631\u0648\u062c\u06cc \u0627\u0633\u062a\u0627\u0646\u062f\u0627\u0631\u062f \u0686\u0627\u067e \u06a9\u0646\u06cc\u062f\u060c \u062f\u0631 \u063a\u06cc\u0631 \u0627\u06cc\u0646 \u0635\u0648\u0631\u062a \u06cc\u06a9 \u067e\u06cc\u0627\u0645 \u0645\u0646\u0627\u0633\u0628 \u0686\u0627\u067e \u06a9\u0646\u06cc\u062f.\n<\/li>\n<\/ol>\n
\n
main<\/span> ::<\/span> IO<\/span> ()<\/span>\nmain<\/span> =<\/span> do<\/span>\n<\/code><\/pre>\n<\/div>\n\u0627\u0628\u062a\u062f\u0627 \u0633\u0639\u06cc \u06a9\u0646\u06cc\u062f \u0645\u0633\u06cc\u0631 \u0631\u0627 \u0627\u0632 \u0631\u0648\u06cc \u0622\u0631\u06af\u0648\u0645\u0627\u0646 \u0647\u0627\u06cc \u062e\u0637 \u0641\u0631\u0645\u0627\u0646 \u0628\u062e\u0648\u0627\u0646\u06cc\u062f:\n<\/p>\n
\n
fp<\/span> <-<\/span> head<\/span> <$><\/span> getArgs<\/span>\n<\/code><\/pre>\n<\/div>\n\u0633\u067e\u0633 \u0633\u0639\u06cc \u06a9\u0646\u06cc\u062f \u0648\u0636\u0639\u06cc\u062a \u0631\u0627 \u0627\u0632 \u0641\u0627\u06cc\u0644 \u0628\u062e\u0648\u0627\u0646\u06cc\u062f:\n<\/p>\n
\n
mState<\/span> <-<\/span> readState<\/span> fp<\/span>\n<\/code><\/pre>\n<\/div>\n\u062f\u0631 \u062d\u0627\u0644 \u062d\u0627\u0636\u0631\u060c \u0645\u0627 \u06cc\u06a9 \u0646\u062a\u06cc\u062c\u0647 \u0627\u0632 \u0646\u0648\u0639 Maybe CurrentState<\/code>. \u0645\u0627 \u0627\u0644\u06af\u0648\u06cc \u0645\u0637\u0627\u0628\u0642\u062a \u0631\u0627 \u0628\u0631\u0627\u06cc \u0686\u0627\u067e \u0648\u0636\u0639\u06cc\u062a \u062f\u0631 \u0635\u0648\u0631\u062a \u0645\u0648\u062c\u0648\u062f \u0628\u0648\u062f\u0646\u060c \u0627\u0646\u062c\u0627\u0645 \u0645\u06cc \u062f\u0647\u06cc\u0645:\n<\/p>\n\n
case<\/span> mState<\/span> of<\/span>\n Just<\/span> state<\/span> -><\/span> print<\/span> state<\/span>\n Nothing<\/span> -><\/span> putStrLn<\/span> \"State file can not be parsed.\"<\/span>\n<\/code><\/pre>\n<\/div>\n\u0647\u0645\u0647 \u0686\u06cc\u0632 \u0647\u0645\u06cc\u0646 \u0627\u0633\u062a main<\/code> \u0639\u0645\u0644\u06a9\u0631\u062f \u0627\u0646\u062c\u0627\u0645 \u0645\u06cc \u062f\u0647\u062f. \u062d\u0627\u0644\u0627 \u0628\u06cc\u0627\u06cc\u06cc\u062f \u0622\u0646 \u0631\u0627 \u062a\u0639\u0631\u06cc\u0641 \u06a9\u0646\u06cc\u0645 CurrentState<\/code> \u0646\u0648\u0639 \u062f\u0627\u062f\u0647 \u06a9\u0647 a \u0627\u0633\u062a \u0645\u062c\u0645\u0648\u0639<\/em> \u06a9\u062f\u06af\u0630\u0627\u0631\u06cc \u0647\u0631 \u062f\u0648 \u062d\u0627\u0644\u062a \u0628\u062f\u0648\u0646 \u0631\u062f\u06cc\u0627\u0628\u06cc \u0648 \u0631\u062f\u06cc\u0627\u0628\u06cc \u0631\u0627 \u062a\u0627\u06cc\u067e \u06a9\u0646\u06cc\u062f:\n<\/p>\n\n
data<\/span> CurrentState<\/span>\n =<\/span> CurrentStatePending<\/span>\n |<\/span> CurrentStateRunning<\/span>\n {<\/span> currentStateRunningSince<\/span> ::<\/span> !<\/span>Time<\/span>.<\/span>UTCTime<\/span>\n ,<\/span> currentStateRunningProject<\/span> ::<\/span> !<\/span>T<\/span>.<\/span>Text<\/span>\n ,<\/span> currentStateRunningTags<\/span> ::<\/span> !<\/span>[<\/span>T<\/span>.<\/span>Text<\/span>]<\/span>\n }<\/span>\n<\/code><\/pre>\n<\/div>\n… \u0648 \u0627\u0636\u0627\u0641\u0647 \u06a9\u0646\u06cc\u062f Show<\/code> \u0648 Eq<\/code> \u0646\u0645\u0648\u0646\u0647 \u0647\u0627\u06cc\u06cc \u0628\u0631\u0627\u06cc \u0622\u0646:\n<\/p>\n\n
deriving<\/span> (<\/span>Show<\/span>,<\/span> Eq<\/span>)<\/span>\n<\/code><\/pre>\n<\/div>\n\u0628\u06cc\u0627\u06cc\u06cc\u062f \u06cc\u06a9 \u0646\u0645\u0648\u0646\u0647 \u0627\u0632 \u0622\u0646 \u0631\u0627 \u062a\u0639\u0631\u06cc\u0641 \u06a9\u0646\u06cc\u0645 FromJSON<\/code> \u06a9\u0644\u0627\u0633 \u0628\u0631\u0627\u06cc \u0622\u0646 \u062a\u0627\u06cc\u067e \u06a9\u0646\u06cc\u062f. \u0645\u0627 \u0628\u0627 \u06cc\u06a9 \u0634\u06cc JSON \u0645\u0637\u0627\u0628\u0642\u062a \u062e\u0648\u0627\u0647\u06cc\u0645 \u062f\u0627\u0634\u062a:\n<\/p>\n\n
instance<\/span> Aeson<\/span>.<\/span>FromJSON<\/span> CurrentState<\/span> where<\/span>\n parseJSON<\/span> =<\/span> Aeson<\/span>.<\/span>withObject<\/span> \"CurrentState\"<\/span> $<\/span> \\<\/span>o<\/span> -><\/span> do<\/span>\n<\/code><\/pre>\n<\/div>\n\u0627\u06af\u0631 \u0634\u06cc \u062e\u0627\u0644\u06cc \u0628\u0627\u0634\u062f\u060c \u0628\u0631\u0645\u06cc \u06af\u0631\u062f\u06cc\u0645 CurrentStatePending<\/code>:\n<\/p>\n\n
if<\/span> null<\/span> o<\/span>\n then<\/span> pure<\/span> CurrentStatePending<\/span>\n<\/code><\/pre>\n<\/div>\n…\u060c \u062f\u0631 \u063a\u06cc\u0631 \u0627\u06cc\u0646 \u0635\u0648\u0631\u062a \u0633\u0639\u06cc \u06a9\u0646\u06cc\u062f \u0622\u0646 \u0631\u0627 \u062a\u062c\u0632\u06cc\u0647 \u06a9\u0646\u06cc\u062f project<\/code>\u060c start<\/code> \u0648 tags<\/code> \u0632\u0645\u06cc\u0646\u0647 \u0647\u0627:\n<\/p>\n\n
else<\/span> CurrentStateRunning<\/span>\n <$><\/span> (<\/span>fromEpoch<\/span> <$><\/span> o<\/span> Aeson<\/span>..:<\/span> \"start\"<\/span>