ghcjs-hplay 0.3.1 → 0.3.2

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

ghcjs-hplay.cabal +1/−1
src/GHCJS/HPlay/View.hs +1/−1

ghcjs-hplay.cabal view

@@ -1,5 +1,5 @@ name: ghcjs-hplay
-version: 0.3.1
+version: 0.3.2
 cabal-version: >=1.10
 build-type: Simple
 license: BSD3

src/GHCJS/HPlay/View.hs view

@@ -1067,7 +1067,7 @@    runCont' cont= do
 
      mn <- getData
-     return () !> ("id mn",mn)
+
      when (isJust mn) $ let IDNUM n = fromJust mn in modify $  \s -> s{mfSequence=  n}
 
      setData Repeat               -- !!> "INITCLOSURE"