aboutsummaryrefslogtreecommitdiff
path: root/Math
diff options
context:
space:
mode:
authorJustin Bedo <cu@cua0.org>2014-10-24 19:53:56 +1100
committerJustin Bedo <cu@cua0.org>2014-10-24 19:53:56 +1100
commitac50e991e7b0c2c00d9ac169a5ddcb06821df172 (patch)
tree01831c21b82ea0c1e21f5a2772dc18da21dd4b97 /Math
parent2b2c0bfe78740fe4e228958054729e791e3733dd (diff)
Bugfix: variables in obj but not a constraint caused missing key lookups
Diffstat (limited to 'Math')
-rw-r--r--Math/LinProg/LPSolve.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Math/LinProg/LPSolve.hs b/Math/LinProg/LPSolve.hs
index 83a3f73..beff157 100644
--- a/Math/LinProg/LPSolve.hs
+++ b/Math/LinProg/LPSolve.hs
@@ -75,7 +75,7 @@ solve (compile -> lp) = do
nequals = length (lp ^. equals)
allConstr = (lp ^. equals) ++ (lp ^. leqs)
- varLUT = M.fromList $ zip (sort $ nub $ concatMap (vars . fst) allConstr) [1..]
+ varLUT = M.fromList $ zip (sort $ nub $ concatMap (vars . fst) allConstr ++ vars (lp ^. objective)) [1..]
with m f = do
r <- f m