diff --git a/line-drawing.cabal b/line-drawing.cabal
--- a/line-drawing.cabal
+++ b/line-drawing.cabal
@@ -1,6 +1,6 @@
 cabal-version:       >=1.10
 name:                line-drawing
-version:             0.4.0.0
+version:             0.4.0.1
 synopsis:            raster line drawing
 description:         Line drawing algorithms to approximate a
                      line segment on discrete graphical media (raster).
@@ -37,5 +37,5 @@
   ghc-options:         -Wall
 
 source-repository head
-    type:     darcs
-    location: http://ariis.it/link/repos/line-drawing/
+    type:     git
+    location: https://gitlab.com/fffaaa/line-drawing
diff --git a/test/Line/DrawSpec.hs b/test/Line/DrawSpec.hs
--- a/test/Line/DrawSpec.hs
+++ b/test/Line/DrawSpec.hs
@@ -47,3 +47,5 @@
     it "is the same length with args flipped" $ property $
       \(p1, p2) -> length (bresenham (p1 :: (Int, Int)) p2) ==
                    length (bresenham p2                 p1)
+    it "has a distance of 1 if the points are the same" $ property $
+      \p -> length (bresenham (p :: (Int, Int)) p) == 1