Update ActusBlockly.purs (#2387)

IntersectMBO · Oct 23, 2020 · 6aa4de5 · 6aa4de5
1 parent 3961fe0
commit 6aa4de5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/marlowe-playground-client/src/Marlowe/ActusBlockly.purs b/marlowe-playground-client/src/Marlowe/ActusBlockly.purs
@@ -187,14 +187,17 @@ actusColour = "#1a7b84"
 valueColour :: String
 valueColour = "#eb2256"
 
+periodColour :: String
+periodColour = "#e6aa00"
+
 blockColour :: BlockType -> String
 blockColour BaseContractType = contractColour
 
 blockColour (ActusContractType _) = actusColour
 
 blockColour (ActusValueType _) = valueColour
 
-blockColour (ActusPeriodType _) = valueColour
+blockColour (ActusPeriodType _) = periodColour
 
 blockDefinitions :: Array BlockDefinition
 blockDefinitions = map toDefinition (upFromIncluding bottom)