Skip to content

haskell-gargantext
haskell-gargantext
Unverified Commit 854cc11f authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

[NGRAMS-TABLE]: Fix JSON instance for NgramsTablePatch

parent c1e9b043
Pipeline #89 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 2 deletions
    src/Gargantext/API/Ngrams.hs
    View file @ 854cc11f
    ...@@ -190,8 +190,7 @@ instance Arbitrary NgramsPatch where ...@@ -190,8 +190,7 @@ instance Arbitrary NgramsPatch where
    newtype NgramsTablePatch = newtype NgramsTablePatch =
    NgramsTablePatch { _ntp_ngrams_patches :: Map NgramsTerm NgramsPatch } NgramsTablePatch { _ntp_ngrams_patches :: Map NgramsTerm NgramsPatch }
    deriving (Ord, Eq, Show, Generic, Arbitrary) deriving (Ord, Eq, Show, Generic, Arbitrary, ToJSON, FromJSON)
    deriveJSON (unPrefix "_ntp_") ''NgramsTablePatch
    makeLenses ''NgramsTablePatch makeLenses ''NgramsTablePatch
    instance ToSchema NgramsTablePatch instance ToSchema NgramsTablePatch
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment