hlints

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)