diff --git a/hierarchical-clustering-diagrams.cabal b/hierarchical-clustering-diagrams.cabal
--- a/hierarchical-clustering-diagrams.cabal
+++ b/hierarchical-clustering-diagrams.cabal
@@ -1,5 +1,5 @@
 Name:                hierarchical-clustering-diagrams
-Version:             0.3
+Version:             0.3.1
 Synopsis:            Draw diagrams of dendrograms made by hierarchical-clustering.
 License:             BSD3
 License-file:        LICENSE
@@ -11,7 +11,7 @@
 Description:
   This package contains functions for drawing diagrams of
   dendrograms.  You may see a simple image sample at
-  <https://patch-tag.com/r/felipe/hierarchical-clustering-diagrams/snapshot/current/content/pretty/example.png>.
+  <https://github.com/meteficha/hierarchical-clustering-diagrams/blob/master/example.png>.
   See the documentation at "Diagrams.Dendrogram" to see how to
   reproduce this diagram.
 
@@ -21,7 +21,7 @@
 
 Source-repository head
   type: darcs
-  location: http://patch-tag.com/r/felipe/hierarchical-clustering-diagrams
+  location: https://github.com/meteficha/hierarchical-clustering-diagrams
 
 
 Library
diff --git a/tests/runtests.hs b/tests/runtests.hs
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -1,4 +1,5 @@
 -- from base
+import Control.Arrow (first)
 import System.Environment (getArgs)
 
 -- from hierarchical-clustering
@@ -35,7 +36,7 @@
 testsMain = hspecX $ do
   describe "fixedWidth" $ do
     it "works on a test example" $
-       D.fixedWidth 1 test ~?=
+       first (fmap snd) (D.fixedWidth 1 test) ~?=
           ( Branch 5
               (Branch 2
                 (Branch 1
@@ -49,7 +50,7 @@
     let r :: Double -> Diagram Cairo R2
         r w = rect w 40
     it "works on a test example with fixed widths" $
-       fst (D.variableWidth (const $ r 1) test) ~?=
+       (fmap snd . fst) (D.variableWidth (const $ r 1) test) ~?=
           Branch 5
             (Branch 2
               (Branch 1
@@ -64,7 +65,7 @@
         f 'D' = 1
         f _   = undefined
     it "works on a test example with variable widths" $
-       fst (D.variableWidth r test2) ~?=
+       (fmap snd . fst) (D.variableWidth r test2) ~?=
           Branch 5
             (Branch 2
               (Branch 1
@@ -89,7 +90,7 @@
 
 
 char :: Char -> Diagram Cairo R2
-char c = pad 1.3 $ roundedRect (1,1) 0.1 `atop` text [c]
+char c = pad 1.3 $ roundedRect 1 1 0.1 `atop` text [c]
 
 test :: Dendrogram Char
 test = Branch 5