Moonbase

This is a quick post to ensure that the RSS and Atom formatting bug is really fixed. Let’s see! Ideally, the below should have multiple levels of indentation:

bindInputContext :: (WidgetClass w) => w -> Dispatcher -> IO InputContext
bindInputContext widget dispatcher =
  do stateRef <- newIORef $ ContextState {
                              activeModifiers = 0,
                              canvasWidget = castToWidget widget
                            }
     mapM_ ($ (inputHandler dispatcher stateRef))
           [onButtonPress   widget     ,
            onButtonRelease widget     ,
            onKeyPress      widget     ,
            onKeyRelease    widget     ,
            onEnterNotify   widget     ,
            onLeaveNotify   widget     ,
            onMotionNotify  widget True]
     return $ InputContext stateRef