Combine fixity declarations
Apparently this is something you can do? I wasn't aware of it, but it's very useful!
This commit is contained in:
parent
1e6309237b
commit
a7152cd582
|
@ -85,8 +85,7 @@ iview : IndexedGetter i s a -> s -> (i, a)
|
|||
iview l = runForget $ l @{%search} @{Idxed} $ MkForget id
|
||||
|
||||
|
||||
infixl 8 ^.
|
||||
infixl 8 ^@.
|
||||
infixl 8 ^., ^@.
|
||||
|
||||
||| Access the focus value of an optic, particularly a `Getter`.
|
||||
|||
|
||||
|
|
|
@ -93,9 +93,7 @@ icompose @{MkIsIso _} f l l' @{ind} =
|
|||
l @{Idxed} . runIndexed . l' @{Idxed} . MkIndexed {p}
|
||||
. lmap (mapFst (uncurry f) . assocl) . indexed @{ind}
|
||||
|
||||
infixr 9 <.>
|
||||
infixr 9 .>
|
||||
infixr 9 <.
|
||||
infixr 9 <.>, .>, <.
|
||||
|
||||
||| Compose two indexed optics, returning an optic indexed by a pair of indices.
|
||||
|||
|
||||
|
|
|
@ -139,20 +139,13 @@ fusing @{MkIsIso _} l = proextract . l . propure
|
|||
-- Operators
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
infixr 4 %%~; infix 4 %%=; infix 4 %%@~; infix 4 %%@=
|
||||
infixr 4 %%~, %%=, %%@~, %%@=
|
||||
|
||||
infixr 4 <%~; infixr 4 <%@~; infixr 4 <+~; infixr 4 <*~; infixr 4 <-~
|
||||
infixr 4 </~; infixr 4 <||~; infixr 4 <&&~; infixr 4 <<+>~
|
||||
infixr 4 <%~, <%@~, <+~, <*~, <-~, </~, <||~, <&&~, <<+>~
|
||||
infixr 4 <<%~, <<%@~, <<.~, <<?~, <<+~, <<*~, <<-~, <</~, <<||~, <<&&~, <<<+>~
|
||||
|
||||
infixr 4 <<%~; infixr 4 <<%@~; infixr 4 <<.~; infixr 4 <<?~; infixr 4 <<+~
|
||||
infixr 4 <<*~; infixr 4 <<-~; infixr 4 <</~; infixr 4 <<||~; infixr 4 <<&&~
|
||||
infixr 4 <<<+>~
|
||||
|
||||
infix 4 <%=; infix 4 <%@=; infix 4 <+=; infix 4 <*=; infix 4 <-=; infix 4 </=
|
||||
infix 4 <||=; infix 4 <&&=; infix 4 <<+>=
|
||||
|
||||
infix 4 <<%=; infix 4 <<%@=; infix 4 <<.=; infix 4 <<?=; infix 4 <<+=; infix 4 <<*=
|
||||
infix 4 <<-=; infix 4 <</=; infix 4 <<||=; infix 4 <<&&=; infix 4 <<<+>=
|
||||
infix 4 <%=, <%@=, <+=, <*=, <-=, </=, <||=, <&&=, <<+>=
|
||||
infix 4 <<%=, <<%@=, <<.=, <<?=, <<+=, <<*=, <<-=, <</=, <<||=, <<&&=, <<<+>=
|
||||
|
||||
infixr 1 <<<~
|
||||
|
||||
|
|
|
@ -150,15 +150,9 @@ public export
|
|||
-- More operators
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
infixr 4 ?~; infixr 4 <.~; infixr 4 <?~; infixr 4 +~; infixr 4 *~; infixr 4 -~
|
||||
infixr 4 /~; infixr 4 ||~; infixr 4 &&~; infixr 4 <+>~
|
||||
|
||||
infix 4 %=; infix 4 %@=; infix 4 .=; infix 4 .@=; infix 4 ?=; infix 4 <.=
|
||||
infix 4 <?=; infix 4 +=; infix 4 *=; infix 4 -=; infix 4 //=; infix 4 ||=
|
||||
infix 4 &&=; infixr 4 <+>=
|
||||
|
||||
infix 1 <~
|
||||
infixr 1 <<~
|
||||
infixr 4 ?~, <.~, <?~, +~, *~, -~, /~, ||~, &&~, <+>~
|
||||
infix 4 %=, %@=, .=, .@=, ?=, <.=, <?=, +=, *=, -=, //=, ||=, &&=, <+>=
|
||||
infix 1 <~, <<~
|
||||
|
||||
||| Set the focus of an optic to `Just` a value.
|
||||
public export
|
||||
|
|
Loading…
Reference in a new issue