diff options
author | Łukasz Gołębiewski <lukasz.golebiewski@gmail.com> | 2020-10-05 09:21:40 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-10-05 09:21:40 +0200 |
commit | be4c965afe599a1f5bb8392a47985eb828b4a866 (patch) | |
tree | 20898e273e56acb7968089f450a0ea9158a7a40a | |
parent | 3f4edcce319c3dafd1d1309b281625beb854e8a7 (diff) | |
download | stylish-haskell-be4c965afe599a1f5bb8392a47985eb828b4a866.tar.gz |
Fix typo (#314)
-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 () -------------------------------------------------------------------------------- |