[sledge] Simplify Llair.pp

Summary: NFC refactor

Reviewed By: kren1

Differential Revision: D15614568

fbshipit-source-id: 0abaa9afd

sledge/src/llair/llair.ml

@@ -564,5 +564,4 @@ let pp fs {globals; functions} =
     globals
     (List.pp "@\n@\n" Func.pp)
     ( Map.data functions
-    |> List.sort ~compare:(fun x y ->
-           Int.compare x.entry.sort_index y.entry.sort_index ) )
+    |> List.sort ~compare:(fun x y -> compare_block x.entry y.entry) )