Skip to content

Commit 6ec0366

Browse files
authored
Fix some markup in haddocks (#318)
Fixes #315.
1 parent 4c18447 commit 6ec0366

File tree

3 files changed

+9
-9
lines changed

3 files changed

+9
-9
lines changed

src/Rel8/Statement.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,7 @@ data Returning where
132132
-- delete Delete
133133
-- { from = fooSchema
134134
-- , using = pure ()
135-
-- , deleteWhere = \_ -> predicate
135+
-- , deleteWhere = \\_ -> predicate
136136
-- , returning = Returning id
137137
-- }
138138
-- insert Insert

src/Rel8/Tabulate.hs

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -527,7 +527,7 @@ alignWith f (Tabulation as) (Tabulation bs) = Tabulation $ \p -> do
527527
--
528528
-- Note that you can achieve the same effect with 'optional' and the
529529
-- 'Applicative' instance for 'Tabulation', i.e., this is just
530-
-- @\left right -> liftA2 (,) left (optional right). You can also
530+
-- @\\left right -> liftA2 (,) left (optional right)@. You can also
531531
-- use @do@-notation.
532532
leftAlign :: EqTable k
533533
=> Tabulation k a -> Tabulation k b -> Tabulation k (a, MaybeTable Expr b)
@@ -540,7 +540,7 @@ leftAlign = leftAlignWith (,)
540540
--
541541
-- Note that you can achieve the same effect with 'optional' and the
542542
-- 'Applicative' instance for 'Tabulation', i.e., this is just
543-
-- @\f left right -> liftA2 f left (optional right). You can also
543+
-- @\\f left right -> liftA2 f left (optional right)@. You can also
544544
-- use @do@-notation.
545545
leftAlignWith :: EqTable k
546546
=> (a -> MaybeTable Expr b -> c)
@@ -554,7 +554,7 @@ leftAlignWith f left right = liftA2 f left (optional right)
554554
--
555555
-- Note that you can achieve the same effect with 'optional' and the
556556
-- 'Applicative' instance for 'Tabulation', i.e., this is just
557-
-- @\left right -> liftA2 (flip (,)) right (optional left). You can
557+
-- @\\left right -> liftA2 (flip (,)) right (optional left)@. You can
558558
-- also use @do@-notation.
559559
rightAlign :: EqTable k
560560
=> Tabulation k a -> Tabulation k b -> Tabulation k (MaybeTable Expr a, b)
@@ -567,7 +567,7 @@ rightAlign = rightAlignWith (,)
567567
--
568568
-- Note that you can achieve the same effect with 'optional' and the
569569
-- 'Applicative' instance for 'Tabulation', i.e., this is just
570-
-- @\f left right -> liftA2 (flip f) right (optional left). You can
570+
-- @\\f left right -> liftA2 (flip f) right (optional left)@. You can
571571
-- also use @do@-notation.
572572
rightAlignWith :: EqTable k
573573
=> (MaybeTable Expr a -> b -> c)
@@ -607,7 +607,7 @@ zipWith = liftA2
607607
--
608608
-- Note that you can achieve a similar effect with 'present' and the
609609
-- 'Applicative' instance of 'Tabulation', i.e., this is just
610-
-- @\left right -> left <* present right@. You can also use
610+
-- @\\left right -> left <* present right@. You can also use
611611
-- @do@-notation.
612612
similarity :: EqTable k => Tabulation k a -> Tabulation k b -> Tabulation k a
613613
similarity a b = a <* present b
@@ -621,7 +621,7 @@ similarity a b = a <* present b
621621
--
622622
-- Note that you can achieve a similar effect with 'absent' and the
623623
-- 'Applicative' instance of 'Tabulation', i.e., this is just
624-
-- @\left right -> left <* absent right@. You can also use
624+
-- @\\left right -> left <* absent right@. You can also use
625625
-- @do@-notation.
626626
difference :: EqTable k => Tabulation k a -> Tabulation k b -> Tabulation k a
627627
difference a b = a <* absent b

src/Rel8/Window.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -72,9 +72,9 @@ newtype Partition a = Partition (Opaleye.Window a)
7272

7373
-- | 'over' adds a 'Partition' to a 'Window' expression.
7474
--
75-
-- @@@
75+
-- @
7676
-- 'Rel8.Table.Window.cumulative' ('Rel8.Expr.Aggregate.sum' . salary) `over` 'partitionBy' department <> 'orderPartitionBy' (salary >$< 'Rel8.desc')
77-
-- @@@
77+
-- @
7878
over :: Window a b -> Partition a -> Window a b
7979
over (Window (Opaleye.Windows (Opaleye.PackMap w))) (Partition p) =
8080
Window $ Opaleye.Windows $ Opaleye.PackMap $ \f ->

0 commit comments

Comments
 (0)