about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs9
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 28aa0f2b10da..26213c5fea32 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