typo: add missing word in a couple type error messages

fix #1842

Author: evancz

compiler/src/Reporting/Error/Type.hs

@@ -1077,7 +1077,7 @@ opRightToDocs localizer category op tipe expected =
         ( D.reflow $ "I cannot send this through the (<|) pipe:"
         , typeComparison localizer tipe expected
             "The argument is:"
-            "But (<|) is piping it a function that expects:"
+            "But (<|) is piping it to a function that expects:"
             []
         )
 
@@ -1088,7 +1088,7 @@ opRightToDocs localizer category op tipe expected =
             ( D.reflow $ "This function cannot handle the argument sent through the (|>) pipe:"
             , typeComparison localizer argType expectedArgType
                 "The argument is:"
-                "But (|>) is piping it a function that expects:"
+                "But (|>) is piping it to a function that expects:"
                 []
             )