Fix warnings

Author: Shimuuar

src/Python/Inline/Literal.hs

@@ -12,8 +12,6 @@ module Python.Inline.Literal
   , fromPy'
   ) where
 
-import Control.Concurrent
-import Control.Exception
 import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Class
@@ -24,7 +22,6 @@ import Data.Word
 import Data.Foldable
 import Foreign.Ptr
 import Foreign.C.Types
-import Foreign.Marshal.Alloc
 import Foreign.Storable
 
 import Language.C.Inline         qualified as C

src/Python/Internal/EvalQQ.hs

@@ -14,14 +14,11 @@ module Python.Internal.EvalQQ
   , unindent
   ) where
 
-import Control.Exception
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Class
 import Control.Monad.Trans.Cont
 import Data.Char
 import Foreign.C.Types
-import Foreign.C.String
-import Foreign.Marshal.Alloc
 import Foreign.Ptr
 import Foreign.Storable
 import System.Exit

src/Python/Internal/Program.hs

@@ -14,7 +14,6 @@ module Python.Internal.Program
   , withPyWCString
   ) where
 
-import Control.Exception
 import Control.Monad.Trans.Cont
 import Data.Coerce
 import Foreign.Ptr

src/Python/Types.hs

@@ -10,13 +10,8 @@ module Python.Types
   ) where
 
 import Data.Coerce
-
 import Foreign.Ptr
-import Foreign.ForeignPtr
-import Language.C.Inline         qualified as C
-
 import GHC.ForeignPtr
-
 import Python.Internal.Types
 
 unsafeWithPyObject :: forall a. PyObject -> (Ptr PyObject -> Py a) -> Py a

test/TST/Callbacks.hs

@@ -1,7 +1,6 @@
 -- |
 module TST.Callbacks (tests) where
 
-import Control.Concurrent
 import Test.Tasty
 import Test.Tasty.HUnit
 import Python.Inline

test/TST/Run.hs

@@ -18,8 +18,8 @@ tests = testGroup "Run python"
              x
              |]
       -- Visible
-      _ <- [py_| x |]
-      [pye| x |]
+      [py_| x |]
+      _ <- [pye| x |]
       [pymain|
         x
         del x

test/TST/ToPy.hs

@@ -3,7 +3,6 @@ module TST.ToPy (tests) where
 
 import Test.Tasty
 import Test.Tasty.HUnit
-import Python.Inline
 import Python.Inline.QQ
 
 tests :: TestTree