remove trailing spaces

Author: giltho

src/lexer.mll

@@ -387,7 +387,7 @@ rule token input = parse
             ~what:(Token.describe `End)
             ~in_what:(Token.describe token));
       emit input token }
-  
+
   | "{ul"
     { emit input (`Begin_list `Unordered) }
 

test/test.ml

@@ -1282,8 +1282,8 @@ let%expect_test _ =
           ( "File \"f.ml\", line 1, characters 0-4:\
            \n'{^...}' (superscript) should not be empty."))) |}]
   end in
-  ()  
-  
+  ()
+
 let%expect_test _ =
   let module Subscript = struct
     let basic =