Update Formatters.hs

toText → shown