src/Library/Lens/Ext.elm at main · tokono.ma/diffuse

tokono.ma / diffuse

A music player that connects to your cloud/distributed storage.

diffuse / src / Library / Lens / Ext.elm

at main 313 B view raw

 1module Lens.Ext exposing (..)
 2
 3import Monocle.Lens as Lens exposing (Lens)
 4
 5
 6{-| Flipped version of `Lens.modify`.
 7-}
 8adjust : Lens a b -> a -> (b -> b) -> a
 9adjust lens a fn =
10    Lens.modify lens fn a
11
12
13{-| Flipped version of `lens.set`.
14-}
15replace : Lens a b -> a -> b -> a
16replace lens a b =
17    lens.set b a