1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/printer/Ppr020.hs b/testsuite/tests/printer/Ppr020.hs
new file mode 100644
index 0000000000..f567f726a1
--- /dev/null
+++ b/testsuite/tests/printer/Ppr020.hs
@@ -0,0 +1,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 }