Build a pretty dependency tree visualizer

2024-09-24 22:14:47 +02:00
parent ad3bba2d1a
commit 5b0a6f1236
3 changed files with 53 additions and 3 deletions
--- a/byg/src/Main.hs
+++ b/byg/src/Main.hs
@@ -1,14 +1,15 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Main where

-import Types (Dependency)
+import Types.Dependency (Dependency, formatDependencyTrees)
 import DependencyGenerator (evalDepGenM)
 import SiteGenerator (generateSite)

+import qualified Data.Text.IO as T
 import Language.Haskell.TH.Syntax (lift)

 dependencies :: [Dependency]
 dependencies = $(lift (evalDepGenM generateSite))

 main :: IO ()
-main = mapM_ print dependencies
+main = T.putStr $ formatDependencyTrees dependencies