github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 13:34:31 +03:00
Code Issues Projects Releases Wiki Activity

Rename weaken to weakenSum.

Browse Source
This commit is contained in:
Rob Rix 2018-05-02 11:49:20 -04:00
parent f2eae271fc
commit d5a35c7904
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Sum.hs
View File

@ -38,7 +38,7 @@ The data constructors of Sum are not exported.
module Data.Sum (
Sum,
weaken,
weakenSum,
injectSum,
projectSum,
type(:<),
@ -101,8 +101,8 @@ projectSum = unsafeProject (unP (elemNo :: P e r))
{-# INLINE projectSum #-}
weaken :: Sum r w -> Sum (any ': r) w
weaken (Sum n v) = Sum (n+1) v
weakenSum :: Sum r w -> Sum (any ': r) w
weakenSum (Sum n v) = Sum (n+1) v
type (Element t r) = KnownNat (ElemIndex t r)
type (t :< r) = Element t r