diff --git a/obelisk/frontend/src/Frontend.hs b/obelisk/frontend/src/Frontend.hs
index 178a31409b882681592f6938f1dcf5f391aed347..913b1425f3d1b62c309f546fdd7fb95144ef9f51 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)