From be4c965afe599a1f5bb8392a47985eb828b4a866 Mon Sep 17 00:00:00 2001 From: Łukasz Gołębiewski Date: Mon, 5 Oct 2020 09:21:40 +0200 Subject: Fix typo (#314) --- lib/Language/Haskell/Stylish/Util.hs | 12 ++++++------ 1 file 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 () -------------------------------------------------------------------------------- -- cgit v1.2.3