chore: fix tests

config/test-settings.yml

@@ -1,6 +1,7 @@
 database:
   database: "_env:PGDATABASE_TEST:uniworx_test"
 upload-cache-bucket: "uni2work-test-uploads"
+upload-tmp-bucket: "uni2work-test-tmp"
 
 log-settings:
   detailed:      true

src/Handler/Sheet/PersonalisedFiles.hs

@@ -50,6 +50,8 @@ import qualified Control.Monad.State as State
 import Control.Monad.Memo (MemoStateT, MonadMemo(..), for2)
 import Utils.Memo
 
+{-# ANN module ("HLint: ignore Use newtype instead of data" :: String) #-}
+
   
 data PersonalisedSheetFileUnresolved a
   = PSFUnresolvedDirectory a

test/Handler/Sheet/PersonalisedFilesSpec.hs

@@ -25,6 +25,8 @@ import Database.Persist.Sql (transactionUndo)
 
 import Data.Bitraversable
 
+import qualified Data.Set as Set
+
 
 instance Arbitrary (FileReferenceResidual PersonalisedSheetFile) where
   arbitrary = PersonalisedSheetFileResidual
@@ -82,7 +84,7 @@ spec = withApp . describe "Personalised sheet file zip encoding" $ do
           loadResolved (f, fRes) = (, fRes) <$> traverse toPureFile f
 
     recoveredFiles <- runConduit $
-         sourcePersonalisedSheetFiles cid (Just shid) Nothing anonMode
+         sourcePersonalisedSheetFiles cid (Just shid) Nothing anonMode Set.empty
       .| resolvePersonalisedSheetFiles fpL isDirectory cid shid
       .| C.mapM loadFile
       .| C.foldMap pure