Skip to content

Commit

Permalink
fixing more ci setup
Browse files Browse the repository at this point in the history
  • Loading branch information
noinia committed Nov 17, 2023
1 parent 1b91626 commit 824db8c
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion .github/workflows/gh-pages.yml
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion hgeometry/src/HGeometry/LowerEnvelope/AdjListForm.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 824db8c

Please sign in to comment.