From c8206ed9d043a761c9b593c9ae67945a0894cdd5 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 27 Feb 2023 16:40:29 -0500
Subject: [PATCH] hlints
---
obelisk/frontend/src/Frontend.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/obelisk/frontend/src/Frontend.hs b/obelisk/frontend/src/Frontend.hs
index 178a314..913b142 100644
--- a/obelisk/frontend/src/Frontend.hs
+++ b/obelisk/frontend/src/Frontend.hs
@@ -6,6 +6,7 @@
module Frontend where
+import Data.Maybe (fromMaybe)
import Data.List.NonEmpty (NonEmpty(..))
import Control.Monad.IO.Class (liftIO)
import Control.Monad (void)
@@ -186,7 +187,7 @@ networkWidget =
resultDyn <- holdDyn Nothing resultEv
el "div" $ do
el "span" $ text "Resource age:"
- el "span" $ dynText (maybe "<unknown>" id <$> resultDyn)
+ el "span" $ dynText (fromMaybe "<unknown>" <$> resultDyn)
where
request = req GET (https "private.storage") NoReqBody ignoreResponse mempty
getResult :: IO (Maybe T.Text)
--
GitLab