blob: 50d1b2a8f765e068570033e31840d17dcc686997 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
> module Codec.Pesto.Parse where
> data Instruction =
> Annotation String
> | Ingredient Quantity
> | Tool Quantity
> | Action String
> | Reference Quantity
> | Result Object
> | Alternative Object
> | Directive String
> | Unknown String
> data Quantity = Quantity Approximately Unit Object
> type Unit = String
> type Object = String
> data Approximately =
> Range Amount Amount
> | Approx Amount
> | Exact Amount
> data Amount =
> AmountRatio Rational
> | AmountStr String
|
