fix issue 1442

AmpersandTarski · Sep 15, 2023 · 55840d5 · 55840d5
1 parent 0f8df96
commit 55840d5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Ampersand/Output/ToJSON/Views.hs b/src/Ampersand/Output/ToJSON/Views.hs
@@ -13,7 +13,7 @@ newtype Views = Views [View] deriving (Generic, Show)
 data View = View
   { vwJSONname :: !Text,
     vwJSONlabel :: !Text,
-    vwJSONconceptId :: !Text,
+    vwJSONconceptName :: !Text,
     vwJSONisDefault :: !Bool,
     vwJSONsegments :: ![Segment]
   }
@@ -39,7 +39,7 @@ instance JSON ViewDef View where
         vwJSONlabel = case vdlabel vd of
           Nothing -> text1ToText . tName $ vd
           Just (Label txt) -> txt,
-        vwJSONconceptId = text1ToText . idWithoutType' . vdcpt $ vd,
+        vwJSONconceptName = text1ToText . idWithoutType' . vdcpt $ vd,
         vwJSONisDefault = vdIsDefault vd,
         vwJSONsegments = fmap (fromAmpersand env fSpec) . vdats $ vd
       }