diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-15 21:46:41 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-15 21:46:41 +0100 |
commit | c7df33b55d5faa03e7dda4fe5515eb4562006877 (patch) | |
tree | bccc389078e3981f30554f51db1df3d802286d79 /ddl/Generate.hs | |
parent | 0762c7388287eee8e4aacee616b3fbaa3709ab57 (diff) |
implement selective instance codegen for purescript backend
Diffstat (limited to 'ddl/Generate.hs')
-rw-r--r-- | ddl/Generate.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ddl/Generate.hs b/ddl/Generate.hs index b276324..855406f 100644 --- a/ddl/Generate.hs +++ b/ddl/Generate.hs | |||
@@ -21,8 +21,10 @@ import Language | |||
21 | instance Unquote [Field] | 21 | instance Unquote [Field] |
22 | instance Unquote [Char] | 22 | instance Unquote [Char] |
23 | instance Quote [Char] | 23 | instance Quote [Char] |
24 | instance Quote [Instance] | ||
24 | instance Unquote DataDef | 25 | instance Unquote DataDef |
25 | instance Unquote Type | 26 | instance Unquote Type |
27 | instance Unquote [(Target,Instance)] | ||
26 | 28 | ||
27 | main :: IO () | 29 | main :: IO () |
28 | main = do | 30 | main = do |
@@ -60,6 +62,8 @@ main = do | |||
60 | , "javaType" @: javaType aliasMap | 62 | , "javaType" @: javaType aliasMap |
61 | , "swiftType" @: swiftType aliasMap | 63 | , "swiftType" @: swiftType aliasMap |
62 | , "hasEnumConstructor" @: hasEnumConstructor | 64 | , "hasEnumConstructor" @: hasEnumConstructor |
65 | , "psInstances" @: filterInstances PureScript | ||
66 | , "hsInstances" @: filterInstances Haskell | ||
63 | ] | 67 | ] |
64 | 68 | ||
65 | toPath a = flip map a $ \case | 69 | toPath a = flip map a $ \case |