使用Parsec编写一个新函数" parse :: String - > STM"

时间:2017-05-02 11:55:45

标签: parsing haskell monads parsec megaparsec

我有一个课程要求我写一个新的函数parse :: String - > STM。 Parsec已经有一个解析函数,所以我应该导入合格的parsec,以便parse返回我的包装函数。 包装器函数需要将输入字符串解析为Parsec的解析函数,并从返回的monad中解压缩结果。这是我的包装函数的代码。 如何确保在调用parse时返回我的包装函数。

[Crashlytics startWithAPIKey:@"xxxxxxx"];
[[Twitter sharedInstance] startWithConsumerKey:@"xxxx" consumerSecret:@"yyyyyyyy"];
 [Fabric with:@[[Crashlytics class], [Twitter class]]];

1 个答案:

答案 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