Print functions nicer

2024-10-14 23:43:27 +02:00
parent b56853d133
commit 0e98373389
1 changed files with 8 additions and 1 deletions
--- a/byg/src/Types/Dependency.hs
+++ b/byg/src/Types/Dependency.hs
@@ -102,8 +102,15 @@ formatDependencyTrees = T.concat . (formatDependencyTrees' "")
          NoToken ->
            [ "--" ]

-        formatAction :: Text -> Action a b -> [Text]
+        formatAction :: forall a b. Text -> Action a b -> [Text]
        formatAction indentation = \case
+          Function _ ->
+            [ "Function "
+            , T.pack (show (typeRep :: TypeRep a))
+            , " -> "
+            , T.pack (show (typeRep :: TypeRep b))
+            , "\n"
+            ]
          MapComp subDeps innerInput innerOutput ->
            concat [ [ "MapComp(" ]
                   , formatToken innerInput