blob: 6a6dee9d3475fb1391ff8e9c278998a9a627922c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
> module Codec.Pesto.Parse where
> data Operation =
> Annotation String
> | Ingredient Quantity
> | Tool Quantity
> | Action String
> | Reference Quantity
> | Result Object
> | Alternative Object
> 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
|