@@ -1079,7 +1079,7 @@ opRightToDocs localizer category op tipe expected =
10791079 EmphRight
10801080 ( D.reflow $ "I cannot send this through the (<|) pipe:"
10811081 , typeComparison localizer tipe expected
1082− (addCategory "You are providing" category)
1082+ "The argument is:"
10831083 "But (<|) is piping it a function that expects:"
10841084 []
10851085 )
@@ -1090,7 +1090,7 @@ opRightToDocs localizer category op tipe expected =
10901090 EmphRight
10911091 ( D.reflow $ "This function cannot handle the argument sent through the (|>) pipe:"
10921092 , typeComparison localizer argType expectedArgType
1093− (addCategory "The argument is" category)
1093+ "The argument is:"
10941094 "But (|>) is piping it a function that expects:"
10951095 []
10961096 )