fix tiny bug in dimeq
This commit is contained in:
parent
802dfae493
commit
4b7379f094
1 changed files with 1 additions and 1 deletions
|
@ -70,7 +70,7 @@ infixl 5 :<?
|
||||||
export %inline
|
export %inline
|
||||||
(:<?) : DimEq d -> Maybe (Dim d) -> DimEq (S d)
|
(:<?) : DimEq d -> Maybe (Dim d) -> DimEq (S d)
|
||||||
ZeroIsOne :<? d = ZeroIsOne
|
ZeroIsOne :<? d = ZeroIsOne
|
||||||
C eqs :<? d = C $ eqs :< d
|
C eqs :<? d = C $ eqs :< map (get eqs) d
|
||||||
|
|
||||||
|
|
||||||
private %inline
|
private %inline
|
||||||
|
|
Loading…
Reference in a new issue