Fix typo.

augustss · Dec 26, 2024 · fc3b8f8 · fc3b8f8
1 parent 676715c
commit fc3b8f8
Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/MicroCabal/Main.hs b/src/MicroCabal/Main.hs
@@ -322,6 +322,7 @@ install env = do
       sect s@(Section "executable" _ _) | TgtExe `elem` targets env = installExe env glob s
       sect s@(Section "library"    _ _) | TgtLib `elem` targets env = installLib 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
 

diff --git a/src/MicroCabal/Parse.hs b/src/MicroCabal/Parse.hs
@@ -102,7 +102,7 @@ lower = map toLower
 dropCabalComments :: String -> String
 dropCabalComments = unlines . map cmt . lines
   where
-    cmt ('-':'-':'M':'A':'B':'A':'L':cs) = cmt cs
+    cmt ('-':'-':'M':'C':'A':'B':'A':'L':cs) = cmt cs
     cmt s | take 2 (dropWhile (== ' ') s) == "--" = ""
           | "--NOT_MHS" `isSuffixOf` s = ""
           | otherwise = s