From bc669ccb7aaf0df824a3c93418b588f30a366366 Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Thu, 11 Mar 2021 23:54:26 +0100
Subject: [PATCH] Format values

---
 create-dependency/src/DependencyCreator.elm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/create-dependency/src/DependencyCreator.elm b/create-dependency/src/DependencyCreator.elm
index 875059b6..8256b2d1 100644
--- a/create-dependency/src/DependencyCreator.elm
+++ b/create-dependency/src/DependencyCreator.elm
@@ -59,6 +59,13 @@ parseThings flags =
             error
 
 
+formatValue value =
+    "{ name = " ++ stringify value.name ++ """
+    , comment = """ ++ stringify value.comment ++ """
+    , tipe = """ ++ formatType value.tipe ++ """
+    }"""
+
+
 formatAlias alias_ =
     "{ name = " ++ stringify alias_.name ++ """
     , args = """ ++ listOfThings stringify alias_.args ++ """
@@ -107,6 +114,7 @@ formatType type_ =
 stringify : String -> String
 stringify s =
     s
+        |> String.replace "\\" "\\\\"
         |> String.replace "\"" "\\\""
         |> wrapInQuotes
 
@@ -135,7 +143,7 @@ formatModule mod =
     , aliases = """ ++ listOfThings formatAlias mod.aliases ++ """
     , unions = """ ++ listOfThings formatUnion mod.unions ++ """
     , binops = []
-    , values = []
+    , values = """ ++ listOfThings formatValue mod.values ++ """
     }"""