diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+### 0.3.1.1
+
+- Fixed haddock escaping issues.
+
 ## 0.3.1
 
 - Added `CubeFace` in the interface.
diff --git a/luminance.cabal b/luminance.cabal
--- a/luminance.cabal
+++ b/luminance.cabal
@@ -1,5 +1,5 @@
 name:                luminance
-version:             0.3.1
+version:             0.3.1.1
 synopsis:            Type-safe, dependently-typed and stateless graphics framework
 description:         This package exposes several modules to work with /GPUs/ in a stateless and
                      type-safe way. Currently, it uses __OpenGL__ as backend hardware technology but
diff --git a/src/Graphics/Luminance.hs b/src/Graphics/Luminance.hs
--- a/src/Graphics/Luminance.hs
+++ b/src/Graphics/Luminance.hs
@@ -164,7 +164,7 @@
 -- Here’s an exemple of such a use:
 --
 -- @
---   (program,uniformInterface) <- 'createProgram' shaderStages $ \uni -> do
+--   (program,uniformInterface) \<- 'createProgram' shaderStages $ \\uni -\> do
 --     resolutionU <- uni $ 'Left' "resolution"
 --     timeU <- uni $ 'Left' "time"
 --     'pure' $ 'divided' resolutionU timeU
@@ -254,7 +254,7 @@
 -- Now, let’s create the shader 'Stage's and the shader 'Program':
 --
 -- @
---   program <- 'sequenceA' ['createVertexShader' vsSrc,'createFragmentShader' fsSrc] >>= createProgram_
+--   program \<- 'sequenceA' ['createVertexShader' vsSrc,'createFragmentShader' fsSrc] \>\>= createProgram_
 -- @
 --
 -- Once again, that’s pretty straight-forward.