Skip to content

haskell-gargantext
haskell-gargantext
Commit 5bbdf223 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] strict type

parent 7db57862
Pipeline #901 canceled with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 9 additions and 9 deletions
    src/Gargantext/Database/Admin/Types/Hyperdata.hs
    View file @ 5bbdf223
    ...@@ -48,9 +48,9 @@ $(deriveJSON (unPrefix "statusV3_") ''StatusV3) ...@@ -48,9 +48,9 @@ $(deriveJSON (unPrefix "statusV3_") ''StatusV3)
    ------------------------------------------------------------------------ ------------------------------------------------------------------------
    data CorpusField = MarkdownField { _cf_text :: !Text } data CorpusField = MarkdownField { _cf_text :: !Text }
    | JsonField { _cf_title :: !Text | JsonField { _cf_title :: !Text
    , _cf_desc :: !Text , _cf_desc :: !Text
    , _cf_query :: !Text , _cf_query :: !Text
    , _cf_authors :: !Text , _cf_authors :: !Text
    -- , _cf_resources :: ![Resource] -- , _cf_resources :: ![Resource]
    } }
    ...@@ -218,11 +218,11 @@ instance Arbitrary HyperdataCorpus where ...@@ -218,11 +218,11 @@ instance Arbitrary HyperdataCorpus where
    ------------------------------------------------------------------------ ------------------------------------------------------------------------
    data HyperdataList = data HyperdataList =
    HyperdataList { hd_chart :: !(Maybe (ChartMetrics Histo)) HyperdataList { hd_chart :: !(Maybe (ChartMetrics Histo))
    , hd_list :: !(Maybe Text) , hd_list :: !(Maybe Text)
    , hd_pie :: !(Maybe (ChartMetrics Histo)) , hd_pie :: !(Maybe (ChartMetrics Histo))
    , hd_scatter :: !(Maybe Metrics) , hd_scatter :: !(Maybe Metrics)
    , hd_tree :: !(Maybe (ChartMetrics [MyTree])) , hd_tree :: !(Maybe (ChartMetrics [MyTree]))
    } deriving (Show, Generic) } deriving (Show, Generic)
    $(deriveJSON (unPrefix "hd_") ''HyperdataList) $(deriveJSON (unPrefix "hd_") ''HyperdataList)
    ...@@ -312,8 +312,8 @@ instance Hyperdata HyperdataNotebook ...@@ -312,8 +312,8 @@ instance Hyperdata HyperdataNotebook
    -- | TODO CLEAN -- | TODO CLEAN
    data HyperData = HyperdataTexts { hd_preferences :: Maybe Text } data HyperData = HyperdataTexts { hd_preferences :: !(Maybe Text)}
    | HyperdataList' { hd_preferences :: Maybe Text} | HyperdataList' { hd_preferences :: !(Maybe Text)}
    deriving (Show, Generic) deriving (Show, Generic)
    $(deriveJSON (unPrefix "hd_") ''HyperData) $(deriveJSON (unPrefix "hd_") ''HyperData)
    ......
    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