Skip to content

Commit f794c92

Browse files
committed
[ fix ] issue #2905
1 parent c1256ae commit f794c92

File tree

2 files changed

+6
-0
lines changed

2 files changed

+6
-0
lines changed

CHANGELOG.md

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -32,6 +32,11 @@ Minor improvements
3232
properties (and their proofs). In particular, `truncate-irrelevant` is now
3333
deprecated, because definitionally trivial.
3434

35+
* The function `Data.Vec.Functional.map` have marked with the `INLINE` pragma.
36+
This is consistent with the inlining of `Function.Base._∘_` for which it is
37+
an alias, and should be backwards compatible, but does improve the behaviour
38+
of the termination checker for `Vector`-defined operations.
39+
3540
* The type of `Relation.Nullary.Negation.Core.contradiction-irr` has been further
3641
weakened so that the negated hypothesis `¬ A` is marked as irrelevant. This is
3742
safe to do, in view of `Relation.Nullary.Recomputable.Properties.¬-recompute`.

src/Data/Vec/Functional.agda

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -100,6 +100,7 @@ updateAt {n = suc n} xs (suc i) f (suc j) = updateAt (tail xs) i f j
100100

101101
map : (A B) {n} Vector A n Vector B n
102102
map f xs = f ∘ xs
103+
{-# INLINE map #-}
103104

104105
_++_ : Vector A m Vector A n Vector A (m ℕ.+ n)
105106
_++_ {m = m} xs ys i = [ xs , ys ] (splitAt m i)

0 commit comments

Comments
 (0)