diff --git a/utils/haddock/haddock-test/src/Test/Haddock.hs b/utils/haddock/haddock-test/src/Test/Haddock.hs
index 5745955bd6d6b2cf5e4a9a1122d6440fc0b741cb..151005cd9fd4e63aeb294ba6188340efcdb73177 100644
--- a/utils/haddock/haddock-test/src/Test/Haddock.hs
+++ b/utils/haddock/haddock-test/src/Test/Haddock.hs
@@ -156,7 +156,7 @@ runHaddock cfg@(Config{..}) = do
 
       files <- filter ((== ".hi") . takeExtension) <$> listDirectory hiDir
       -- Use the output order of GHC as a simple dependency order
-      filesSorted <- Map.elems . Map.fromList <$> traverse (\file -> (,file) <$> getModificationTime (hiDir </> file)) files
+      filesSorted <- Map.elems . Map.fromList <$> traverse (\file -> (\mt -> ((mt,file),file)) <$> getModificationTime (hiDir </> file)) files
       let srcRef = if "--hyperlinked-source" `elem` cfgHaddockArgs then ",src,visible," else ""
           loop [] = pure True
           loop (file : files) = do