packages feed

vty 5.25 → 5.25.1

raw patch · 3 files changed

+10/−12 lines, 3 filesdep ~microlensPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: microlens

API changes (from Hackage documentation)

- Graphics.Vty.Config: instance GHC.Exception.Exception Graphics.Vty.Config.VtyConfigurationError
- Graphics.Vty.PictureToSpans: (+~) :: Num a => ASetter s t a a -> a -> s -> t
- Graphics.Vty.PictureToSpans: (-~) :: Num a => ASetter s t a a -> a -> s -> t
+ Graphics.Vty.Config: instance GHC.Exception.Type.Exception Graphics.Vty.Config.VtyConfigurationError
- Graphics.Vty: Vty :: Picture -> IO () -> IO Event -> IO (Maybe Event) -> Input -> Output -> IO () -> IO () -> IO Bool -> Vty
+ Graphics.Vty: Vty :: (Picture -> IO ()) -> IO Event -> IO (Maybe Event) -> Input -> Output -> IO () -> IO () -> IO Bool -> Vty
- Graphics.Vty.Attributes: Attr :: !(MaybeDefault Style) -> !(MaybeDefault Color) -> !(MaybeDefault Color) -> !(MaybeDefault Text) -> Attr
+ Graphics.Vty.Attributes: Attr :: !MaybeDefault Style -> !MaybeDefault Color -> !MaybeDefault Color -> !MaybeDefault Text -> Attr
- Graphics.Vty.Attributes: FixedAttr :: !Style -> !(Maybe Color) -> !(Maybe Color) -> !(Maybe Text) -> FixedAttr
+ Graphics.Vty.Attributes: FixedAttr :: !Style -> !Maybe Color -> !Maybe Color -> !Maybe Text -> FixedAttr
- Graphics.Vty.Attributes: [attrBackColor] :: Attr -> !(MaybeDefault Color)
+ Graphics.Vty.Attributes: [attrBackColor] :: Attr -> !MaybeDefault Color
- Graphics.Vty.Attributes: [attrForeColor] :: Attr -> !(MaybeDefault Color)
+ Graphics.Vty.Attributes: [attrForeColor] :: Attr -> !MaybeDefault Color
- Graphics.Vty.Attributes: [attrStyle] :: Attr -> !(MaybeDefault Style)
+ Graphics.Vty.Attributes: [attrStyle] :: Attr -> !MaybeDefault Style
- Graphics.Vty.Attributes: [attrURL] :: Attr -> !(MaybeDefault Text)
+ Graphics.Vty.Attributes: [attrURL] :: Attr -> !MaybeDefault Text
- Graphics.Vty.Attributes: [fixedBackColor] :: FixedAttr -> !(Maybe Color)
+ Graphics.Vty.Attributes: [fixedBackColor] :: FixedAttr -> !Maybe Color
- Graphics.Vty.Attributes: [fixedForeColor] :: FixedAttr -> !(Maybe Color)
+ Graphics.Vty.Attributes: [fixedForeColor] :: FixedAttr -> !Maybe Color
- Graphics.Vty.Attributes: [fixedURL] :: FixedAttr -> !(Maybe Text)
+ Graphics.Vty.Attributes: [fixedURL] :: FixedAttr -> !Maybe Text
- Graphics.Vty.Debug: forwardTransform :: ImageOp -> (Image -> Image)
+ Graphics.Vty.Debug: forwardTransform :: ImageOp -> Image -> Image
- Graphics.Vty.Debug: reverseTransform :: ImageOp -> (Image -> Image)
+ Graphics.Vty.Debug: reverseTransform :: ImageOp -> Image -> Image
- Graphics.Vty.Input: EvMouseUp :: Int -> Int -> (Maybe Button) -> Event
+ Graphics.Vty.Input: EvMouseUp :: Int -> Int -> Maybe Button -> Event
- Graphics.Vty.Input.Events: EvMouseUp :: Int -> Int -> (Maybe Button) -> Event
+ Graphics.Vty.Input.Events: EvMouseUp :: Int -> Int -> Maybe Button -> Event
- Graphics.Vty.Output.Interface: DisplayContext :: Output -> DisplayRegion -> Int -> Int -> Write -> Write -> Write -> Bool -> FixedAttr -> Attr -> DisplayAttrDiff -> Write -> Bool -> Write -> Write -> IO () -> DisplayContext
+ Graphics.Vty.Output.Interface: DisplayContext :: Output -> DisplayRegion -> (Int -> Int -> Write) -> Write -> Write -> (Bool -> FixedAttr -> Attr -> DisplayAttrDiff -> Write) -> (Bool -> Write) -> Write -> IO () -> DisplayContext
- Graphics.Vty.Output.Interface: Output :: String -> forall m. MonadIO m => m () -> forall m. MonadIO m => m () -> forall m. MonadIO m => m () -> forall m. MonadIO m => m DisplayRegion -> ByteString -> IO () -> Int -> Bool -> Mode -> Bool -> forall m. MonadIO m => Mode -> Bool -> m () -> forall m. MonadIO m => Mode -> m Bool -> IORef AssumedState -> forall m. MonadIO m => Output -> DisplayRegion -> m DisplayContext -> forall m. MonadIO m => m () -> forall m. MonadIO m => m Bool -> Output
+ Graphics.Vty.Output.Interface: Output :: String -> (forall m. MonadIO m => m ()) -> (forall m. MonadIO m => m ()) -> (forall m. MonadIO m => m ()) -> (forall m. MonadIO m => m DisplayRegion) -> (ByteString -> IO ()) -> Int -> Bool -> (Mode -> Bool) -> (forall m. MonadIO m => Mode -> Bool -> m ()) -> (forall m. MonadIO m => Mode -> m Bool) -> IORef AssumedState -> (forall m. MonadIO m => Output -> DisplayRegion -> m DisplayContext) -> (forall m. MonadIO m => m ()) -> (forall m. MonadIO m => m Bool) -> Output
- Graphics.Vty.PictureToSpans: mrowOps :: forall s_a1pQL s_a1pTa. Lens (BlitEnv s_a1pQL) (BlitEnv s_a1pTa) (MRowOps s_a1pQL) (MRowOps s_a1pTa)
+ Graphics.Vty.PictureToSpans: mrowOps :: forall s_a1rZK s_a1s2f. Lens (BlitEnv s_a1rZK) (BlitEnv s_a1s2f) (MRowOps s_a1rZK) (MRowOps s_a1s2f)
- Graphics.Vty.PictureToSpans: region :: forall s_a1pQL. Lens' (BlitEnv s_a1pQL) DisplayRegion
+ Graphics.Vty.PictureToSpans: region :: forall s_a1rZK. Lens' (BlitEnv s_a1rZK) DisplayRegion

