diff options
Diffstat (limited to 'ddl/Language.hs')
| -rw-r--r-- | ddl/Language.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ddl/Language.hs b/ddl/Language.hs index 9701023..816bbb9 100644 --- a/ddl/Language.hs +++ b/ddl/Language.hs | |||
| @@ -387,6 +387,7 @@ data_ n l = tell ([let (c,i) = execWriter l in DataDef n c i],mempty) | |||
| 387 | alias_ :: String -> Type -> DDef () | 387 | alias_ :: String -> Type -> DDef () |
| 388 | alias_ n t = tell ([TypeAlias n t],mempty) | 388 | alias_ n t = tell ([TypeAlias n t],mempty) |
| 389 | 389 | ||
| 390 | (#=) :: String -> Type -> DDef () | ||
| 390 | a #= b = alias_ a b | 391 | a #= b = alias_ a b |
| 391 | 392 | ||
| 392 | class IsField a where | 393 | class IsField a where |
| @@ -449,4 +450,4 @@ a #:: b = Field a b | |||
| 449 | serialization: | 450 | serialization: |
| 450 | json: encode/decode | 451 | json: encode/decode |
| 451 | other? | 452 | other? |
| 452 | -} \ No newline at end of file | 453 | -} |