@@ -19,7 +19,6 @@ import Control.Concurrent
1919import Network.Transport (EndPointAddress)
2020import Network.Transport.TCP (encodeEndPointAddress, decodeEndPointAddress)
2121import Data.Either (isRight)
22−import Data.Maybe (isJust)
2322import Control.Exception
2423--import Control.Monad.IO.Class
2524#if defined(linux_HOST_OS)
@@ -176,7 +175,7 @@ testSession _ conn = TestCase $ do
176175 Right sessionId1 -> do
177176 eHeadId <- headTransactionId sessionId1 conn
178177 case eHeadId of
179− Left err -> assertFailure "invalid head id"
178+ Left err -> assertFailure ("invalid head id: " ++ show err)
180179 Right headId -> do
181180 eSessionId2 <- createSessionAtCommit headId conn
182181 assertBool ("invalid session: " ++ show eSessionId2) (isRight eSessionId2)