Hard code rendering of lists and tuple

unisonweb · Dec 22, 2023 · 0e93589 · 0e93589
1 parent 1d97e2c
commit 0e93589
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/src/Code/DefinitionSummaryTooltip.elm b/src/Code/DefinitionSummaryTooltip.elm
@@ -157,11 +157,29 @@ viewSummary : WebData DefinitionSummary -> Maybe (Tooltip.Content msg)
 viewSummary summary =
     let
         viewBuiltinType name =
+            let
+                name_ =
+                    case FQN.toString name of
+                        "[" ->
+                            "List"
+
+                        "]" ->
+                            "List"
+
+                        "(" ->
+                            "Tuple"
+
+                        ")" ->
+                            "Tuple"
+
+                        n ->
+                            n
+            in
             span
                 []
                 [ span [ class "data-type-modifier" ] [ text "builtin " ]
                 , span [ class "data-type-keyword" ] [ text "type" ]
-                , span [ class "type-reference" ] [ text (" " ++ FQN.toString name) ]
+                , span [ class "type-reference" ] [ text (" " ++ name_) ]
                 ]
 
         viewSummary_ s =