Fix some markup in haddocks

This closes #315.
circuithub · Mar 22, 2024 · 6862359 · 6862359
1 parent 4c18447
commit 6862359
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Rel8/Statement.hs b/src/Rel8/Statement.hs
@@ -132,7 +132,7 @@ data Returning where
 --     delete Delete
 --       { from = fooSchema
 --       , using = pure ()
---       , deleteWhere = \_ -> predicate
+--       , deleteWhere = \\_ -> predicate
 --       , returning = Returning id
 --       }
 --   insert Insert

diff --git a/src/Rel8/Window.hs b/src/Rel8/Window.hs
@@ -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 ->