moffy-samples-events 0.2.2.2 → 0.2.2.3

raw patch · 2 files changed

+2/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• moffy-samples-events.cabal +1/−1
• src/Control/Moffy/Samples/Handle/Area.hs +1/−1

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           moffy-samples-events-version:        0.2.2.2+version:        0.2.2.3 synopsis:       Events for sample codes of moffy description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/moffy-samples-events#readme> category:       Control

@@ -22,4 +22,4 @@  handleGetArea :: TVar (M.Map Int (Point, Point)) -> Handle' IO (Singleton GetArea) handleGetArea vm (Oom.Singleton (GetAreaReq i)) = do-	Just . App.Singleton . uncurry (OccGetArea i) <$> atomically ((M.! i) <$> readTVar vm)+	(App.Singleton . uncurry (OccGetArea i) <$>) <$> atomically ((M.lookup i) <$> readTVar vm)