diff --git a/hydra-node/test/Hydra/NodeSpec.hs b/hydra-node/test/Hydra/NodeSpec.hs
index bfc05f60d14..62ce8670797 100644
--- a/hydra-node/test/Hydra/NodeSpec.hs
+++ b/hydra-node/test/Hydra/NodeSpec.hs
@@ -360,11 +360,6 @@ createPersistenceInMemory = do
       , loadAll = readTVarIO tvar
       }
 
-isReqSn :: Message tx -> Bool
-isReqSn = \case
-  ReqSn{} -> True
-  _ -> False
-
 inputsToOpenHead :: [Input SimpleTx]
 inputsToOpenHead =
   [ observationInput $ OnInitTx testHeadId testHeadSeed headParameters participants