moffy-samples-gtk4-run 0.2.1.1 → 0.2.1.2

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• moffy-samples-gtk4-run.cabal +1/−1
• src/Control/Moffy/Samples/Followbox/Run/Gtk4.hs +3/−3

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           moffy-samples-gtk4-run-version:        0.2.1.1+version:        0.2.1.2 synopsis:       Package to run moffy samples - Gtk4 version description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/moffy-samples-gtk4-run#readme> category:       Control

@@ -40,7 +40,7 @@ runFollowbox :: String -> Sig s FollowboxEv T.View () -> IO () runFollowbox brws sig = runFollowbox_ brws Nothing $ viewToView <$%> sig -runFollowbox' :: String -> Sig s FollowboxEv ([(Int, Area)], T.View) () -> IO ()+runFollowbox' :: String -> Sig s FollowboxEv ([(Int, Maybe Area)], T.View) () -> IO () runFollowbox' brws sig = runFollowbox_' brws Nothing $ (second viewToView) <$%> sig  runFollowbox_ :: String -> Maybe GithubNameToken -> Sig s FollowboxEv View () -> IO ()@@ -51,7 +51,7 @@ 	_ <- forkIO $ runFollowboxGen cer ceo va brws tkn cv (sig >> emit Stopped) 	runSingleWin cer ceo cv -runFollowbox_' :: String -> Maybe GithubNameToken -> Sig s FollowboxEv ([(Int, Area)], View) () -> IO ()+runFollowbox_' :: String -> Maybe GithubNameToken -> Sig s FollowboxEv ([(Int, Maybe Area)], View) () -> IO () runFollowbox_' brws tkn sig = do 	va <- atomically $ newTVar M.empty 	(cer, ceo, cv) <- atomically $@@ -73,7 +73,7 @@ 	TChan (EvReqs (CalcTextExtents :- GuiEv)) -> TChan (EvOccs (CalcTextExtents :- GuiEv)) -> 	TVar (M.Map Int (A.Point, A.Point)) -> String -> 	Maybe GithubNameToken -> TChan x ->-	Sig s FollowboxEv ([(Int, Area)], x) r -> IO r+	Sig s FollowboxEv ([(Int, Maybe Area)], x) r -> IO r runFollowboxGen' cr c va brs mgnt c' s = do 	(r, _) <- interpretSt' (handleFollowbox va (cr, c) brs mgnt) va c' s (initialFollowboxState $ mkStdGen 8) 	pure r