Cleanup enough to make haddock work

2021-04-04 16:39:58 +02:00
parent 3b417c4966
commit 654479da36
4 changed files with 17 additions and 17 deletions
@@ -298,7 +298,7 @@ basicCrPict col cr = pictures [ onLayer CrLayer naked , drawEquipment cr]
    where naked | pdam > 200      = color red $ circleSolid $ _crRad cr
                | pdam > 100      = color white $ circleSolid $ _crRad cr
                | mod pdam 2 == 1 = color white $ circleSolid $ _crRad cr
-                -- | crDam > _crHP cr && odd (crDam - _crHP cr)
+                --  | crDam > _crHP cr && odd (crDam - _crHP cr)
                --     = [color white $ circleSolid $ _crRad cr]
                | otherwise        =  pictures [color col $ circleSolid $ _crRad cr, circLine $ _crRad cr]
          pdam = _crPastDamage $ _crState cr