tinyapp 0.2.1.0 → 0.2.1.1
raw patch · 2 files changed
+5/−4 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- TinyApp.Interactive: runInteractive' :: forall s. Sandbox s -> IO s
+ TinyApp.Interactive: runInteractive' :: Sandbox s -> IO s
- TinyApp.Repl: runRepl' :: forall s. Sandbox s -> IO s
+ TinyApp.Repl: runRepl' :: Sandbox s -> IO s
Files
- src/TinyApp/Interactive/Test.hs +4/−3
- tinyapp.cabal +1/−1
src/TinyApp/Interactive/Test.hs view
@@ -17,6 +17,7 @@ ) where +import Control.Monad (forM, forM_) import Control.Monad.Reader qualified as MTL import Data.IORef import GHC.Stack qualified as Stack@@ -36,7 +37,7 @@ } newtype InteractiveM s a = InteractiveM (MTL.ReaderT (Env s) IO a)- deriving (Functor, Applicative, Monad, MTL.MonadIO, MTL.MonadFail)+ deriving (Functor, Applicative, Monad, MTL.MonadIO, MonadFail) data TestCase s = TestCase { description :: String,@@ -51,7 +52,7 @@ runTestsFor :: Sandbox s -> [TestCase s] -> IO () runTestsFor app tests = do res <-- MTL.forM+ forM tests ( \TestCase {description, t} -> do res <- tryIOError (runInteractiveTest app t)@@ -110,7 +111,7 @@ pressKey key = Stack.withFrozenCallStack $ pressKey' key [] pressKeys :: (Stack.HasCallStack) => [Key] -> InteractiveM s ()-pressKeys keys = Stack.withFrozenCallStack $ MTL.forM_ keys pressKey+pressKeys keys = Stack.withFrozenCallStack $ forM_ keys pressKey pressKey' :: (Stack.HasCallStack) => Key -> [Modifier] -> InteractiveM s () pressKey' key modifiers = _sendEvent Stack.callStack (Key key modifiers)
tinyapp.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: tinyapp-version: 0.2.1.0+version: 0.2.1.1 synopsis: Library to build tiny apps in Haskell description: Library to build tiny apps in Haskell such a REPLs or text-based applications that reacts to keystrokes homepage: https://github.com/bcardiff/haskell-tinyapp