cakyrespa 0.0.12 → 0.0.13

raw patch · 2 files changed

+6/−5 lines, 2 files

Files

• cakyrespa.cabal +1/−1
• src/Language/Lojban/Read.hs +5/−4

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		cakyrespa-version:	0.0.12+version:	0.0.13 stability:	Alpha license:	BSD3 license-file:	LICENSE

@@ -189,10 +189,11 @@ 		| otherwise = pa : pk 2 rest  paToInt :: [String] -> Double-paToInt = pti . reverse . processKIhO-	where-	pti [] = 0-	pti (p : rest) = fromJust (lookup' p paList) + 10 * pti rest+paToInt ("ni'u" : pas) = - (pti $ reverse $ processKIhO pas)+paToInt pas = pti $ reverse $ processKIhO pas++pti [] = 0+pti (p : rest) = fromJust (lookup' p paList) + 10 * pti rest  lookup' :: Eq a => a -> [([a], b)] -> Maybe b lookup' _ [] = Nothing