# Pastebin D2Xo8XwX
class Icon a where
  document :: a -> SvgInfo

-- generating by tooling in each file
data Icon4K32 = Icon4K32

instance Icon Icon4K32 where
  document = thaticonsvg info

-- somewhere at runtime
lucidSvg :: Icon a => a -> Html ()
lucidSvg = use "document" function here to retrieve info and output markup