{-# LANGUAGE FlexibleInstances, UndecidableInstances, OverlappingInstances #-}-- | Support module for the @interpol@ preprocessor.moduleText.Interpol((^-^))whereinfixl3^-^-- | Append a showable value to a 'String' in a smart way. In-- particular, do /not/ 'show' a 'String', as this encloses it in-- \"quotes\". So, depending on the type of the second parameter,-- '^-^' is equivalent to one of the following---- @-- x ^-^ y = x ++ y-- x ^-^ y = x ++ show y-- @(^-^)::Interpola=>String->a->String(^-^)=interpolclassInterpolawhereinterpol::String->a->StringinstanceInterpol[Char]whereinterpolsx=s++xinstanceShowa=>Interpolawhereinterpolsx=s++showx