@@ -1079,7 +1079,7 @@ opRightToDocs localizer category op tipe expected =
1079 EmphRight
1079 EmphRight
1080 ( D.reflow $ "I cannot send this through the (<|) pipe:"
1080 ( D.reflow $ "I cannot send this through the (<|) pipe:"
1081 , typeComparison localizer tipe expected
1081 , typeComparison localizer tipe expected
1082− (addCategory "You are providing" category)
1082+ "The argument is:"
1083 "But (<|) is piping it a function that expects:"
1083 "But (<|) is piping it a function that expects:"
@@ -1090,7 +1090,7 @@ opRightToDocs localizer category op tipe expected =
1090 EmphRight
1090 EmphRight
1091 ( D.reflow $ "This function cannot handle the argument sent through the (|>) pipe:"
1091 ( D.reflow $ "This function cannot handle the argument sent through the (|>) pipe:"
1092 , typeComparison localizer argType expectedArgType
1092 , typeComparison localizer argType expectedArgType
1093− (addCategory "The argument is" category)
1093+ "The argument is:"
1094 "But (|>) is piping it a function that expects:"
1094 "But (|>) is piping it a function that expects:"