Commit a720d495 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

Fix weight calculation for polynomials

parent 63746baa
......@@ -360,8 +360,8 @@ instance RefinementInterface Polynomial where
where
val :: H3 Polynomial -> (Weight Polynomial, H3 Polynomial, Weight Polynomial)
val h3 =
let toS = VU.map (== 0) h3
toC = VU.map (== 1) h3
let toS = VU.map (== toSub) h3
toC = VU.map (== toCompound) h3
in
(toS, h3, toC)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment