15 lines
457 B
Haskell
15 lines
457 B
Haskell
module Haboli.Euphoria.Command.Megaparsec
|
|
( cmdMega
|
|
) where
|
|
|
|
import qualified Data.Text as T
|
|
import Text.Megaparsec
|
|
|
|
import Haboli.Euphoria.Api
|
|
import Haboli.Euphoria.Client
|
|
import Haboli.Euphoria.Command
|
|
|
|
cmdMega :: Parsec e' T.Text a -> (Message -> a -> Client e ()) -> Command e
|
|
cmdMega parser f msg = case parse parser "" $ msgContent msg of
|
|
Left _ -> pure False
|
|
Right a -> True <$ f msg a
|