fixup! show plate counts; empty fields for date, time, bodyweight

1 files changed, 3 insertions, 1 deletions

diff --git a/repgoal.hs b/repgoal.hs
index dc5227e..bec0252 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -203,11 +203,13 @@ drawUI st = [vCenter $ vBox [hCenter $ hBox [header, oneRepMaxTable], withVScrol
         txt $ if amrap then " \n " else " "
       ]
 
-showPlates (fromIntegral -> wt) = fromMaybe "unavailable" $ fmap (ourShow . reverse) $ showPlates' (wt - 45) ourPlates []
+showPlates :: Integer -> String
+showPlates (fromIntegral -> wt) = fromMaybe " " $ fmap (ourShow . reverse) $ showPlates' (wt - 45) ourPlates []
   where
     ourPlates = [45,45,25,25,10,10,10,5,5,2.5]
     ourShow :: [Rational] -> String
     ourShow = concat . intersperse " " . map showRational'
+    showPlates' 0 _ [] = Nothing
     showPlates' 0 _ used = Just used
     showPlates' need (have:avail) used | have * 2 > need = showPlates' need avail used
     showPlates' need (have:avail) used = showPlates' (need - have * 2) avail (have:used)