[ANE-1233] Export lernie and modify serialization to match deserializ…

…ation (#1336) * export analyzeWithLernieMain for full file uploads * modify serializing to match deserializing
fossas · Dec 1, 2023 · 36db20f · 36db20f
1 parent dfa7085
commit 36db20f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/App/Fossa/Lernie/Analyze.hs b/src/App/Fossa/Lernie/Analyze.hs
@@ -2,6 +2,8 @@
 
 module App.Fossa.Lernie.Analyze (
   analyzeWithLernie,
+  -- Exported for use in hubble
+  analyzeWithLernieMain,
   -- Exported for testing
   analyzeWithLernieWithOrgInfo,
   singletonLernieMessage,

diff --git a/src/App/Fossa/Lernie/Types.hs b/src/App/Fossa/Lernie/Types.hs
@@ -57,7 +57,11 @@ data GrepEntry = GrepEntry
   deriving (Eq, Ord, Show, Generic)
 
 instance ToJSON GrepEntry where
-  toEncoding = genericToEncoding defaultOptions
+  toJSON (GrepEntry matchCriteria name) =
+    object
+      [ "matchCriteria" .= matchCriteria
+      , "name" .= name
+      ]
 
 instance FromJSON GrepEntry where
   parseJSON = withObject "GrepEntry" $ \obj ->