unbreak (show :: Q [Char] -> [Char])
unbreak Haskell.Parse.amatch
parse λs