refactor(users/Profpatsch/whatcd-resolver): artistPage hander fn r/8130

Change-Id: Ia0f5d358e9be99d39117ba13fce528f418daf416
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11649
Autosubmit: Profpatsch <mail@profpatsch.de>
Reviewed-by: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI

1 files changed, 8 insertions, 1 deletions

diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs
index 28aa0f2b10..26213c5fea 100644
--- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs
+++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs
@@ -216,7 +216,7 @@ htmlUi = do
                         ( label @"dbId"
                             <$> (singleQueryArgument "db_id" Field.utf8)
                         )
-                    pure $ [fmt|Artist ID: {qry.dbId}|]
+                    artistPage qry
                 ),
                 ( "autorefresh",
                   respond.plain $ do
@@ -305,6 +305,13 @@ htmlUi = do
       </body>
     |]
 
+artistPage :: (HasField "dbId" dat Text, Applicative m) => dat -> m Html
+artistPage dat =
+  pure
+    [hsx|
+    Artist ID: {dat.dbId}
+  |]
+
 type Handlers m = HandlerResponses m -> Map Text (m ResponseReceived)
 
 data HandlerResponses m = HandlerResponses