Add a log message
authorIan Lynagh <igloo@earth.li>
Wed, 23 Mar 2011 23:08:38 +0000 (23:08 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 23 Mar 2011 23:08:38 +0000 (23:08 +0000)
CrossCodegen.hs

index c3afd56..a984ee6 100644 (file)
@@ -262,6 +262,7 @@ checkValidity input = do
                         (["-c",cFile,"-o",oFile]++[f | CompFlag f <- flags])
                         Nothing
         when (not success) $ testFail' "compilation failed"
+    testLog' "compilation is error-free"
 
 outValidityCheck :: Token -> Int -> String
 outValidityCheck s@(Special pos key value) uniq =