Fixup for GHC 9.4

added `TypeOperators` extensions
where `~` is used.

removed MonadFail constraint from `convert`
in the Data.Double.Conversion.Internal.TextBuilder.

Author: HaskellMouse

Data/Double/Conversion/Convertable.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE DefaultSignatures, InstanceSigs, MagicHash, MultiParamTypeClasses,
-             TypeFamilies #-}
+             TypeFamilies, TypeOperators #-}
 
 -- |
 -- Module      : Data.Double.Conversion.Convertable

Data/Double/Conversion/Internal/ByteString.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeFamilies, TypeOperators #-}
 
 -- |
 -- Module      : Data.Double.Conversion.ByteString

Data/Double/Conversion/Internal/ByteStringBuilder.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE TypeFamilies, TypeOperators #-}
 
 -- |
 -- Module      : Data.Double.Conversion.ByteStringBuilder

Data/Double/Conversion/Internal/Text.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, MagicHash, Rank2Types, TypeFamilies, BangPatterns #-}
+{-# LANGUAGE CPP, MagicHash, Rank2Types, TypeFamilies, BangPatterns, TypeOperators #-}
 
 -- |
 -- Module      : Data.Double.Conversion.Text

Data/Double/Conversion/Internal/TextBuilder.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, MagicHash, Rank2Types, TypeFamilies #-}
+{-# LANGUAGE CPP, MagicHash, Rank2Types, TypeFamilies, TypeOperators #-}
 -- |
 -- Module      : Data.Double.Conversion.TextBuilder
 -- Copyright   : (c) 2011 MailRank, Inc.
@@ -45,7 +45,7 @@ convert func len act val = runST $ do
   size <- unsafeIOToST $ act (realToFrac val) tempMArr
   tempArr <- A.unsafeFreeze mTempArr
   when (size == -1) .
-      fail $ "Data.Double.Conversion.Text." ++ func ++
+      error $ "Data.Double.Conversion.Text." ++ func ++
               ": conversion failed."
 #if MIN_VERSION_text(2,0,0)
   return $ writeN (fromIntegral size) $ \mArr _ -> A.copyI (fromIntegral size) mArr 0 tempArr 0