[Git][ghc/ghc][wip/ghc-debug] Fix lint

[Sven Tennie]

Sven Tennie pushed to branch wip/ghc-debug at Glasgow Haskell Compiler / GHC


Commits:
65567212 by Sven Tennie at 2020-05-11T19:45:09+02:00
Fix lint

- - - - -


1 changed file:

- libraries/ghc-heap/GHC/Exts/Heap/FFIClosures.hsc


Changes:

=====================================
libraries/ghc-heap/GHC/Exts/Heap/FFIClosures.hsc
=====================================
@@ -4,17 +4,10 @@ module GHC.Exts.Heap.FFIClosures where
 
 import Prelude
 import Foreign
-import Foreign.Ptr
-import Data.Int
-
-import GHC.Exts.Heap.Closures
 
 peekStgThreadID :: Ptr a -> IO Word64
-peekStgThreadID ptr = do
-    id <- (#peek struct StgTSO_, id) ptr
-    return id
+peekStgThreadID ptr = (#peek struct StgTSO_, id) ptr
+
 
 peekAllocLimit :: Ptr a -> IO Int64
-peekAllocLimit ptr = do
-    alloc_limit <- (#peek struct StgTSO_, alloc_limit) ptr
-    return alloc_limit
+peekAllocLimit ptr = (#peek struct StgTSO_, alloc_limit) ptr



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/65567212a3d9c5471a5f05076519c58a4fcfabdd
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/20200511/899ab3ca/attachment.html>