diff options
-rw-r--r-- | lib/Language/Haskell/Stylish/Util.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Language/Haskell/Stylish/Util.hs b/lib/Language/Haskell/Stylish/Util.hs index 90bea63..1d35a03 100644 --- a/lib/Language/Haskell/Stylish/Util.hs +++ b/lib/Language/Haskell/Stylish/Util.hs @@ -22,8 +22,8 @@ module Language.Haskell.Stylish.Util , toRealSrcSpan - , traceOutputtable - , traceOutputtableM + , traceOutputable + , traceOutputableM , unguardedRhsBody , rhsBody @@ -213,14 +213,14 @@ flagEnds = \case -------------------------------------------------------------------------------- -traceOutputtable :: Outputable.Outputable a => String -> a -> b -> b -traceOutputtable title x = +traceOutputable :: Outputable.Outputable a => String -> a -> b -> b +traceOutputable title x = trace (title ++ ": " ++ (Outputable.showSDocUnsafe $ Outputable.ppr x)) -------------------------------------------------------------------------------- -traceOutputtableM :: (Outputable.Outputable a, Monad m) => String -> a -> m () -traceOutputtableM title x = traceOutputtable title x $ pure () +traceOutputableM :: (Outputable.Outputable a, Monad m) => String -> a -> m () +traceOutputableM title x = traceOutputable title x $ pure () -------------------------------------------------------------------------------- |