blob: f567f726a153f1c98da5fd44b317a0f4d4f28e3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE LambdaCase #-}
foo = f >>= \case
Just h -> loadTestDB (h ++ "/.testdb")
Nothing -> fmap S.Right initTestDB
{-| Is the alarm set - i.e. will it go off at some point in the future even if
`setAlarm` is not called? -}
isAlarmSetSTM :: AlarmClock -> STM Bool
isAlarmSetSTM AlarmClock{..} = readTVar acNewSetting
>>= \case { AlarmNotSet -> readTVar acIsSet; _ -> return True }
|