From 09fca62271c870bc45ed76ebc9f4f36c426ee88c Mon Sep 17 00:00:00 2001
From: Mitsutoshi Aoe <me@maoe.name>
Date: Tue, 17 Nov 2020 06:15:07 +0900
Subject: [PATCH] Remove an unused let binding and import in the round-trip
 test

---
 test/Roundtrip.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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