From 5e2931db9e594542b15d1ac1b07b71e717108680 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 19 Jan 2023 22:36:47 +0100
Subject: [PATCH] another attempt to fix build

---
 package.yaml       | 6 ++++--
 src/Utils/Print.hs | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/package.yaml b/package.yaml
index b4a948e36..233faef5d 100644
--- a/package.yaml
+++ b/package.yaml
@@ -254,7 +254,7 @@ ghc-options:
   - -fno-warn-unrecognised-pragmas
   - -fno-warn-partial-type-signatures
   - -fno-max-relevant-binds
-  - -j1
+  - -j
   - -freduction-depth=0
 when:
   - condition: flag(pedantic)
@@ -267,10 +267,12 @@ when:
         - -O0
         - -ddump-splices
         - -ddump-to-file
+        # - -Wderiving-typeable
       cpp-options: -DDEVELOPMENT
     else:
       ghc-options:
-        - -O -fllvm
+        - -O 
+        # -fllvm
 data-files:
   - testdata/**
 library:
diff --git a/src/Utils/Print.hs b/src/Utils/Print.hs
index e43c45215..0b4ed0e20 100644
--- a/src/Utils/Print.hs
+++ b/src/Utils/Print.hs
@@ -43,7 +43,7 @@ import Handler.Utils.Users
 import Handler.Utils.DateTime
 import Handler.Utils.Mail
 import Handler.Utils.Widgets (nameHtml')
-import Handler.Utils.Avs (updateReceivers)
+-- import Handler.Utils.Avs (updateReceivers)
 import Jobs.Handler.SendNotification.Utils
 
 -- import Model.Types.Markup -- TODO-QSV: should this module be moved accordingly?
@@ -414,7 +414,7 @@ instance MDLetter LetterRenewQualificationF where
 
 sendEmailOrLetter :: (MDLetter l) => UserId -> l -> Handler Bool
 sendEmailOrLetter recipient letter = do  
-  (underling, receivers, undercopy) <- updateReceivers recipient
+  (underling, receivers, undercopy) <- runDB $ getReceivers recipient -- updateReceivers recipient -- TODO circular dependency
   let tmpl = getTemplate $ pure letter
       pjid = getPJId letter
       -- Below are only needed if sent by email