@@ -73,7 +73,6 @@ elmType _ IntType = pure $ ETyCon $ ETCon "Int"
7373elmType _ FloatType = pure $ ETyCon $ ETCon "Float"
7474elmType _ StringType = pure $ ETyCon $ ETCon "String"
7575elmType name (List inner) = do
76− -- fields' <- traverse (\(k, v) -> (toString k,) <$> elmType (name <> "_" <> k) v) $ M.toList fields
7776 inner' <- elmType name inner
7877 tell
7978 [ ETypePrimAlias
@@ -86,7 +85,7 @@ elmType name (List inner) = do
8685 epa_type = ETyApp (ETyCon (ETCon "List")) inner'
8786 }
8887 ]
89− pure $ ETyCon $ ETCon $ toString name
88+ pure $ ETyCon $ ETCon $ toString name <> "_List"
9089elmType name (ProductType fields) = do
9190 fields' <- traverse (\(k, v) -> (toString k,) <$> elmType (name <> "_" <> k) v) $ M.toList fields
9291 tell