From 52e23c1472f63c546e8c366b722aaaef365713f9 Mon Sep 17 00:00:00 2001
From: Lennart Augustsson <lennart@augustsson.net>
Date: Wed, 1 Jan 2025 12:17:57 +0100
Subject: [PATCH] More verbose

---
 src/MicroCabal/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/MicroCabal/Main.hs b/src/MicroCabal/Main.hs
index bb5c10b..bf185d6 100644
--- a/src/MicroCabal/Main.hs
+++ b/src/MicroCabal/Main.hs
@@ -261,6 +261,7 @@ build env = do
       sect s@(Section "executable" _ _) | TgtExe `elem` targets env = buildExe env glob s
       sect s@(Section "library"    _ _) | TgtLib `elem` targets env = buildLib env glob s
       sect _ = return ()
+  message env 3 $ "Unnormalized Cabal file:\n" ++ show cbl
   message env 2 $ "Normalized Cabal file:\n" ++ show ncbl
   mapM_ sect $ addMissing sects
 
@@ -424,6 +425,8 @@ cmdParse env [fn] = do
   let cbl = parseCabal fn rfile
       info = FlagInfo { os = I.os, arch = I.arch, flags = [], impl = comp }
       ncbl = normalize info cbl
-  --putStrLn $ showCabal cbl
+  putStrLn "Unnormalized:"
+  putStrLn $ showCabal cbl
+  putStrLn "Normalized:"
   putStrLn $ showCabal ncbl
 cmdParse _ _ = error "cmdParse"