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