From fe85945748389c41d8a934720c49833bfdf859ae Mon Sep 17 00:00:00 2001
From: Wolfgang Jeltsch <wolfgang@well-typed.com>
Date: Thu, 16 Jan 2025 20:33:21 +0200
Subject: [PATCH] Fixed choice: Remove superfluous enabling of `MagicHash`

---
 src/Database/LSMTree/Internal/ChecksumHandle.hs | 2 --
 src/Database/LSMTree/Internal/Config.hs         | 2 --
 src/Database/LSMTree/Internal/Merge.hs          | 2 --
 src/Database/LSMTree/Internal/MergingRun.hs     | 2 --
 src/Database/LSMTree/Internal/Run.hs            | 1 -
 src/Database/LSMTree/Internal/RunAcc.hs         | 1 -
 src/Database/LSMTree/Internal/RunBuilder.hs     | 2 --
 7 files changed, 12 deletions(-)

diff --git a/src/Database/LSMTree/Internal/ChecksumHandle.hs b/src/Database/LSMTree/Internal/ChecksumHandle.hs
index e5c033a4a..caeab29d7 100644
--- a/src/Database/LSMTree/Internal/ChecksumHandle.hs
+++ b/src/Database/LSMTree/Internal/ChecksumHandle.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE MagicHash #-}
-
 module Database.LSMTree.Internal.ChecksumHandle
   (
     -- * Checksum handles
diff --git a/src/Database/LSMTree/Internal/Config.hs b/src/Database/LSMTree/Internal/Config.hs
index 9f84e5b00..bf8b08053 100644
--- a/src/Database/LSMTree/Internal/Config.hs
+++ b/src/Database/LSMTree/Internal/Config.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE MagicHash #-}
-
 module Database.LSMTree.Internal.Config (
     LevelNo (..)
     -- * Table configuration
diff --git a/src/Database/LSMTree/Internal/Merge.hs b/src/Database/LSMTree/Internal/Merge.hs
index ed7a54228..03a9ac999 100644
--- a/src/Database/LSMTree/Internal/Merge.hs
+++ b/src/Database/LSMTree/Internal/Merge.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE MagicHash #-}
-
 -- | The 'Merge' type and its functions are not intended for concurrent use.
 -- Concurrent access should therefore be sequentialised using a suitable
 -- concurrency primitive, such as an 'MVar'.
diff --git a/src/Database/LSMTree/Internal/MergingRun.hs b/src/Database/LSMTree/Internal/MergingRun.hs
index f76012ab3..e666507e3 100644
--- a/src/Database/LSMTree/Internal/MergingRun.hs
+++ b/src/Database/LSMTree/Internal/MergingRun.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE MagicHash    #-}
-
 {- HLINT ignore "Use when" -}
 
 -- | An incremental merge of multiple runs.
diff --git a/src/Database/LSMTree/Internal/Run.hs b/src/Database/LSMTree/Internal/Run.hs
index df103c09a..d4935ee09 100644
--- a/src/Database/LSMTree/Internal/Run.hs
+++ b/src/Database/LSMTree/Internal/Run.hs
@@ -2,7 +2,6 @@
 {-# LANGUAGE DeriveAnyClass     #-}
 {-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE DerivingVia        #-}
-{-# LANGUAGE MagicHash          #-}
 {-# LANGUAGE RecordWildCards    #-}
 
 -- | Runs of sorted key\/value data.
diff --git a/src/Database/LSMTree/Internal/RunAcc.hs b/src/Database/LSMTree/Internal/RunAcc.hs
index 68a5363d7..a217fbf8d 100644
--- a/src/Database/LSMTree/Internal/RunAcc.hs
+++ b/src/Database/LSMTree/Internal/RunAcc.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE MagicHash       #-}
 {-# LANGUAGE RecordWildCards #-}
 {- HLINT ignore "Redundant lambda" -}
 {- HLINT ignore "Use camelCase" -}
diff --git a/src/Database/LSMTree/Internal/RunBuilder.hs b/src/Database/LSMTree/Internal/RunBuilder.hs
index d3926ec7a..2603571cd 100644
--- a/src/Database/LSMTree/Internal/RunBuilder.hs
+++ b/src/Database/LSMTree/Internal/RunBuilder.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE MagicHash #-}
-
 -- | A mutable run ('RunBuilder') that is under construction.
 --
 module Database.LSMTree.Internal.RunBuilder (