Commit 4535dd44 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Order 2

parent e25ee97d
......@@ -98,7 +98,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
callback = dispatch >=> \_ -> dispatch CloseBox
pure $ panel [ H.text "Show subjects with Order1 or concepts with Order2 ?"
, formChoiceSafe { items: [Order1, Order2]
, formChoiceSafe { items: [Order1, Order2_A, Order2_B]
, default: methodGraphMetric'
, callback: \val -> T.write_ val methodGraphMetric
, print: show } []
......
......@@ -64,13 +64,15 @@ instance Read Method where
read _ = Nothing
----------------------------------------------------------------------
data GraphMetric = Order1 | Order2
data GraphMetric = Order1 | Order2 | Order2_A | Order2_B
derive instance Generic GraphMetric _
derive instance Eq GraphMetric
instance Show GraphMetric where show = genericShow
instance Read GraphMetric where
read "Order1" = Just Order1
read "Order2" = Just Order2
read "Order2" = Just Order2_B
read "Order2_A" = Just Order2_A
read "Order2_B" = Just Order2_B
read _ = Nothing
instance JSON.ReadForeign GraphMetric where readImpl = JSONG.enumSumRep
instance JSON.WriteForeign GraphMetric where writeImpl = JSON.writeImpl <<< show
......
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