summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKazuYamamoto <>2018-12-06 08:17:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-12-06 08:17:00 (GMT)
commitb54dc65dac3964e72f9e9214282bfd57b39cd784 (patch)
treeb69e5db866b3b91709f962fc9022563a2cdce40b
parent2531a1134bf4caabf35723e2e7a86fd324f7e591 (diff)
version 0.1.50.1.5
-rw-r--r--Text/Appar/Parser.hs3
-rw-r--r--appar.cabal7
2 files changed, 5 insertions, 5 deletions
diff --git a/Text/Appar/Parser.hs b/Text/Appar/Parser.hs
index 5a98968..b322e5c 100644
--- a/Text/Appar/Parser.hs
+++ b/Text/Appar/Parser.hs
@@ -55,6 +55,7 @@ module Text.Appar.Parser (
import Control.Applicative
import Control.Monad
+import Control.Monad.Fail
import Data.Char
import Text.Appar.Input
@@ -83,6 +84,8 @@ instance Monad (MkParser inp) where
p >>= f = P $ \bs -> case runParser p bs of
(Nothing, bs') -> (Nothing, bs')
(Just a, bs') -> runParser (f a) bs'
+
+instance MonadFail (MkParser inp) where
fail _ = P $ \bs -> (Nothing, bs)
instance MonadPlus (MkParser inp) where
diff --git a/appar.cabal b/appar.cabal
index 135abfd..020c08e 100644
--- a/appar.cabal
+++ b/appar.cabal
@@ -1,5 +1,5 @@
Name: appar
-Version: 0.1.4
+Version: 0.1.5
Author: Kazu Yamamoto <kazu@iij.ad.jp>
Maintainer: Kazu Yamamoto <kazu@iij.ad.jp>
License: BSD3
@@ -11,10 +11,7 @@ Cabal-Version: >= 1.6
Build-Type: Simple
Extra-Source-Files: README
library
- if impl(ghc >= 6.12)
- GHC-Options: -Wall -fno-warn-unused-do-bind
- else
- GHC-Options: -Wall
+ GHC-Options: -Wall -Wcompat -Wnoncanonical-monadfail-instances
Exposed-Modules: Text.Appar.String
Text.Appar.ByteString
Text.Appar.LazyByteString