Files

CHANGELOG.md view
@@ -1,4 +1,8 @@ +5.25.1+ - Avoided a conflict with a Microlens 0.4.10 operator and added an+   upper bound on Microlens of 0.4.11.+ 5.25  - The Vty type got a new field, isShutdown, that returns whether the    Vty handle has had its 'shutdown' function called (thanks Ian
src/Graphics/Vty/PictureToSpans.hs view
@@ -298,11 +298,11 @@     state <- get     when (state^.remaining <= 0) $ fail $ name ++ " with remaining <= 0"     case state^.skip of-        s | s > size -> put $ state & skip -~ size+        s | s > size -> put $ state & skip %~ subtract size           | s == 0    -> if state^.remaining > i0Dim                             then do                                 addMaybeClipped i0-                                put $ state & offset +~ i0Dim & remaining -~ i0Dim+                                put $ state & offset %~ (+ i0Dim) & remaining %~ subtract i0Dim                                 addMaybeClipped i1                             else addMaybeClipped i0           | s < i0Dim  ->@@ -311,10 +311,10 @@                     then addMaybeClipped i0                     else do                         addMaybeClipped i0-                        put $ state & offset +~ i0Dim' & remaining -~ i0Dim' & skip .~ 0+                        put $ state & offset %~ (+ i0Dim') & remaining %~ subtract i0Dim' & skip .~ 0                         addMaybeClipped i1           | s >= i0Dim -> do-                put $ state & skip -~ i0Dim+                put $ state & skip %~ subtract i0Dim                 addMaybeClipped i1         _ -> fail $ name ++ " has unhandled skip class" @@ -346,9 +346,3 @@         when (spanOpsEffectedColumns ops' > regionWidth theRegion)              $ fail $ "row " ++ show row ++ " now exceeds region width"         MVector.write theMrowOps row ops'--(-~) :: Num a => ASetter s t a a -> a -> s -> t-l -~ n = over l (subtract n)--(+~) :: Num a => ASetter s t a a -> a -> s -> t-l +~ n = over l (n +)
vty.cabal view
@@ -1,5 +1,5 @@ name:                vty-version:             5.25+version:             5.25.1 license:             BSD3 license-file:        LICENSE author:              AUTHORS@@ -45,7 +45,7 @@                        deepseq >= 1.1 && < 1.5,                        directory,                        filepath >= 1.0 && < 2.0,-                       microlens,+                       microlens < 0.4.11,                        microlens-mtl,                        microlens-th,                        -- required for nice installation with yi