reflex-process 0.3.1.0 → 0.3.1.1

raw patch · 4 files changed

+33/−16 lines, 4 filesdep ~reflex-vty

Dependency ranges changed: reflex-vty

Files

• ChangeLog.md +4/−0
• README.lhs +10/−6
• README.md +10/−6
• reflex-process.cabal +9/−4

@@ -1,5 +1,9 @@ # Revision history for reflex-process +## 0.3.1.1++* Update readme example to use reflex-vty 0.2+ ## 0.3.1.0  * Support reflex 0.8

@@ -22,6 +22,7 @@ > import Control.Monad ((<=<)) > import Data.Default (def) > import qualified Data.Set as Set+> import qualified Data.Text as T > import qualified Data.Text.Encoding as T > import qualified Graphics.Vty.Input as V > import qualified System.Process as P@@ -30,15 +31,18 @@ > cmd = P.proc "ls" ["-a"] > > main :: IO ()-> main = mainWidget $ do+> main = mainWidget $ initManager_ $ col $ do >   exit <- keyCombos $ Set.singleton (V.KChar 'c', [V.MCtrl]) >   p <- createProcess cmd def >   stdout <- foldDyn (flip mappend) "" $ _process_stdout p->   boxStatic def $ col $ do->     fixed 3 $ boxStatic def $ text "reflex-process"->     fixed 3 $ text "Press Ctrl-C to exit."->     fixed 1 $ text "stdout:"->     stretch $ text $ T.decodeUtf8 <$> current stdout+>   grout flex $ boxStatic def $ col $ do+>     grout (fixed 3) $ boxStatic def $ text "reflex-process"+>     grout (fixed 3) $ text "Press Ctrl-C to exit."+>     grout (fixed 2) $ text $ pure $ "Running command: " <> case P.cmdspec cmd of+>       P.ShellCommand s -> T.pack s+>       P.RawCommand p args -> T.intercalate " " $ T.pack <$> (p : args)+>     grout (fixed 1) $ text "stdout:"+>     grout flex $ text $ T.decodeUtf8 <$> current stdout >   pure $ () <$ exit ``` 

@@ -22,6 +22,7 @@ > import Control.Monad ((<=<)) > import Data.Default (def) > import qualified Data.Set as Set+> import qualified Data.Text as T > import qualified Data.Text.Encoding as T > import qualified Graphics.Vty.Input as V > import qualified System.Process as P@@ -30,15 +31,18 @@ > cmd = P.proc "ls" ["-a"] > > main :: IO ()-> main = mainWidget $ do+> main = mainWidget $ initManager_ $ col $ do >   exit <- keyCombos $ Set.singleton (V.KChar 'c', [V.MCtrl]) >   p <- createProcess cmd def >   stdout <- foldDyn (flip mappend) "" $ _process_stdout p->   boxStatic def $ col $ do->     fixed 3 $ boxStatic def $ text "reflex-process"->     fixed 3 $ text "Press Ctrl-C to exit."->     fixed 1 $ text "stdout:"->     stretch $ text $ T.decodeUtf8 <$> current stdout+>   grout flex $ boxStatic def $ col $ do+>     grout (fixed 3) $ boxStatic def $ text "reflex-process"+>     grout (fixed 3) $ text "Press Ctrl-C to exit."+>     grout (fixed 2) $ text $ pure $ "Running command: " <> case P.cmdspec cmd of+>       P.ShellCommand s -> T.pack s+>       P.RawCommand p args -> T.intercalate " " $ T.pack <$> (p : args)+>     grout (fixed 1) $ text "stdout:"+>     grout flex $ text $ T.decodeUtf8 <$> current stdout >   pure $ () <$ exit ``` 

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: reflex-process-version: 0.3.1.0+version: 0.3.1.1 synopsis: Reflex FRP interface for running system processes description:   Run and interact with system processes from within a Reflex FRP application.@@ -16,11 +16,16 @@ build-type: Simple extra-source-files: ChangeLog.md                     README.md-tested-with: GHC ==8.6.5+tested-with:+  GHC ==8.6.5 || ==8.8.4 || ==8.10.2 +source-repository head+  type: git+  location: https://github.com/reflex-frp/reflex-process+ library   exposed-modules: Reflex.Process-  build-depends: base >=4.12 && <4.14+  build-depends: base >=4.12 && <4.15                , async >= 2 && < 3                , bytestring >=0.10 && < 0.11                , data-default >= 0.2 && < 0.8@@ -40,7 +45,7 @@                , process                , reflex                , reflex-process-               , reflex-vty >= 0.1.2.1 && < 0.2+               , reflex-vty >= 0.2 && < 0.3                , text >= 1.2.3 && < 1.3                , vty   default-language: Haskell2010