[Git][ghc/ghc][wip/unboxed-codebuffer] Fix warnings

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/unboxed-codebuffer at Glasgow Haskell Compiler / GHC


Commits:
daa4d2a1 by Josh Meredith at 2023-02-16T10:40:13+00:00
Fix warnings

- - - - -


1 changed file:

- libraries/base/GHC/IO/Encoding/Failure.hs


Changes:

=====================================
libraries/base/GHC/IO/Encoding/Failure.hs
=====================================
@@ -148,8 +148,8 @@ unescapeRoundtripCharacterSurrogate c
 recoverDecode# :: CodingFailureMode -> Buffer Word8 -> Buffer Char
                -> State# RealWorld -> (# State# RealWorld, Buffer Word8, Buffer Char #)
 recoverDecode# cfm input output st =
-  let (# st', (bIn, bOut) #) = unIO (recoverDecode cfm input output) st
-  in (# st', bIn, bOut #)
+  let !(# st', (bIn, bOut) #) = unIO (recoverDecode cfm input output) st
+  in  (# st', bIn, bOut #)
 
 recoverDecode :: CodingFailureMode -> Buffer Word8 -> Buffer Char
               -> IO (Buffer Word8, Buffer Char)
@@ -172,8 +172,8 @@ recoverDecode cfm input at Buffer{  bufRaw=iraw, bufL=ir, bufR=_  }
 recoverEncode# :: CodingFailureMode -> Buffer Char -> Buffer Word8
                -> State# RealWorld -> (# State# RealWorld, Buffer Char, Buffer Word8 #)
 recoverEncode# cfm input output st =
-  let (# st', (bIn, bOut) #) = unIO (recoverEncode cfm input output) st
-  in (# st', bIn, bOut #)
+  let !(# st', (bIn, bOut) #) = unIO (recoverEncode cfm input output) st
+  in  (# st', bIn, bOut #)
 
 recoverEncode :: CodingFailureMode -> Buffer Char -> Buffer Word8
               -> IO (Buffer Char, Buffer Word8)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/daa4d2a186528d3b92df59336a160ebbfd5ffb10

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/daa4d2a186528d3b92df59336a160ebbfd5ffb10
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230216/0aa2adca/attachment-0001.html>