diff --git a/src/Database/Esqueleto/Record.hs b/src/Database/Esqueleto/Record.hs index cdc9913be..48b91c1f4 100644 --- a/src/Database/Esqueleto/Record.hs +++ b/src/Database/Esqueleto/Record.hs @@ -935,10 +935,8 @@ sqlMaybeSelectProcessRowDec RecordInfo {..} = do ] where wrapJust x = case x of - AppT (ConT ((==) ''Entity -> True)) _innerType -> id ((ConT ((==) ''Maybe -> True)) `AppT` _inner) -> AppE (ConE 'Just) - (ConT _) -> id - _ -> error $ show x + _ -> id -- | Generates the `sqlSelectColCount` declaration for an `SqlSelect` instance. sqlMaybeSelectColCountDec :: RecordInfo -> Q Dec