From 11db986781c214d0478a03c6b9e6f314a26bd5a0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 1 Aug 2023 18:33:39 -0400
Subject: [PATCH] enable TypeOperators
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

    The use of ‘~’ without TypeOperators
    will become an error in a future GHC release.

says new ghc
---
 Database/Fsck.hs | 1 +
 Remote/S3.hs     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/Database/Fsck.hs b/Database/Fsck.hs
index cccefefeda..cce5528100 100644
--- a/Database/Fsck.hs
+++ b/Database/Fsck.hs
@@ -12,6 +12,7 @@
 {-# LANGUAGE DataKinds, FlexibleInstances #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE TypeOperators #-}
 #if MIN_VERSION_persistent_template(2,8,0)
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE StandaloneDeriving #-}
diff --git a/Remote/S3.hs b/Remote/S3.hs
index 5fa8d97413..b96fc96dcb 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -6,6 +6,7 @@
  -}
 
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE RankNTypes #-}
-- 
2.39.5