cakyrespa 0.0.26 → 0.0.27

raw patch · 4 files changed

+7/−3 lines, 4 filesdep ~gluturtledep ~lojbanParser

Dependency ranges changed: gluturtle, lojbanParser

Files

cakyrespa.cabal +3/−3
src/Jimpe.hs +1/−0
src/Klesi.hs +1/−0
src/Tcidu.hs +2/−0

cakyrespa.cabal view

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		cakyrespa-version:	0.0.26+version:	0.0.27 stability:	Alpha license:	BSD3 license-file:	LICENSE@@ -25,6 +25,6 @@     hs-source-dirs:	src     main-is:		cakyrespa.hs     other-modules:	Minde, Jimpe, Tcidu, Liste, Klesi-    build-depends:	base >3 && <5, lojbanParser >= 0.1.5,-        gluturtle >= 0.0.35, GLUT, yjsvg, yjtools >= 0.9.18+    build-depends:	base >3 && <5, lojbanParser >= 0.1.6,+        gluturtle >= 0.0.39, GLUT, yjsvg, yjtools >= 0.9.18     ghc-options:	-Wall

src/Jimpe.hs view

@@ -28,6 +28,7 @@ jmi (MultiText texts) args = MIDYSTE $ map (($ args) . jmi) texts jmi (Vocative "co'o") _ = COhO jmi (Vocative "fe'o") _ = COhO+jmi FAhO _ = COhO jmi l _ = SRERA $ show l  type Midytcidu = [(Tag, Sumti)] -> [Sumti] -> Maybe Minde

src/Klesi.hs view

@@ -34,6 +34,7 @@ 	| Vocative String 	| Free [Free] 	| MultiText [Text]+	| FAhO 	| UnknownText String 	| ParseError String 	deriving (Show, Eq)

src/Tcidu.hs view

@@ -40,6 +40,8 @@ 	(x', z : zs)  proc :: Int -> P.Text -> (Int, Text)+proc n (P.TopText [] (Right Nothing) [] Nothing Nothing (Just ([], "fa'o"))) =+	(0, FAhO) proc n (P.TopText _ _ _ _ (Just t) _) = proc n t proc n (P.TopText _ _ [P.VocativeSumti [(_, v, _)] _ _] _ _ _) = (n, Vocative v) proc n (P.TopText _ _ fs@(_ : _) _ _ _) = (n, Free fs)