diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs
index 669c154..a6defe1 100644
--- a/src-brittany/Main.hs
+++ b/src-brittany/Main.hs
@@ -99,7 +99,7 @@ mainCmdParser = do
       Nothing -> System.Exit.exitWith (System.Exit.ExitFailure 50)
       Just x -> return x
     when (confUnpack $ _dconf_dump_config $ _conf_debug $ config) $ do
-      trace (showTree config) $ return ()
+      trace (showConfigYaml config) $ return ()
     let ghcOptions = config
                    & _conf_forward
                    & _options_ghc
diff --git a/src/Language/Haskell/Brittany/Config.hs b/src/Language/Haskell/Brittany/Config.hs
index 819482b..055a815 100644
--- a/src/Language/Haskell/Brittany/Config.hs
+++ b/src/Language/Haskell/Brittany/Config.hs
@@ -8,6 +8,7 @@ module Language.Haskell.Brittany.Config
   , configParser
   , staticDefaultConfig
   , readMergePersConfig
+  , showConfigYaml
   )
 where
 
@@ -177,3 +178,8 @@ readMergePersConfig path shouldCreate conf = do
         return $ conf
     | otherwise -> do
         return conf
+
+showConfigYaml :: Config -> String
+showConfigYaml = Data.ByteString.Char8.unpack
+               . Data.Yaml.encode
+               . cMap (\(Identity x) -> Just x)