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.