From 9883f9648265c0967e70f9fd8085c0e6bc13f2b9 Mon Sep 17 00:00:00 2001
From: Jesper Cockx <jesper@sikanda.be>
Date: Mon, 30 Oct 2023 15:55:12 +0100
Subject: [PATCH] [ re #210 ] Add some debug prints

---
 src/Agda2Hs/Compile/Function.hs | 2 ++
 src/Agda2Hs/Compile/Type.hs     | 1 +
 src/Agda2Hs/Compile/Utils.hs    | 6 +++++-
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/Agda2Hs/Compile/Function.hs b/src/Agda2Hs/Compile/Function.hs
index 9a9e4385..354ec47f 100644
--- a/src/Agda2Hs/Compile/Function.hs
+++ b/src/Agda2Hs/Compile/Function.hs
@@ -131,6 +131,8 @@ compileClause' :: ModuleName -> Hs.Name () -> Clause -> C (Maybe (Hs.Match ()))
 compileClause' curModule x c@Clause{ clauseBody = Nothing} = return Nothing
 compileClause' curModule x c@Clause{..} = do
   reportSDoc "agda2hs.compile" 7 $ "compiling clause: " <+> prettyTCM c
+  reportSDoc "agda2hs.compile" 17 $ "Old context: " <+> (prettyTCM =<< getContext)
+  reportSDoc "agda2hs.compile" 17 $ "Clause telescope: " <+> prettyTCM clauseTel
   addContext (KeepNames clauseTel) $ do
     ps <- compilePats namedClausePats
     let isWhereDecl = not . isExtendedLambdaName
diff --git a/src/Agda2Hs/Compile/Type.hs b/src/Agda2Hs/Compile/Type.hs
index a7041f64..8f7e94e0 100644
--- a/src/Agda2Hs/Compile/Type.hs
+++ b/src/Agda2Hs/Compile/Type.hs
@@ -91,6 +91,7 @@ compileTopLevelType :: Bool -> Type -> (Hs.Type () -> C a) -> C a
 compileTopLevelType keepType t cont = do
     reportSDoc "agda2hs.compile.type" 12 $ text "Compiling top-level type" <+> prettyTCM t
     modTel <- moduleParametersToDrop =<< currentModule
+    reportSDoc "agda2hs.compile.type" 19 $ text "Module parameters to drop: " <+> prettyTCM modTel
     go modTel cont
   where
     go :: Telescope -> (Hs.Type () -> C a) -> C a
diff --git a/src/Agda2Hs/Compile/Utils.hs b/src/Agda2Hs/Compile/Utils.hs
index a202d7ce..349ea771 100644
--- a/src/Agda2Hs/Compile/Utils.hs
+++ b/src/Agda2Hs/Compile/Utils.hs
@@ -163,8 +163,12 @@ moduleParametersToDrop mod = do
    isDatatypeModule mod >>= \case
      Just _ -> return EmptyTel
      Nothing -> do
+       reportSDoc "agda2hs.moduleParameters" 25 $ text "Current context: " <+> (prettyTCM =<< getContext)
        ctxArgs <- getContextArgs
-       (`apply` ctxArgs) <$> lookupSection mod
+       reportSDoc "agda2hs.moduleParameters" 25 $ text "Context arguments: " <+> prettyTCM ctxArgs
+       sec <- lookupSection mod
+       reportSDoc "agda2hs.moduleParameters" 25 $ text "Module section: " <+> prettyTCM sec
+       return $ sec `apply` ctxArgs
 
 isUnboxRecord :: QName -> C (Maybe Strictness)
 isUnboxRecord q = do