Add (##) operator to Util.

This is just a replacement for (#) from lens.
diagrams · Mar 9, 2015 · 477c88f · 477c88f · bergey · Mar 10, 2015
1 parent 5510444
commit 477c88f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Diagrams/Util.hs b/src/Diagrams/Util.hs
@@ -15,6 +15,7 @@ module Diagrams.Util
          with
        , applyAll
        , (#)
+       , (##)
 
        , iterateN
 
@@ -27,6 +28,7 @@ module Diagrams.Util
 
 import           Data.Default.Class
 import           Data.Monoid
+import           Control.Lens hiding (( # ))
 
 -- | Several functions exported by the diagrams library take a number
 --   of arguments giving the user control to \"tweak\" various aspects
@@ -67,6 +69,13 @@ infixl 8 #
 (#) :: a -> (a -> b) -> b
 (#) = flip ($)
 
+-- | A replacement for lenses' @#@ operator. @(##) = 'review'@.
+(##) :: AReview t b -> b -> t
+(##) = review
+{-# INLINE (##) #-}
+infixr 8 ##
+
+
 -- | @iterateN n f x@ returns the list of the first @n@ iterates of
 --   @f@ starting at @x@, that is, the list @[x, f x, f (f x), ...]@
 --   of length @n@. (Note that the last element of the list will be