Fix terrible copy/paste mistake -- add docs to (:/)
commit3eefbee08d86931507a7e7cd1d3eabc2f4771b93
authorElliot Cameron <eacameron@gmail.com>
dateWed 15 Jan 2020, 14:12 (7 years ago)
parentcad23bb
lib/route/src/Obelisk/Route.hs+3
@@ -195,8 +195,11 @@ import Data.Aeson (FromJSON, ToJSON)
195195
196196type R f = DSum f Identity --TODO: Better name
197197
198+-- | Convenience builder for an 'R' using 'Identity' for the functor.
198199pattern (:/) :: f a -> a -> R f
199200pattern a :/ b = a :=> Identity b
201+{-# COMPLETE (:/) #-}
202+infixr 5 :/
200203
201204-- | Like '(:/)' but adds a 'Just' wrapper around the right-hand side.
202205(?/) :: f (Maybe a) -> a -> R f