trackit 0.7.2 → 0.7.3

raw patch · 3 files changed

+14/−17 lines, 3 filesdep ~brickdep ~timedep ~vty

Dependency ranges changed: brick, time, vty

Files

• src/Main.hs +2/−2
• src/TUI.hs +7/−10
• trackit.cabal +5/−5

@@ -49,9 +49,9 @@   , _incremental   :: Bool         <?> "Allow output to be updated incrementally. Redraws the buffer for every output line, so should only be used for \                                        \slow outputs. Implies '--show-running'."   , _stabilization :: Maybe Int    <?> "Minimal time (milliseconds) between any file event and the next command update (default: 200)"-  , _version       :: Bool         <?> "Print the version number"+  , _version       :: Bool         <?> "Print the version number."   , _help          :: Bool-  , _debug         :: Bool         <?> "Show debug information in the lower right corner"+  , _debug         :: Bool         <?> "Show debug information in the lower right corner."   } deriving (Show, Generic)  -- `--show-running` is not on by default because it causes a quick flickering

@@ -6,6 +6,7 @@   ) where  import Control.Monad (guard)+import Control.Monad.State (modify) import Control.Monad.Trans (liftIO) import Data.Char (toLower) import Data.Text (Text)@@ -18,13 +19,11 @@   , BrickEvent(..)   , EventM   , Location (..)-  , Next   , Size (..)   , Widget (..)   , attrMap   , availHeight   , availWidth-  , continue   , customMain   , getContext   , getVtyHandle@@ -180,16 +179,14 @@ stepApp ::      Options   -> IO () -- ^ Update request-  -> AppState   -> BrickEvent n TrackitEvent-  -> EventM n (Next AppState)-stepApp _ _ s (keyPressed 'q' -> True) = halt s-stepApp _ updReq s (keyPressed ' ' -> True) = liftIO updReq >> continue s-stepApp opts _ s ev = do+  -> EventM n AppState ()+stepApp _ _ (keyPressed 'q' -> True) = halt+stepApp _ updReq (keyPressed ' ' -> True) = liftIO updReq+stepApp opts _ ev = do   vty <- getVtyHandle   size <- liftIO $ displayBounds $ outputIface vty-  let s' = clampState size $ stepState opts ev size s-  continue s'+  modify $ clampState size . stepState opts ev size  stepState ::      Options@@ -246,7 +243,7 @@ myApp opts updReq = App   { appDraw         = drawApp opts   , appHandleEvent  = stepApp opts updReq-  , appStartEvent   = return+  , appStartEvent   = return ()   , appAttrMap      = const $ attrMap defAttr []   , appChooseCursor = neverShowCursor   }

@@ -1,5 +1,5 @@ name:                trackit-version:             0.7.2+version:             0.7.3 synopsis:            A command-line tool for live monitoring description:         @trackit@ is a command-line tool that listens for changes                      in a user-supplied directory. Whenever there is a change,@@ -43,8 +43,8 @@                         ParseANSI                         TUI   build-depends:        base <5-                      , brick >= 0.47 && < 0.61-                          -- 0.47 adds an argument to customMain+                      , brick >= 1.0 && == 1.1+                          -- EventM was refactored in 1.0                       , fsnotify <0.4                       , microlens-platform <0.5                       , mtl <2.3@@ -53,8 +53,8 @@                       , process-extras >=0.4 && <0.8                       , stm <2.6                       , text <1.3-                      , time < 1.12-                      , vty < 5.33+                      , time < 1.13+                      , vty < 5.37   hs-source-dirs:       src   default-language:     Haskell2010   default-extensions:   BangPatterns