packages feed

brick 0.57 → 0.57.1

raw patch · 6 files changed

+25/−8 lines, 6 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Brick.BorderMap: eBottomL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.BorderMap: eBottomL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.BorderMap: eLeftL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.BorderMap: eLeftL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.BorderMap: eRightL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.BorderMap: eRightL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.BorderMap: eTopL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.BorderMap: eTopL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.Types: bordersL :: forall n_aGRQ. Lens' (Result n_aGRQ) (BorderMap DynBorder)
+ Brick.Types: bordersL :: forall n_axYn. Lens' (Result n_axYn) (BorderMap DynBorder)
- Brick.Types: cursorLocationL :: forall n_aFwr. Lens' (CursorLocation n_aFwr) Location
+ Brick.Types: cursorLocationL :: forall n_awJM. Lens' (CursorLocation n_awJM) Location
- Brick.Types: cursorLocationNameL :: forall n_aFwr n_aHvA. Lens (CursorLocation n_aFwr) (CursorLocation n_aHvA) (Maybe n_aFwr) (Maybe n_aHvA)
+ Brick.Types: cursorLocationNameL :: forall n_awJM n_ayBL. Lens (CursorLocation n_awJM) (CursorLocation n_ayBL) (Maybe n_awJM) (Maybe n_ayBL)
- Brick.Types: cursorsL :: forall n_aGRQ. Lens' (Result n_aGRQ) [CursorLocation n_aGRQ]
+ Brick.Types: cursorsL :: forall n_axYn. Lens' (Result n_axYn) [CursorLocation n_axYn]
- Brick.Types: eBottomL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.Types: eBottomL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.Types: eLeftL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.Types: eLeftL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.Types: eRightL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.Types: eRightL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.Types: eTopL :: forall a_ajGP. Lens' (Edges a_ajGP) a_ajGP
+ Brick.Types: eTopL :: forall a_acT2. Lens' (Edges a_acT2) a_acT2
- Brick.Types: extentsL :: forall n_aGRQ. Lens' (Result n_aGRQ) [Extent n_aGRQ]
+ Brick.Types: extentsL :: forall n_axYn. Lens' (Result n_axYn) [Extent n_axYn]
- Brick.Types: imageL :: forall n_aGRQ. Lens' (Result n_aGRQ) Image
+ Brick.Types: imageL :: forall n_axYn. Lens' (Result n_axYn) Image
- Brick.Types: visibilityRequestsL :: forall n_aGRQ. Lens' (Result n_aGRQ) [VisibilityRequest]
+ Brick.Types: visibilityRequestsL :: forall n_axYn. Lens' (Result n_axYn) [VisibilityRequest]
- Brick.Widgets.Dialog: dialogButtonsL :: forall a_a1hRN a_a1hSu. Lens (Dialog a_a1hRN) (Dialog a_a1hSu) [(String, a_a1hRN)] [(String, a_a1hSu)]
+ Brick.Widgets.Dialog: dialogButtonsL :: forall a_a18wU a_a18xy. Lens (Dialog a_a18wU) (Dialog a_a18xy) [(String, a_a18wU)] [(String, a_a18xy)]
- Brick.Widgets.Dialog: dialogSelectedIndexL :: forall a_a1hRN. Lens' (Dialog a_a1hRN) (Maybe Int)
+ Brick.Widgets.Dialog: dialogSelectedIndexL :: forall a_a18wU. Lens' (Dialog a_a18wU) (Maybe Int)
- Brick.Widgets.Dialog: dialogTitleL :: forall a_a1hRN. Lens' (Dialog a_a1hRN) (Maybe String)
+ Brick.Widgets.Dialog: dialogTitleL :: forall a_a18wU. Lens' (Dialog a_a18wU) (Maybe String)
- Brick.Widgets.Dialog: dialogWidthL :: forall a_a1hRN. Lens' (Dialog a_a1hRN) Int
+ Brick.Widgets.Dialog: dialogWidthL :: forall a_a18wU. Lens' (Dialog a_a18wU) Int
- Brick.Widgets.Edit: editContentsL :: forall t_a1cKn n_a1cKo t_a1cL7. Lens (Editor t_a1cKn n_a1cKo) (Editor t_a1cL7 n_a1cKo) (TextZipper t_a1cKn) (TextZipper t_a1cL7)
+ Brick.Widgets.Edit: editContentsL :: forall t_a13sp n_a13sq t_a13t4. Lens (Editor t_a13sp n_a13sq) (Editor t_a13t4 n_a13sq) (TextZipper t_a13sp) (TextZipper t_a13t4)
- Brick.Widgets.FileBrowser: fileBrowserEntryFilterL :: forall n_a1stf. Lens' (FileBrowser n_a1stf) (Maybe (FileInfo -> Bool))
+ Brick.Widgets.FileBrowser: fileBrowserEntryFilterL :: forall n_a1iBu. Lens' (FileBrowser n_a1iBu) (Maybe (FileInfo -> Bool))
- Brick.Widgets.FileBrowser: fileBrowserSelectableL :: forall n_a1stf. Lens' (FileBrowser n_a1stf) (FileInfo -> Bool)
+ Brick.Widgets.FileBrowser: fileBrowserSelectableL :: forall n_a1iBu. Lens' (FileBrowser n_a1iBu) (FileInfo -> Bool)
- Brick.Widgets.List: listElementsL :: forall n_a1n6A t_a1n6B e_a1n6C t_a1nlb e_a1nlc. Lens (GenericList n_a1n6A t_a1n6B e_a1n6C) (GenericList n_a1n6A t_a1nlb e_a1nlc) (t_a1n6B e_a1n6C) (t_a1nlb e_a1nlc)
+ Brick.Widgets.List: listElementsL :: forall n_a1duY t_a1duZ e_a1dv0 t_a1dJC e_a1dJD. Lens (GenericList n_a1duY t_a1duZ e_a1dv0) (GenericList n_a1duY t_a1dJC e_a1dJD) (t_a1duZ e_a1dv0) (t_a1dJC e_a1dJD)
- Brick.Widgets.List: listItemHeightL :: forall n_a1n6A t_a1n6B e_a1n6C. Lens' (GenericList n_a1n6A t_a1n6B e_a1n6C) Int
+ Brick.Widgets.List: listItemHeightL :: forall n_a1duY t_a1duZ e_a1dv0. Lens' (GenericList n_a1duY t_a1duZ e_a1dv0) Int
- Brick.Widgets.List: listNameL :: forall n_a1n6A t_a1n6B e_a1n6C n_a1nld. Lens (GenericList n_a1n6A t_a1n6B e_a1n6C) (GenericList n_a1nld t_a1n6B e_a1n6C) n_a1n6A n_a1nld
+ Brick.Widgets.List: listNameL :: forall n_a1duY t_a1duZ e_a1dv0 n_a1dJE. Lens (GenericList n_a1duY t_a1duZ e_a1dv0) (GenericList n_a1dJE t_a1duZ e_a1dv0) n_a1duY n_a1dJE
- Brick.Widgets.List: listSelectedL :: forall n_a1n6A t_a1n6B e_a1n6C. Lens' (GenericList n_a1n6A t_a1n6B e_a1n6C) (Maybe Int)
+ Brick.Widgets.List: listSelectedL :: forall n_a1duY t_a1duZ e_a1dv0. Lens' (GenericList n_a1duY t_a1duZ e_a1dv0) (Maybe Int)

