diff options
Diffstat (limited to 'MeshSketch.hs')
-rw-r--r-- | MeshSketch.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/MeshSketch.hs b/MeshSketch.hs index cca9524..2b29f0a 100644 --- a/MeshSketch.hs +++ b/MeshSketch.hs | |||
@@ -573,8 +573,7 @@ pushRing w st h k = do | |||
573 | plane <- readIORef (stPlane st) | 573 | plane <- readIORef (stPlane st) |
574 | d <- worldCoordinates st h k plane | 574 | d <- worldCoordinates st h k plane |
575 | Just win <- getWidgetWindow w | 575 | Just win <- getWidgetWindow w |
576 | pushBack (stRingBuffer st) $ do | 576 | pushBack (stRingBuffer st) $ \RingPoint{..} -> do |
577 | RingPoint{..} <- return $ rKeys (stRingBuffer st) | ||
578 | rpPosition @<- d | 577 | rpPosition @<- d |
579 | windowInvalidateRect win Nothing False | 578 | windowInvalidateRect win Nothing False |
580 | return d | 579 | return d |