我有一个课程要求我写一个新的函数parse :: String - > STM。 Parsec已经有一个解析函数,所以我应该导入合格的parsec,以便parse返回我的包装函数。 包装器函数需要将输入字符串解析为Parsec的解析函数,并从返回的monad中解压缩结果。这是我的包装函数的代码。 如何确保在调用parse时返回我的包装函数。
[Crashlytics startWithAPIKey:@"xxxxxxx"];
[[Twitter sharedInstance] startWithConsumerKey:@"xxxx" consumerSecret:@"yyyyyyyy"];
[Fabric with:@[[Crashlytics class], [Twitter class]]];
答案 0 :(得分:0)
完全按说明书说明:
import qualified Text.Parsec
parse :: String -> Stm
parse str =
case Text.Parsec.parse procParser "" str of
Left e -> error $ show e
Right r -> r