module Text.Groom (groom, groomString) where import Language.Haskell.Exts.Parser import Language.Haskell.Exts.Pretty groomString :: String -> String groomString :: String -> String groomString String s = case String -> ParseResult (Exp SrcSpanInfo) parseExp String s of ParseOk Exp SrcSpanInfo x -> Exp SrcSpanInfo -> String forall a. Pretty a => a -> String prettyPrint Exp SrcSpanInfo x ParseFailed{} -> String s groom :: Show a => a -> String groom :: forall a. Show a => a -> String groom = String -> String groomString (String -> String) -> (a -> String) -> a -> String forall b c a. (b -> c) -> (a -> b) -> a -> c . a -> String forall a. Show a => a -> String show