Revert embarrassing debugging leftover that breaks things badly
parent
5895f954bd
commit
0fdbd51de0
|
@ -474,7 +474,6 @@ ppModule lmod@(L _loc _m@(HsModule _name _exports _ decls _ _)) = do
|
||||||
$ mconcat (catMaybes (mBindingConfs ++ [mDeclConf]))
|
$ mconcat (catMaybes (mBindingConfs ++ [mDeclConf]))
|
||||||
|
|
||||||
let exactprintOnly = config' & _conf_roundtrip_exactprint_only & confUnpack
|
let exactprintOnly = config' & _conf_roundtrip_exactprint_only & confUnpack
|
||||||
when exactprintOnly $ mTell $ Text.Builder.fromText $ Text.pack "abc"
|
|
||||||
toLocal config' filteredAnns $ do
|
toLocal config' filteredAnns $ do
|
||||||
bd <- if exactprintOnly
|
bd <- if exactprintOnly
|
||||||
then briDocMToPPM $ briDocByExactNoComment decl
|
then briDocMToPPM $ briDocByExactNoComment decl
|
||||||
|
|
Loading…
Reference in New Issue