Embeddings CLI

src/Wallabag.hs

@@ -46,7 +46,8 @@ data Entry = Entry
   { _entryIdentifier :: Integer,
     _entryContent :: Text,
     _entryTags :: [Text],
-    _entryTitle :: Text
+    _entryTitle :: Text,
+    _entryUrl :: Text
   }
   deriving (Show)
 
@@ -168,6 +169,7 @@ sourceEntries s = P.unfoldr (toEither <=< go) (Just startUrl) >-> P.mapFoldable
         <*> v ^? key "content" . _String
         <*> Just (v ^.. key "tags" . _Array . traversed . key "label" . _String)
         <*> v ^? key "title" . _String
+        <*> v ^? key "url" . _String
 
 mkTracerMetrics ::
   ( MonadReader r m,