[Haskell-cafe] Remove redundancy with Template Haskell

Hi Café, I have a function that looks like this: call :: SomeFunction -> String -> SomeState The string is actually the representation of the function passed in parameter. It is stored in the state for documentation. So a call looks like that: call (\a -> putStrLn a) "\a -> putStrLn a" There is a clear redundancy here, how could I remove it with Template Haskell? I cannot figure out... Thanks! Corentin