packages feed

essence-of-live-coding-gloss 0.2.7 → 0.2.8

raw patch · 3 files changed

+8/−8 lines, 3 filesdep ~basedep ~essence-of-live-codingPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, essence-of-live-coding

API changes (from Hackage documentation)

Files

essence-of-live-coding-gloss.cabal view
@@ -1,5 +1,5 @@ name:                essence-of-live-coding-gloss-version:             0.2.7+version:             0.2.8 synopsis: General purpose live coding framework - Gloss backend description:   essence-of-live-coding is a general purpose and type safe live coding framework.@@ -32,7 +32,7 @@ source-repository this   type:     git   location: https://github.com/turion/essence-of-live-coding.git-  tag:      v0.2.7+  tag:      v0.2.8  library   exposed-modules:@@ -40,10 +40,10 @@     LiveCoding.Gloss.Debugger     LiveCoding.Gloss.PictureM   build-depends:-      base >= 4.11 && < 5+      base >= 4.13 && < 4.21     , syb >= 0.7     , transformers >= 0.5-    , essence-of-live-coding >= 0.2.7+    , essence-of-live-coding >= 0.2.8     , foreign-store >= 0.2     , gloss >= 1.13   hs-source-dirs:      src
src/LiveCoding/Gloss/Debugger.hs view
@@ -23,13 +23,13 @@ -- essence-of-live-coding-gloss import LiveCoding.Gloss.PictureM -statePicture :: Data s => s -> Picture+statePicture :: (Data s) => s -> Picture statePicture = translate (-100) 200 . scale 0.2 0.2 . color red . text . stateShow  statePlay :: Debugger PictureM statePlay = Debugger $ liveCell $ every 2 >>> hold blank >>> arrM (lift . lift . tell) -every :: Data s => Integer -> Cell (StateT s PictureM) () (Maybe Picture)+every :: (Data s) => Integer -> Cell (StateT s PictureM) () (Maybe Picture) every maxN = proc () -> do   n <- sumC -< 1   if n `mod` maxN == 0
src/LiveCoding/Gloss/PictureM.hs view
@@ -30,10 +30,10 @@  -- | Run the effects of the gloss monad stack by explicitly passing events and pictures. runPictureT ::-  Monad m =>+  (Monad m) =>   Cell (PictureT m) a b ->   Cell m ([Event], a) (Picture, b) runPictureT = runWriterC . runReaderC' -addPicture :: Monad m => Cell (PictureT m) Picture ()+addPicture :: (Monad m) => Cell (PictureT m) Picture () addPicture = arrM $ lift . tell