haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avoid undefined.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-04 00:29:39 -03:00
parent dc6bcda8e4
commit 57c3b403d5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Database/Esqueleto/Internal/Sql.hs
View File

@ -297,9 +297,10 @@ instance ( SqlSelect a ra
sqlSelectProcessRow = sqlSelectProcessRow =
let x = getType processRow let x = getType processRow
getType :: SqlSelect a r => (z -> Either y (r,x)) -> a 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 = processRow row =
let (rowFst, rowSnd) = splitAt colCountFst row let (rowFst, rowSnd) = splitAt colCountFst row
in (,) <$> sqlSelectProcessRow rowFst in (,) <$> sqlSelectProcessRow rowFst