浏览代码

Add a missing instance of query

jherve 1 年之前
父节点
当前提交
3c83efae40
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      src/LinkedIn/UI/Components/JobsUnifiedTopCard.purs

+ 3 - 0
src/LinkedIn/UI/Components/JobsUnifiedTopCard.purs

@@ -81,6 +81,9 @@ traverseMayNel :: forall m t a. Traversable t => Applicative m => Maybe(NonEmpty
 traverseMayNel (Just o) = map pure (sequence (map sequence o))
 traverseMayNel Nothing = pure Nothing
 
+instance Queryable q => CanBeQueried q JobsUnifiedTopCardElement where
+  query = queryJobsUnifiedTopCardElement
+
 derive instance Generic (TopCardPrimaryDescription a) _
 derive instance Eq a => Eq (TopCardPrimaryDescription a)
 instance Show a => Show (TopCardPrimaryDescription a) where