From 80d60bb9b615fcc337a026b644c69d7b69854247 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Tue, 4 Sep 2012 18:37:02 -0300
Subject: [PATCH] Avoid using capitalized "Esqueleto" when referring to the
 library.

---
 src/Database/Esqueleto.hs                   | 8 ++++----
 src/Database/Esqueleto/Internal/Language.hs | 2 +-
 src/Database/Esqueleto/Internal/Sql.hs      | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
index 545ae48..caf67c6 100644
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE FlexibleContexts, FlexibleInstances, GADTs #-}
--- | Main module of Esqueleto.  This module replaces
+-- | Main module of @esqueleto@.  This module replaces
 -- @Database.Persist@, so instead of importing that module you
 -- should just import this one:
 --
@@ -15,7 +15,7 @@
 -- import qualified Database.Persist.Query as OldQuery
 -- @
 module Database.Esqueleto
-  ( -- * Esqueleto's Language
+  ( -- * @esqueleto@'s Language
     Esqueleto( where_, orderBy, asc, desc, sub, (^.), val
              , isNothing, just, nothing, not_, (==.), (>=.)
              , (>.), (<=.), (<.), (!=.), (&&.), (||.)
@@ -43,5 +43,5 @@ import Database.Persist.GenericSql
 -- $reexports
 --
 -- We re-export @Database.Persist.Store@ for convenience, since
--- Esqueleto currently does not provide a way of doing @insert@s
--- or @update@s.
+-- @esqueleto@ currently does not provide a way of doing
+-- @insert@s or @update@s.
diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs
index 4b9762c..991bea4 100644
--- a/src/Database/Esqueleto/Internal/Language.hs
+++ b/src/Database/Esqueleto/Internal/Language.hs
@@ -10,7 +10,7 @@ import Database.Persist.GenericSql
 import Database.Persist.Store
 
 
--- | Finally tagless representation of Esqueleto's EDSL.
+-- | Finally tagless representation of @esqueleto@'s EDSL.
 class (Functor query, Applicative query, Monad query) =>
       Esqueleto query expr backend | query -> expr backend, expr -> query backend where
   -- | (Internal) Single entity version of 'from'.
diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs
index e10a7c5..e901b32 100644
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@@ -33,7 +33,7 @@ import qualified Data.Text.Lazy.Builder as TLB
 import Database.Esqueleto.Internal.Language
 
 
--- | SQL backend for 'Esqueleto' using 'SqlPersist'.
+-- | SQL backend for @esqueleto@ using 'SqlPersist'.
 newtype SqlQuery a =
   Q { unQ :: W.WriterT SideData (S.Supply Ident) a }