syntactic 1.15 → 1.15.1

raw patch · 2 files changed

+9/−2 lines, 2 files

Files

• src/Language/Syntactic/Constructs/Decoration.hs +8/−1
• syntactic.cabal +1/−1

@@ -113,8 +113,15 @@ drawDecorWith :: StringTree dom => (forall a. info a -> String) -> ASTF (Decor info dom) a -> IO () drawDecorWith showInfo = putStrLn . showDecorWith showInfo +writeHtmlDecorWith :: forall info sym a. (StringTree sym)+                   => (forall b. info b -> String) -> FilePath -> ASTF (Decor info sym) a -> IO ()+writeHtmlDecorWith showInfo file a = writeHtmlTree file $ mkTree [] a+  where+    mkTree :: [Tree NodeInfo] -> AST (Decor info sym) sig -> Tree NodeInfo+    mkTree args (f :$ a) = mkTree (mkTree [] a : args) f+    mkTree args (Sym (Decor info expr)) = Node (NodeInfo (renderSym expr) (showInfo info)) args+ -- | Strip decorations from an 'AST' stripDecor :: AST (Decor info dom) sig -> AST dom sig stripDecor (Sym (Decor _ a)) = Sym a stripDecor (f :$ a)          = stripDecor f :$ stripDecor a-

@@ -1,5 +1,5 @@ Name:           syntactic-Version:        1.15+Version:        1.15.1 Synopsis:       Generic abstract syntax, and utilities for embedded languages Description:    This library provides:                 .