[WIP] [TSD-85] Add exception handling for parsing HTTP requests

cabal2nix.nix

@@ -1,8 +1,8 @@
 { mkDerivation, aeson, array, attoparsec, base, bytestring
-, containers, directory, generics-sop, hspec, http-conduit
+, containers, directory, either, generics-sop, hspec, http-conduit
 , monad-control, mtl, optparse-applicative, QuickCheck, reflection
-, regex-tdfa, resource-pool, sqlite-simple, stdenv, text, time
-, transformers-base, universum, unliftio, zip-archive
+, regex-tdfa, resource-pool, safe-exceptions, sqlite-simple, stdenv
+, text, time, transformers-base, universum, unliftio, zip-archive
 }:
 mkDerivation {
   pname = "log-classifier";
@@ -11,10 +11,11 @@ mkDerivation {
   isLibrary = true;
   isExecutable = true;
   libraryHaskellDepends = [
-    aeson array attoparsec base bytestring containers directory
+    aeson array attoparsec base bytestring containers directory either
     generics-sop http-conduit monad-control mtl optparse-applicative
-    QuickCheck reflection regex-tdfa resource-pool sqlite-simple text
-    time transformers-base universum unliftio zip-archive
+    QuickCheck reflection regex-tdfa resource-pool safe-exceptions
+    sqlite-simple text time transformers-base universum unliftio
+    zip-archive
   ];
   executableHaskellDepends = [ base universum ];
   testHaskellDepends = [

log-classifier.cabal

@@ -41,6 +41,7 @@ library
                      , bytestring
                      , containers
                      , directory
+                     , either
                      , http-conduit
                      -- Effects & company
                      , mtl
@@ -56,6 +57,7 @@ library
                      , universum
                      , zip-archive
                      , QuickCheck
+                     , safe-exceptions
                      -- Database backend
                      , sqlite-simple 
                      , resource-pool

src/DataSource/DB.hs

@@ -113,7 +113,7 @@ emptyDBLayer = DBLayer
 
 -- | The simple connection Zendesk layer. Used for database querying.
 -- We need to sync occasionaly.
-connDataLayer :: forall m. (MonadIO m, MonadReader Config m) => DataLayer m
+connDataLayer :: forall m. (MonadIO m, MonadReader Config m, MonadCatch m) => DataLayer m
 connDataLayer = DataLayer
     { zlGetTicketInfo           = \tId -> withProdDatabase $ \conn -> getTicketInfoByTicketId conn tId
     , zlListDeletedTickets      = zlListDeletedTickets basicDataLayer
@@ -147,7 +147,7 @@ connDBLayer = DBLayer
 
 -- | The connection pooled Zendesk layer. Used for database querying.
 -- We need to sync occasionaly.
-connPoolDataLayer :: forall m. (MonadBaseControl IO m, MonadIO m, MonadReader Config m) => DBConnPool -> DataLayer m
+connPoolDataLayer :: forall m. (MonadBaseControl IO m, MonadIO m, MonadReader Config m, MonadCatch m) => DBConnPool -> DataLayer m
 connPoolDataLayer connPool = DataLayer
     { zlGetTicketInfo           = \tId -> withConnPool connPool $ \conn -> getTicketInfoByTicketId conn tId
     , zlListDeletedTickets      = zlListDeletedTickets basicDataLayer
@@ -448,4 +448,3 @@ deleteAllData conn = do
     deleteCommentAttachments conn
     deleteTicketComments conn
     deleteTickets conn
-