diff --git a/test/Roundtrip.hs b/test/Roundtrip.hs
index 1dc789e..194c9ba 100644
--- a/test/Roundtrip.hs
+++ b/test/Roundtrip.hs
@@ -3,7 +3,7 @@ import System.Exit
 
 import GHC.RTS.Events
 import GHC.RTS.Events.Incremental
-import Utils (files, diffLines)
+import Utils (files)
 
 -- | Check that an eventlog round-trips through encoding/decoding.
 checkRoundtrip :: FilePath -> IO Bool
@@ -11,7 +11,6 @@ checkRoundtrip logFile = do
   putStrLn logFile
   Right eventlog <- readEventLogFromFile logFile
   let Right (roundtripped, _) = readEventLog $ serialiseEventLog eventlog
-  let getEvents = sortEvents . events . dat
   if show roundtripped == show eventlog
     then return True
     else putStrLn "bad" >> return False