From 36acb1e1c27b01b34f0b0943ec68339aa7fb4d02 Mon Sep 17 00:00:00 2001 From: Chris Allen Date: Sun, 30 Jul 2017 11:10:38 -0500 Subject: [PATCH] Move Exception closer to EsqueletoError --- src/Database/Esqueleto/Internal/Sql.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Database/Esqueleto/Internal/Sql.hs b/src/Database/Esqueleto/Internal/Sql.hs index 3b8f3c1..bf49f5f 100644 --- a/src/Database/Esqueleto/Internal/Sql.hs +++ b/src/Database/Esqueleto/Internal/Sql.hs @@ -83,6 +83,8 @@ data EsqueletoError = | SqlBinOpCompositeErr SqlBinOpCompositeError deriving (Show) +instance Exception EsqueletoError + data CompositeKeyError = NotError | ToInsertionError @@ -112,8 +114,6 @@ data SqlBinOpCompositeError = | DeconstructionError deriving (Show) -instance Exception EsqueletoError - ----------------------------------------------------------------------