adding comments and inline and removing prop test results

travgm · Nov 14, 2024 · 346c882 · 346c882
1 parent d19f5db
commit 346c882
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Lib/DecimalTime.hs b/Lib/DecimalTime.hs
@@ -110,6 +110,8 @@ localTimeToDecimal s = do
 setCurrentDate :: ZonedTime -> ClockState -> ClockState
 setCurrentDate zt state = state & (currentDate ?~ zonedTimeToLocalTime zt)
 
+-- | Check if the alarm time has been reached
+{-# INLINE checkAlarmTime #-}
 checkAlarmTime :: ClockState -> Maybe DecimalTime
 checkAlarmTime s = do
   alarm <- s ^. alarmTime
@@ -118,6 +120,8 @@ checkAlarmTime s = do
     then Just decimal
     else Nothing
 
+-- | Check the status of the time
+{-# INLINE checkTimeStatus #-}
 checkTimeStatus :: Either String ClockState -> TimeStatus
 checkTimeStatus (Left err) = Error err
 checkTimeStatus (Right state) = case checkAlarmTime state of

diff --git a/Lib/PrettyPrinter.hs b/Lib/PrettyPrinter.hs
@@ -58,7 +58,7 @@ formatTime status state = case (status, state) of
   (Error err, _) ->
     "Decimal time: " <> T.pack err
   (AlarmReached _, Right s) ->
-    baseTimeText s <> " ALARM!" -- Just append ALARM! to normal output
+    baseTimeText s <> " ALARM!"
   (Normal, Right s) ->
     baseTimeText s
   (_, _) ->