From 74fa2830e5d001ee237b1fd5b686b1a47cd75fe1 Mon Sep 17 00:00:00 2001 From: Gil Mizrahi Date: Thu, 30 Jun 2022 10:44:48 +0300 Subject: [PATCH] Prepare for ghc 9.4.1 which removed MonadFail ST --- Data/Double/Conversion/Internal/Text.hs | 2 +- Data/Double/Conversion/Internal/TextBuilder.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Double/Conversion/Internal/Text.hs b/Data/Double/Conversion/Internal/Text.hs index cbdcdee..df4776e 100644 --- a/Data/Double/Conversion/Internal/Text.hs +++ b/Data/Double/Conversion/Internal/Text.hs @@ -52,7 +52,7 @@ convert func len act val = runST go #endif size <- unsafeIOToST $ act (realToFrac val) ma when (size == -1) . - fail $ "Data.Double.Conversion.Text." ++ func ++ + error $ "Data.Double.Conversion.Text." ++ func ++ ": conversion failed (invalid precision requested)" frozen <- A.unsafeFreeze buf return $ Text frozen 0 (fromIntegral size) diff --git a/Data/Double/Conversion/Internal/TextBuilder.hs b/Data/Double/Conversion/Internal/TextBuilder.hs index bffe71f..1503261 100644 --- a/Data/Double/Conversion/Internal/TextBuilder.hs +++ b/Data/Double/Conversion/Internal/TextBuilder.hs @@ -43,6 +43,6 @@ convert func len act val = writeN (fromIntegral len) $ \(A.MArray maBa) _ -> do #endif size <- unsafeIOToST $ act (realToFrac val) maBa when (size == -1) . - fail $ "Data.Double.Conversion.Text." ++ func ++ + error $ "Data.Double.Conversion.Text." ++ func ++ ": conversion failed (invalid precision requested)" return ()