lojbanParser 0.1.5 → 0.1.6

raw patch · 2 files changed

+5/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• lojbanParser.cabal +1/−1
• src/TestPappy.hs +4/−3

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		lojbanParser-version:	0.1.5+version:	0.1.6 stability:	experimental author:		.iocikun.juj. <PAF01143@nifty.ne.jp> maintainer:	.iocikun.juj. <PAF01143@nifty.ne.jp>

@@ -287,14 +287,15 @@ uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d uncurry3 f (x, y, z) = f x y z -isSimpleText :: [Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) -> +isSimpleText ::+	[Clause] -> (Either [Clause] (Maybe [([String], String)]), [Free]) ->  	Maybe (JoikJek, [Free]) -> Maybe Text -> Maybe Pre -> Bool isSimpleText n tp2 jj t f = 	null n && isNothing (fromRight $ fst tp2) && null (snd tp2) && 	isNothing jj && isJust t && isNothing f -fromRight :: Either a b -> b-fromRight = either (const $ error "not Right") id+fromRight :: Either a (Maybe b) -> Maybe b+fromRight = either (const $ Nothing) id