diff --git a/.github/workflows/gh-pages.yml b/.github/workflows/gh-pages.yml
index eaf577a7f..20a5b4588 100644
--- a/.github/workflows/gh-pages.yml
+++ b/.github/workflows/gh-pages.yml
@@ -171,7 +171,7 @@ jobs:
       - name: haddock
         run: |
           $CABAL v2-haddock --disable-documentation --haddock-all $ARG_COMPILER --with-haddock $HADDOCK $ARG_TESTS $ARG_BENCH all > haddock.raw.txt
-          $CABAL haddock-project
+          $CABAL $ARG_COMPILER --with-haddock $HADDOCK $ARG_TESTS $ARG_BENCH haddock-project
       - name: haddock-badge
         run: |
           grep ") in " haddock.raw.txt | sort -hr > haddock.txt
diff --git a/hgeometry/src/HGeometry/LowerEnvelope/AdjListForm.hs b/hgeometry/src/HGeometry/LowerEnvelope/AdjListForm.hs
index 904a06513..a718b8138 100644
--- a/hgeometry/src/HGeometry/LowerEnvelope/AdjListForm.hs
+++ b/hgeometry/src/HGeometry/LowerEnvelope/AdjListForm.hs
@@ -631,7 +631,7 @@ instance HasEdges (LowerEnvelope plane) (LowerEnvelope plane) where
 -- running time: \(O(n\log n)\)
 --
 -- >>> groupOnCheap fst [ (1,"foo"), (2,"bar"), (2,"blaa"), (1,"boeez"), (1,"blap"), (4,"blax"), (4,"bleh"), (100,"floep")]
---  [[(1,"foo"),(1,"boeez"),(1,"blap")],[(2,"bar"),(2,"blaa")],[(4,"blax"),(4,"bleh")],[(100,"floep")]]
+-- [[(1,"foo"),(1,"boeez"),(1,"blap")],[(2,"bar"),(2,"blaa")],[(4,"blax"),(4,"bleh")],[(100,"floep")]]
 groupOnCheap  :: (Foldable f, Ord b)
               => (a -> b) -> f a -> [NonEmptyV.NonEmptyVector a]
 groupOnCheap f = fmap NonEmptyV.unsafeFromVector . V.groupBy ((==) `on` f) . sortOnCheap f