More verbose

augustss · Jan 1, 2025 · 52e23c1 · 52e23c1
1 parent 258ee12
commit 52e23c1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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"