json - Aeson:解析枚举数据类型

Question

如何声明以下数据类型的 FromJSON 实例:

data Privacy = Everyone | 
           AllFriends | 
           FriendsOfFriends | 
           Self

以便遵循枚举数据类型的以下字符串:

"EVERYONE" -> Everyone
"ALL_FRIENDS" -> AllFriends
"FRIENDS_OF_FRIENDS" -> FriendsOfFriends
"SELF" -> Self
_ -> Parsing error

提示了一个可能的解决方案 here ，但我无法编译该代码。

谢谢!

Answer 1

这种方式涉及较少的样板文件，但由于 T.unpack 可能效率不高。

data Privacy = Everyone | AllFriends | FriendsOfFriends | Self deriving (Read, Show)

instance FromJSON Privacy where
  parseJSON (String s) = fmap read (pure $ T.unpack s)
  parseJSON _ = mzero