Fix #132 QED --> Q.E.D.

This commit is contained in:
Thomas M. DuBuisson 2014-10-23 09:59:12 -07:00
parent bb3ffde9ba
commit eac4e18005

View File

@ -271,7 +271,7 @@ qcCmd qcMode str =
then (Nothing, vss1)
else (Just vs, vss1)
ok <- go doTest sz 0 vss
when ok $ io $ putStrLn "QED"
when ok $ io $ putStrLn "Q.E.D."
n -> case TestR.testableType ty of
Nothing -> raise (TypeNotTestable ty)