fixing util for removing unliftio

kazu-yamamoto · Nov 1, 2024 · 2c36f3c · 2c36f3c
1 parent 195d38d
commit 2c36f3c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/tls/util/tls-client.hs b/tls/util/tls-client.hs
@@ -5,19 +5,19 @@
 module Main where
 
 import Control.Concurrent
+import qualified Control.Exception as E
 import qualified Data.ByteString.Base16 as BS16
 import qualified Data.ByteString.Char8 as C8
 import Data.Default (def)
 import Data.IORef
 import Data.X509.CertificateStore
 import Network.Run.TCP
 import Network.Socket
-import Network.TLS
+import Network.TLS hiding (is0RTTPossible)
 import System.Console.GetOpt
 import System.Environment
 import System.Exit
 import System.X509
-import qualified UnliftIO.Exception as E
 
 import Client
 import Common

diff --git a/tls/util/tls-server.hs b/tls/util/tls-server.hs
@@ -5,6 +5,7 @@
 
 module Main where
 
+import qualified Control.Exception as E
 import qualified Data.ByteString.Base16 as BS16
 import qualified Data.ByteString.Char8 as C8
 import Data.Default (def)
@@ -16,7 +17,6 @@ import System.Console.GetOpt
 import System.Environment (getArgs)
 import System.Exit
 import System.IO
-import qualified UnliftIO.Exception as E
 
 import Common
 import Imports