Build fail, easy to fix

```
diff --git a/mvc-updates-examples.cabal b/mvc-updates-examples.cabal
index bda29ec..d4d4972 100644
--- a/mvc-updates-examples.cabal
+++ b/mvc-updates-examples.cabal
@@ -29,10 +29,10 @@ Executable mvc-spreadsheet-example
base >= 4 && < 5 ,
async >= 2.0.0 && < 2.1 ,
foldl >= 1.0.5 && < 1.1 ,
- gtk >= 0.12.4 && < 0.13,
- lens-family-th >= 0.3.0.0 && < 0.4 ,
- mvc >= 1.0.1 && < 1.1 ,
- mvc-updates >= 1.0.0 && < 1.1
+ gtk >= 0.12.4 && < 0.14,
+ lens-family-th >= 0.3.0.0 && < 0.5 ,
+ mvc >= 1.0.1 && < 1.2 ,
+ mvc-updates >= 1.0.0 && < 1.3
Other-Modules: MVC.Updates.Example.Spreadsheet
GHC-Options: -O2 -Wall -threaded

@@ -42,8 +42,8 @@ Executable mvc-sdl-example
Build-Depends:
base >= 4 && < 5 ,
foldl >= 1.0.5 && < 1.1 ,
- mvc >= 1.0.1 && < 1.1 ,
- mvc-updates >= 1.0.0 && < 1.1 ,
+ mvc >= 1.0.1 && < 1.2 ,
+ mvc-updates >= 1.0.0 && < 1.3 ,
SDL >= 0.6.5 && < 0.7 ,
SDL-image >= 0.6.1 && < 0.7
Other-Modules: MVC.Updates.Example.SDL, Paths_mvc_updates_examples
diff --git a/src/MVC/Updates/Example/SDL.hs b/src/MVC/Updates/Example/SDL.hs
index fe81927..e41ed0f 100644
--- a/src/MVC/Updates/Example/SDL.hs
+++ b/src/MVC/Updates/Example/SDL.hs
@@ -54,6 +54,6 @@ sdl = managed $ \k -> withInit [InitVideo, InitEventthread] $ do
_ -> mouseMotion

mouse :: Updatable Mouse
- mouse = On (lastDef (Mouse 320 240)) (producer Single mouseMotion)
+ mouse = on (lastDef (Mouse 320 240)) (producer Single mouseMotion)

k (view, mouse) <* quit
diff --git a/src/MVC/Updates/Example/Spreadsheet.hs b/src/MVC/Updates/Example/Spreadsheet.hs
index 1e85a9b..a79386d 100644
--- a/src/MVC/Updates/Example/Spreadsheet.hs
+++ b/src/MVC/Updates/Example/Spreadsheet.hs
@@ -5,12 +5,12 @@
import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar)
import Control.Concurrent.Async (async, wait)
import Control.Foldl (lastDef)
- import Graphics.UI.Gtk
- import MVC
- import MVC.Updates
+ import Graphics.UI.Gtk as GTK
+ import MVC as MVC
+ import MVC.Updates as MVC

makeInCell :: VBox -> Updatable Double
- makeInCell vBox = On (lastDef 0) $ managed $ \k -> do
+ makeInCell vBox = MVC.on (lastDef 0) $ managed $ \k -> do -- On
(output, input) <- spawn Unbounded
spinButton <- spinButtonNewWithRange 0 100 1
_ <- onValueSpinned spinButton $ do
@@ -42,7 +42,7 @@
a <- async $ k (makeInCell vBoxL, makeOutCell vBoxR, putMVar mvar ())
takeMVar mvar

- _ <- on window deleteEvent $ do
+ _ <- GTK.on window deleteEvent $ do -- on
liftIO mainQuit
return False
widgetShowAll window
diff --git a/src/MainSDL.hs b/src/MainSDL.hs
index 17f9148..76c5185 100644
--- a/src/MainSDL.hs
+++ b/src/MainSDL.hs
@@ -10,7 +10,7 @@ import MVC.Updates.Example.SDL
main :: IO ()
main = runMVC () (asPipe cat) $ do
(cloudOut, mouse) <- sdl
- let seconds = On length (tick (1 / 60))
+ let seconds = on length (tick (1 / 60))

toFrame n = case (n `div` 15) `rem` 4 of
0 -> Frame0
```