Files

CHANGELOG.md view
@@ -2,6 +2,13 @@ Brick changelog --------------- +0.57.1+------++Bug fixes:+ * Fixed a small space leak in the main rendering loop (#260)+ * Get `TailDemo` building on more versions of GHC+ 0.57 ----
README.md view
@@ -41,7 +41,8 @@ -----------------  To get an idea of what some people have done with `brick`, take a look-at these projects:+at these projects. If you have made something and would like me to+include it, get in touch!  | Project | Description | | ------- | ----------- |
brick.cabal view
@@ -1,5 +1,5 @@ name:                brick-version:             0.57+version:             0.57.1 synopsis:            A declarative terminal user interface library description:   Write terminal user interfaces (TUIs) painlessly with 'brick'! You@@ -32,7 +32,7 @@ license-file:        LICENSE author:              Jonathan Daugherty <cygnus@foobox.com> maintainer:          Jonathan Daugherty <cygnus@foobox.com>-copyright:           (c) Jonathan Daugherty 2015-2018+copyright:           (c) Jonathan Daugherty 2015-2020 category:            Graphics build-type:          Simple cabal-version:       1.18
programs/TailDemo.hs view
@@ -1,6 +1,12 @@ {-# LANGUAGE OverloadedStrings #-} module Main where +#if !MIN_VERSION_base(4,8,0)+import Control.Applicative ((<$>))+#endif+#if !(MIN_VERSION_base(4,11,0))+import Data.Monoid ((<>))+#endif import qualified Data.Text as T import Control.Monad (void) import Control.Concurrent
src/Brick/Types/Internal.hs view
@@ -247,11 +247,11 @@                     deriving (Show, Eq, Ord)  data RenderState n =-    RS { viewportMap :: M.Map n Viewport-       , rsScrollRequests :: [(n, ScrollRequest)]+    RS { viewportMap :: !(M.Map n Viewport)+       , rsScrollRequests :: ![(n, ScrollRequest)]        , observedNames :: !(S.Set n)-       , renderCache :: M.Map n (Result n)-       , clickableNames :: [n]+       , renderCache :: !(M.Map n (Result n))+       , clickableNames :: ![n]        } deriving (Read, Show, Generic, NFData)  data EventRO n = EventRO { eventViewportMap :: M.Map n Viewport
src/Brick/Widgets/List.hs view
@@ -88,7 +88,10 @@ import Data.Functor (($>)) import Data.List.NonEmpty (NonEmpty((:|))) import Data.Maybe (fromMaybe)-import Data.Semigroup (Semigroup, (<>), sconcat)+#if !(MIN_VERSION_base(4,11,0))+import Data.Semigroup (Semigroup, (<>))+#endif+import Data.Semigroup (sconcat) import qualified Data.Sequence as Seq import Graphics.Vty (Event(..), Key(..), Modifier(..)) import qualified Data.Vector as V