diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2015-08-09 10:36:45 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2015-08-09 10:36:45 +0200 |
| commit | 1d63c5147500e10d386f3843ba6930fe533ab4e5 (patch) | |
| tree | ccbae97e35551703e7ebf6f01bc4b53a21702371 /src/Codec/Pesto/Graph.lhs | |
| parent | 58e927dc4c213033092561dfe4f2270e96126683 (diff) | |
| download | pesto-1d63c5147500e10d386f3843ba6930fe533ab4e5.tar.gz pesto-1d63c5147500e10d386f3843ba6930fe533ab4e5.tar.bz2 pesto-1d63c5147500e10d386f3843ba6930fe533ab4e5.zip | |
Chane result and reference argument to quantity
Now the recipe’s yield can be extracted from the root’s quantity.
Diffstat (limited to 'src/Codec/Pesto/Graph.lhs')
| -rw-r--r-- | src/Codec/Pesto/Graph.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Codec/Pesto/Graph.lhs b/src/Codec/Pesto/Graph.lhs index ed02b50..8ef384a 100644 --- a/src/Codec/Pesto/Graph.lhs +++ b/src/Codec/Pesto/Graph.lhs @@ -206,8 +206,8 @@ to the reference in question is created. > findTarget nodes (Reference (Quantity _ _ a)) = map fst $ filter (isTarget a) nodes > where > lc = map toLower -> isTarget dest (_, Result x) = lc x == lc dest -> isTarget dest (_, Alternative x) = lc x == lc dest +> isTarget dest (_, Result (Quantity _ _ x)) = lc x == lc dest +> isTarget dest (_, Alternative (Quantity _ _ x)) = lc x == lc dest > isTarget _ _ = False > findTarget _ _ = [] |