From 57c3b403d57e25828bf5c55dd24af509d5f196b8 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Tue, 4 Sep 2012 00:29:39 -0300 Subject: [PATCH] Avoid undefined. --- src/Database/Esqueleto/Internal/Sql.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index a2b84ec..fdb4433 100644 --- a/src/Database/Esqueleto/Internal/Sql.hs +++ b/src/Database/Esqueleto/Internal/Sql.hs @@ -297,9 +297,10 @@ instance ( SqlSelect a ra sqlSelectProcessRow = let x = getType processRow getType :: SqlSelect a r => (z -> Either y (r,x)) -> a - getType = undefined + getType = error "Esqueleto/SqlSelect[(a,b)]/sqlSelectProcessRow/getType" - (colCountFst, _, _) = sqlSelectCols undefined x + (colCountFst, _, _) = sqlSelectCols escape x + where escape = error "Esqueleto/SqlSelect[(a,b)]/sqlSelectProcessRow/escape" processRow row = let (rowFst, rowSnd) = splitAt colCountFst row in (,) <$> sqlSelectProcessRow rowFst