close streams after testing

Author: pepeiborra

ghcide/test/exe/Main.hs

@@ -5401,14 +5401,15 @@ testIde rootDir arguments session = do
         sleep 1
         runIt
 
-    -- hClose hInWrite
     timeout 3 (wait server) >>= \case
         Just () -> pure ()
         Nothing -> do
             putStrLn "Server does not exit in 3s, canceling the async task..."
             (t, _) <- duration $ cancel server
             putStrLn $ "Finishing canceling (took " <> showDuration t <> "s)"
 
+    hClose hInWrite
+    hClose hOutRead
     return res
 
 positionMappingTests :: TestTree