From 4003a863256352a43161eba44abecf986e76092c Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 6 Jun 2024 09:25:05 +0200
Subject: add naive schema comparison
---
autotypes/src/AutoTypes.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
(limited to 'autotypes')
diff --git a/autotypes/src/AutoTypes.hs b/autotypes/src/AutoTypes.hs
index c5a43d1..826d6c6 100644
--- a/autotypes/src/AutoTypes.hs
+++ b/autotypes/src/AutoTypes.hs
@@ -4,7 +4,6 @@ module AutoTypes
)
where
-import Debug.Trace
import qualified AutoTypes.Unify as U
import Data.Aeson (Value, decodeFileStrict', encode)
import Data.Maybe (fromJust)
@@ -17,7 +16,7 @@ autoTypes fp fps = autoTypes' <$> go fp <*> mapM go (fp : fps)
autoTypes' :: Value -> [Value] -> U.T
autoTypes' t' ts' =
- let types = map U.fromJson (Debug.Trace.traceShowId (t' : ts'))
+ let types = map U.fromJson (t' : ts')
in head
( foldr1
(\ls rs -> (concat [U.unify1 l r | l <- ls, r <- rs]))
--
cgit v1.2.3