From b7bbe98c11677964ac831ac9575a77366b5ba519 Mon Sep 17 00:00:00 2001
From: Chris Allen <cma@bitemyapp.com>
Date: Thu, 13 Jul 2017 18:09:05 -0500
Subject: [PATCH] unsafeSqlOrderBy

---
 src/Database/Esqueleto/Internal/Sql.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs
index ec4578e..a5613d2 100644
--- a/src/Database/Esqueleto/Internal/Sql.hs
+++ b/src/Database/Esqueleto/Internal/Sql.hs
@@ -668,6 +668,11 @@ unsafeSqlValue :: TLB.Builder -> SqlExpr (Value a)
 unsafeSqlValue v = ERaw Never $ const (v, mempty)
 {-# INLINE unsafeSqlValue #-}
 
+-- | (Internal) A raw SQL ordering.  The same warning from
+-- 'unsafeSqlBinOp' applies to this function as well.
+unsafeSqlOrderBy :: TLB.Builder -> SqlExpr OrderBy
+unsafeSqlOrderBy v = ERaw Never $ const (v, mempty)
+{-# INLINE unsafeSqlOrderBy #-}
 
 -- | (Internal) A raw SQL function.  Once again, the same warning
 -- from 'unsafeSqlBinOp' applies to this function as well.