diff --git a/diagrams-hsqml.cabal b/diagrams-hsqml.cabal
--- a/diagrams-hsqml.cabal
+++ b/diagrams-hsqml.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                diagrams-hsqml
-version:             0.0.0.1
+version:             0.0.0.2
 synopsis:            HsQML (Qt5) backend for Diagrams
 description:         
   `diagrams-hsqml` is a `diagrams` backend painting on a QtQuick Canvas.
diff --git a/src/Diagrams/Backend/HsQML/DiagramObj/Commands.hs b/src/Diagrams/Backend/HsQML/DiagramObj/Commands.hs
--- a/src/Diagrams/Backend/HsQML/DiagramObj/Commands.hs
+++ b/src/Diagrams/Backend/HsQML/DiagramObj/Commands.hs
@@ -107,12 +107,12 @@
 getRGBA :: SomeColor -> (Double, Double, Double, Double)
 -- ^Convert a colour to a tuple of (r,g,b,a) components.
 getRGBA c = (r,g,b,a)
-  where RGB r g b = fromIntegral <$> toSRGB24 (ac `over` black)
+  where RGB r g b = toSRGB (ac `over` black)
         a = alphaChannel ac
-        ac = toAlphaColour c
+        ac = someToAlpha c
 
 getLinearGradient :: LGradient -> DiagramObj (ObjRef GradientObj)
--- ^Created a linear gradient.
+-- ^Create a linear gradient.
 getLinearGradient lg = DiagramObj $ \this -> do
     g <- newGradient
     fireSignal S.connectLinearGradient this g x0 y0 x1 y1
diff --git a/src/Diagrams/Backend/HsQML/DiagramObj/Type.hs b/src/Diagrams/Backend/HsQML/DiagramObj/Type.hs
--- a/src/Diagrams/Backend/HsQML/DiagramObj/Type.hs
+++ b/src/Diagrams/Backend/HsQML/DiagramObj/Type.hs
@@ -31,7 +31,7 @@
 import Graphics.QML.Objects.ParamNames
 
 {-|
-The type to the parts of the diagram are rendered. 
+The type to which the parts of a diagram are rendered. 
 The end result of rendering is always a DiagramObj ().
 The monoid instance sequences actions on the same argument, with noop as identity.
 As DiagramObj is a wrapper over a function to IO, 'Functor', 'Applicative', 'Monad', and 'MonadIO' instances are defined in an expected way.
diff --git a/src/Diagrams/Backend/HsQML/Render.hs b/src/Diagrams/Backend/HsQML/Render.hs
--- a/src/Diagrams/Backend/HsQML/Render.hs
+++ b/src/Diagrams/Backend/HsQML/Render.hs
@@ -48,7 +48,7 @@
   :: Functor f => (SizeSpec2D -> f SizeSpec2D) -> Options HsQML R2 -> f (Options HsQML R2) 
 -- ^A lens from HsQML backend options to a 'SizeSpec2D'.
 -- 
--- sizeSpec :: 'Lens'' ('Options' 'HsQML' 'R2') 'SizeSpec2D'
+-- @ sizeSpec :: 'Lens'' ('Options' 'HsQML' 'R2') 'SizeSpec2D' @
 sizeSpec = lens (\(HsQMLOptions s) -> s) (\_ s -> HsQMLOptions s)
 
 addAnnotation :: String -> DiagramObj ()
diff --git a/src/Diagrams/Backend/HsQML/Tutorial.hs b/src/Diagrams/Backend/HsQML/Tutorial.hs
--- a/src/Diagrams/Backend/HsQML/Tutorial.hs
+++ b/src/Diagrams/Backend/HsQML/Tutorial.hs
@@ -171,10 +171,8 @@
 >  diag <- renderHsQML (mkSizeSpec (Just 800) (Just 800)) diagram
 >  mainObj <- MainObj <$> newMVar diag
 >  ctx <- newObjectDC mainObj
->  i <- forkIO . requireEventLoop . liftIO $ fireSignal repaint ctx
 >  runEngineLoop defaultEngineConfig
 >     { initialDocument = fileDocument "qml/main.qml"
 >     , contextObject = Just $ anyObjRef ctx
 >     }
->  killThread i
 -}