fix: for now unkown colors just become gray

lunarcast · Apr 21, 2020 · 01f01cd · 01f01cd
1 parent 804b101
commit 01f01cd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Component/Editor/Scene.purs b/src/Component/Editor/Scene.purs
@@ -118,7 +118,7 @@ createNodeComponent { functionName, project, typeMap, expression, functionData,
         fullLocation = generateLocation $ DeepLocation id currentLocation
       pinType <- note (MissingType fullLocation) $ Map.lookup fullLocation typeMap
       color <- case pinType of
-        TVarariable name' -> note (MissingColor fullLocation) $ Map.lookup fullLocation typeColors
+        TVarariable name' -> pure $ RGB 70 70 70 -- note (MissingColor fullLocation) $ Map.lookup fullLocation typeColors
         other -> note (UnableToColor other fullLocation) $ typeToColor other
       pure $ Tuple currentLocation color
   colorMap <- Map.fromFoldable <$> (sequence $ toColor <$> pinLocations)