@@ -650,7 +650,7 @@ fnOpts = do
650650 case default_total ist of
651651 DefaultCheckingTotal -> return (TotalFn:opts)
652652 DefaultCheckingCovering -> return (CoveringFn:opts)
653− DefaultCheckingPartial -> return (PartialFn:opts)
653+ DefaultCheckingPartial -> return opts -- Don't add partial so that --warn-partial still reports warnings if necessary
654654 addDefaultTotality [tot] opts = return opts
655655 -- Should really be a semantics error instead of a parser error
656656 addDefaultTotality (tot1:tot2:tots) opts =