Remove an unused let binding and import in the round-trip test

bgamari · Nov 16, 2020 · 09fca62 · 09fca62
1 parent 1a250ac
commit 09fca62
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/test/Roundtrip.hs b/test/Roundtrip.hs
@@ -3,15 +3,14 @@ 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
 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