Revision 8880d889 hspace.hs
b/hspace.hs | ||
---|---|---|
207 | 207 |
-> ([(FailMode, Int)], |
208 | 208 |
[(Node.List, Instance.Instance, [Node.Node])]) |
209 | 209 |
filterFails sols = |
210 |
let (alst, blst) = unzip . map (\ (onl, i, nn) ->
|
|
211 |
case onl of
|
|
210 |
let (alst, blst) = unzip . map (\ e ->
|
|
211 |
case e of
|
|
212 | 212 |
OpFail reason -> ([reason], []) |
213 |
OpGood gnl -> ([], [(gnl, i, nn)]) |
|
213 |
OpGood (gnl, i, nn) -> |
|
214 |
([], [(gnl, i, nn)]) |
|
214 | 215 |
) $ sols |
215 | 216 |
aval = concat alst |
216 | 217 |
bval = concat blst |
Also available in: Unified diff