From 4822172a428e4d060d9ea261cb50aa717ced4729 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Thu, 6 Sep 2012 10:36:45 -0300
Subject: [PATCH] Haddock fix.

---
 src/Database/Esqueleto/Internal/Language.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs
index 3e9fa9c..ca9cec3 100644
--- a/src/Database/Esqueleto/Internal/Language.hs
+++ b/src/Database/Esqueleto/Internal/Language.hs
@@ -121,7 +121,7 @@ class (Functor query, Applicative query, Monad query) =>
   --     test2 = flip (,) \<$\> query2 \<*\> query1
   -- @
   --
-  -- If the order was *not* reversed, then @test2@ would be
+  -- If the order was /not/ reversed, then @test2@ would be
   -- broken: @query1@'s 'on' would refer to @query2@'s
   -- 'LeftOuterJoin'.
   on :: expr (Value Bool) -> query ()
@@ -155,9 +155,9 @@ class (Functor query, Applicative query, Monad query) =>
   -- | @IS NULL@ comparison.
   isNothing :: PersistField typ => expr (Value (Maybe typ)) -> expr (Value Bool)
 
-  -- | Analog to 'Just', promotes a value of type @typ@ into one
-  -- of type @Maybe typ@.  It should hold that @val . Just ===
-  -- just . val@.
+  -- | Analogous to 'Just', promotes a value of type @typ@ into
+  -- one of type @Maybe typ@.  It should hold that @val . Just
+  -- === just . val@.
   just :: expr (Value typ) -> expr (Value (Maybe typ))
 
   -- | @NULL@ value.