Skip to content

Commit

Permalink
Fix some markup in haddocks (circuithub#318)
Browse files Browse the repository at this point in the history
  • Loading branch information
abigailalice committed Aug 3, 2024
1 parent 4b343ce commit ab4e152
Show file tree
Hide file tree
Showing 3 changed files with 9 additions and 9 deletions.
2 changes: 1 addition & 1 deletion src/Rel8/Statement.hs
Original file line number Diff line number Diff line change
Expand Up @@ -132,7 +132,7 @@ data Returning where
-- delete Delete
-- { from = fooSchema
-- , using = pure ()
-- , deleteWhere = \_ -> predicate
-- , deleteWhere = \\_ -> predicate
-- , returning = Returning id
-- }
-- insert Insert
Expand Down
12 changes: 6 additions & 6 deletions src/Rel8/Tabulate.hs
Original file line number Diff line number Diff line change
Expand Up @@ -527,7 +527,7 @@ alignWith f (Tabulation as) (Tabulation bs) = Tabulation $ \p -> do
--
-- Note that you can achieve the same effect with 'optional' and the
-- 'Applicative' instance for 'Tabulation', i.e., this is just
-- @\left right -> liftA2 (,) left (optional right). You can also
-- @\\left right -> liftA2 (,) left (optional right)@. You can also
-- use @do@-notation.
leftAlign :: EqTable k
=> Tabulation k a -> Tabulation k b -> Tabulation k (a, MaybeTable Expr b)
Expand All @@ -540,7 +540,7 @@ leftAlign = leftAlignWith (,)
--
-- Note that you can achieve the same effect with 'optional' and the
-- 'Applicative' instance for 'Tabulation', i.e., this is just
-- @\f left right -> liftA2 f left (optional right). You can also
-- @\\f left right -> liftA2 f left (optional right)@. You can also
-- use @do@-notation.
leftAlignWith :: EqTable k
=> (a -> MaybeTable Expr b -> c)
Expand All @@ -554,7 +554,7 @@ leftAlignWith f left right = liftA2 f left (optional right)
--
-- Note that you can achieve the same effect with 'optional' and the
-- 'Applicative' instance for 'Tabulation', i.e., this is just
-- @\left right -> liftA2 (flip (,)) right (optional left). You can
-- @\\left right -> liftA2 (flip (,)) right (optional left)@. You can
-- also use @do@-notation.
rightAlign :: EqTable k
=> Tabulation k a -> Tabulation k b -> Tabulation k (MaybeTable Expr a, b)
Expand All @@ -567,7 +567,7 @@ rightAlign = rightAlignWith (,)
--
-- Note that you can achieve the same effect with 'optional' and the
-- 'Applicative' instance for 'Tabulation', i.e., this is just
-- @\f left right -> liftA2 (flip f) right (optional left). You can
-- @\\f left right -> liftA2 (flip f) right (optional left)@. You can
-- also use @do@-notation.
rightAlignWith :: EqTable k
=> (MaybeTable Expr a -> b -> c)
Expand Down Expand Up @@ -607,7 +607,7 @@ zipWith = liftA2
--
-- Note that you can achieve a similar effect with 'present' and the
-- 'Applicative' instance of 'Tabulation', i.e., this is just
-- @\left right -> left <* present right@. You can also use
-- @\\left right -> left <* present right@. You can also use
-- @do@-notation.
similarity :: EqTable k => Tabulation k a -> Tabulation k b -> Tabulation k a
similarity a b = a <* present b
Expand All @@ -621,7 +621,7 @@ similarity a b = a <* present b
--
-- Note that you can achieve a similar effect with 'absent' and the
-- 'Applicative' instance of 'Tabulation', i.e., this is just
-- @\left right -> left <* absent right@. You can also use
-- @\\left right -> left <* absent right@. You can also use
-- @do@-notation.
difference :: EqTable k => Tabulation k a -> Tabulation k b -> Tabulation k a
difference a b = a <* absent b
Expand Down
4 changes: 2 additions & 2 deletions src/Rel8/Window.hs
Original file line number Diff line number Diff line change
Expand Up @@ -72,9 +72,9 @@ newtype Partition a = Partition (Opaleye.Window a)

-- | 'over' adds a 'Partition' to a 'Window' expression.
--
-- @@@
-- @
-- 'Rel8.Table.Window.cumulative' ('Rel8.Expr.Aggregate.sum' . salary) `over` 'partitionBy' department <> 'orderPartitionBy' (salary >$< 'Rel8.desc')
-- @@@
-- @
over :: Window a b -> Partition a -> Window a b
over (Window (Opaleye.Windows (Opaleye.PackMap w))) (Partition p) =
Window $ Opaleye.Windows $ Opaleye.PackMap $ \f ->
Expand Down

0 comments on commit ab4e152

Please sign in to comment.