diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-12 13:41:36 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-12 13:41:36 +0100 |
commit | 13b0b3955eaaeb6ecc7402e8fd0986f830535dc8 (patch) | |
tree | f5e98863e0a0d393a92deda3beb5f632bab46567 /ddl/templates/data.purs.ede | |
parent | 7cf18cd9f42bc825e61a9d5495b454b080402885 (diff) |
update purescript template, only generates new file when content changes
Diffstat (limited to 'ddl/templates/data.purs.ede')
-rw-r--r-- | ddl/templates/data.purs.ede | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ddl/templates/data.purs.ede b/ddl/templates/data.purs.ede index 490050a..f21a6bc 100644 --- a/ddl/templates/data.purs.ede +++ b/ddl/templates/data.purs.ede | |||
@@ -4,11 +4,12 @@ | |||
4 | module {{ moduleName }} where | 4 | module {{ moduleName }} where |
5 | import Prelude | 5 | import Prelude |
6 | import Data.Generic | 6 | import Data.Generic |
7 | import Data.Either (Either(..)) | ||
7 | import Data.Maybe (Maybe(..)) | 8 | import Data.Maybe (Maybe(..)) |
8 | import Data.StrMap (StrMap(..)) | 9 | import Data.StrMap (StrMap(..)) |
9 | import Data.Map (Map(..)) | 10 | import Data.Map (Map(..)) |
10 | import Data.List (List(..)) | 11 | import Data.List (List(..)) |
11 | import Linear | 12 | import LinearBase |
12 | 13 | ||
13 | import Data.Argonaut.Encode.Combinators ((~>), (:=)) | 14 | import Data.Argonaut.Encode.Combinators ((~>), (:=)) |
14 | import Data.Argonaut.Decode.Combinators ((.?)) | 15 | import Data.Argonaut.Decode.Combinators ((.?)) |
@@ -16,7 +17,6 @@ import Data.Argonaut.Core (jsonEmptyObject) | |||
16 | import Data.Argonaut.Printer (printJson) | 17 | import Data.Argonaut.Printer (printJson) |
17 | import Data.Argonaut.Encode (class EncodeJson, encodeJson) | 18 | import Data.Argonaut.Encode (class EncodeJson, encodeJson) |
18 | import Data.Argonaut.Decode (class DecodeJson, decodeJson) | 19 | import Data.Argonaut.Decode (class DecodeJson, decodeJson) |
19 | import Partial.Unsafe (unsafeCrashWith) | ||
20 | 20 | ||
21 | {% for m in imports %} | 21 | {% for m in imports %} |
22 | import {{ m.value }} | 22 | import {{ m.value }} |
@@ -39,7 +39,7 @@ type {{ t.value.aliasName }} = {{ t.value.aliasType | psType }} | |||
39 | 39 | ||
40 | {% endcase %} | 40 | {% endcase %} |
41 | {% endfor %} | 41 | {% endfor %} |
42 | {% for t in definitions %}{% let l = t.value.instances | length %}{% if l > 0 %}{# FIXME!!! #} | 42 | {% for t in definitions %}{% let l = t.value.instances | length %}{% if l < 0 %}{# FIXME!!! #} |
43 | derive instance generic{{ t.value.dataName }} :: Generic {{ t.value.dataName }} | 43 | derive instance generic{{ t.value.dataName }} :: Generic {{ t.value.dataName }} |
44 | instance show{{ t.value.dataName }} :: Show {{ t.value.dataName }} where show = gShow | 44 | instance show{{ t.value.dataName }} :: Show {{ t.value.dataName }} where show = gShow |
45 | instance eq{{ t.value.dataName }} :: Eq {{ t.value.dataName }} where eq = gEq | 45 | instance eq{{ t.value.dataName }} :: Eq {{ t.value.dataName }} where eq = gEq |
@@ -66,6 +66,6 @@ instance decodeJson{{ t.value.dataName }} :: DecodeJson {{ t.value.dataName }} w | |||
66 | {% if f.first %}{ {% else %}, {%endif%}{{ f.value.fieldName }}:{{ f.value.fieldName }}{% endfor %} | 66 | {% if f.first %}{ {% else %}, {%endif%}{{ f.value.fieldName }}:{{ f.value.fieldName }}{% endfor %} |
67 | } {% else %} | 67 | } {% else %} |
68 | "{{ c.value.name }}" -> {% for f in c.value.fields %}{% if f.first %}{{ c.value.name }} <$>{% else %} <*>{% endif %} obj .? "arg{{ f.index0 }}"{%else%}pure {{ c.value.name }}{% endfor %}{% endif %}{% endfor %} | 68 | "{{ c.value.name }}" -> {% for f in c.value.fields %}{% if f.first %}{{ c.value.name }} <$>{% else %} <*>{% endif %} obj .? "arg{{ f.index0 }}"{%else%}pure {{ c.value.name }}{% endfor %}{% endif %}{% endfor %} |
69 | _ -> unsafeCrashWith "decodeJson @ {{ t.value.dataName }}" | 69 | _ -> Left ("decodeJson{{ t.value.dataName }} - unknown tag: " <> tag) |
70 | 70 | ||
71 | {% endfor %} | 71 | {% endfor %} |