diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2015-06-28 16:42:19 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2015-06-28 16:42:19 +0200 |
| commit | 4c6c1bcf877017df98d4a5492a665eca12b8ba98 (patch) | |
| tree | f5743e9965aac4d71ad3bd54c9ddb2ea8cd3495d /src/Codec/Pesto/Serialize.lhs | |
| parent | 87cccdd0d3159c8ac6730cb18dccb166653c58c5 (diff) | |
| download | pesto-4c6c1bcf877017df98d4a5492a665eca12b8ba98.tar.gz pesto-4c6c1bcf877017df98d4a5492a665eca12b8ba98.tar.bz2 pesto-4c6c1bcf877017df98d4a5492a665eca12b8ba98.zip | |
Replace file magic with directives
Adds the %pesto and %bonappetit directives, switches to stream-based
operation.
Diffstat (limited to 'src/Codec/Pesto/Serialize.lhs')
| -rw-r--r-- | src/Codec/Pesto/Serialize.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Codec/Pesto/Serialize.lhs b/src/Codec/Pesto/Serialize.lhs index 5b3007e..b3cce7c 100644 --- a/src/Codec/Pesto/Serialize.lhs +++ b/src/Codec/Pesto/Serialize.lhs @@ -31,6 +31,8 @@ Finally transform linear stream of operations into a string again: > serialize (Reference q) = '*':serialize q > serialize (Result s) = '>':serializeQstr s > serialize (Alternative s) = '|':serializeQstr s +> serialize (Directive s) = '%':serializeQstr s +> serialize (Unknown s) = s > instance Serializeable Quantity where > serialize (Quantity a b "") = serialize a ++ " " ++ serializeQstr b |