vty-unix 0.3.0.0 → 0.4.0.0

raw patch · 4 files changed

+38/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +6/−0
src/Data/Terminfo/Eval.hs +12/−0
src/Data/Terminfo/Parse.hs +19/−1
vty-unix.cabal +1/−1

CHANGELOG.md view

@@ -1,4 +1,10 @@ +0.4.0.0+=======++* Added support for terminfo operators "*", "/", and "m" (thanks Chris+  Forno)+ 0.3.0.0 =======

src/Data/Terminfo/Eval.hs view

@@ -120,6 +120,18 @@     v1 <- pop     v0 <- pop     push $ v0 - v1+writeCapOp ArithMult = do+    v1 <- pop+    v0 <- pop+    push $ v0 * v1+writeCapOp ArithDiv = do+    v1 <- pop+    v0 <- pop+    push $ v0 `div` v1+writeCapOp ArithMod = do+    v1 <- pop+    v0 <- pop+    push $ v0 `mod` v1 writeCapOp CompareEq = do     v1 <- pop     v0 <- pop

src/Data/Terminfo/Parse.hs view

@@ -61,7 +61,7 @@       , conditionalParts :: ![(CapOps, CapOps)]       }     | BitwiseOr | BitwiseXOr | BitwiseAnd-    | ArithPlus | ArithMinus+    | ArithPlus | ArithMinus | ArithMult | ArithDiv | ArithMod     | CompareEq | CompareLt | CompareGt     deriving (Show, Eq) @@ -75,6 +75,9 @@     rnf BitwiseAnd = ()     rnf ArithPlus = ()     rnf ArithMinus = ()+    rnf ArithMult = ()+    rnf ArithDiv = ()+    rnf ArithMod = ()     rnf CompareEq = ()     rnf CompareLt = ()     rnf CompareGt = ()@@ -256,6 +259,9 @@ arithOpParser     =   plusOp     <|> minusOp+    <|> multOp+    <|> divOp+    <|> modOp     where         plusOp = do             _ <- char '+'@@ -265,6 +271,18 @@             _ <- char '-'             incOffset 1             return $ BuildResults 0 [ ArithMinus ] [ ]+        multOp = do+            _ <- char '*'+            incOffset 1+            return $ BuildResults 0 [ ArithMult ] [ ]+        divOp = do+            _ <- char '/'+            incOffset 1+            return $ BuildResults 0 [ ArithDiv ] [ ]+        modOp = do+            _ <- char 'm'+            incOffset 1+            return $ BuildResults 0 [ ArithMod ] [ ]  literalIntOpParser :: CapParser BuildResults literalIntOpParser = do

vty-unix.cabal view

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               vty-unix-version:            0.3.0.0+version:            0.4.0.0 synopsis:           Unix backend for Vty description:        This package provides Unix terminal support for Vty. license:            BSD-3-Clause