slack-web 0.2.0 → 0.2.0.1

raw patch · 2 files changed

+11/−2 lines, 2 files

Files

• slack-web.cabal +1/−1
• src/Web/Slack/MessageParser.hs +10/−1

@@ -1,5 +1,5 @@ name: slack-web-version: 0.2.0+version: 0.2.0.1  build-type: Simple cabal-version: >= 1.21

@@ -1,6 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE CPP #-}  -- | See https://api.slack.com/docs/message-formatting --@@ -16,9 +17,11 @@ import Data.List import Data.Maybe import Data.Monoid+import Data.Void  -- megaparsec import Text.Megaparsec+import Text.Megaparsec.Char  -- mtl import Data.Functor.Identity@@ -46,7 +49,13 @@   | SlackMsgItemEmoticon Text   deriving (Show, Eq) -type SlackParser a = ParsecT Dec T.Text Identity a+#if MIN_VERSION_megaparsec(6,0,0)+type MegaparsecError = Void+#else+type MegaparsecError = Dec+#endif++type SlackParser a = ParsecT MegaparsecError T.Text Identity a  parseMessage :: Text -> [SlackMsgItem] parseMessage input = fromMaybe [SlackMsgItemPlainText input] $