Fri Nov 23 18:43:39 WET 2007 Daniel Mendes<danielgomesmendes@gmail.com>
* Template bug fix.
{
hunk ./src/NetworkUI.hs 1278
- rhs4 = makeInterfaceConection (map fst alphaI) alphas $ makeInterfaceConection (map fst copyI) spas rhs3
+ rhs4 = makeInterfaceConection (map fst alphaI) alphas $ makeInterfaceConection (map fst (reverse copyI)) spas rhs3
hunk ./src/NetworkUI.hs 1286
- in addEdgesWithJustPort (zip (zip inter pp_i) (zip node pp_n)) ne
+ in addEdgesWithJustPort (zip (zip inter pp_i) (zip node pp_n)) ne
hunk ./src/NetworkUI.hs 1290
- ;alp_p = map reverse $ map (drop 1) $ map (\y -> (fromJust $ getPorts $ ( getNode y ne))) alphs
- ;alp_p_i = map (zip [1..] ) alp_p
- ;alp_Nr_p = zip [1..] alp_p_i
- ;alp_fin = zip alphs alp_Nr_p
- ;sps_p = map (drop 1) $ map (\y -> (fromJust $ getPorts $ ( getNode y ne))) sps
- ;sps_p_i = map (zip [1..] ) sps_p
- ;sps_Nr_p = zip [1..] sps_p_i
- ;sps_fin = zip sps sps_Nr_p
- in (foldr (++) [] $ map f alp_fin , foldr (++) [] $ map f sps_fin)
- ;f :: (Int,(Int,([(Int,Port)]))) -> [((NodeNr,Port),(Int,Int))]
+ ;alp_p = map reverse $ map (drop 1) $ map (\y -> (fromJust $ getPorts $ ( getNode y ne))) alphs
+ ;alp_p_i = map (zip [1..] ) alp_p
+ ;alp_Nr_p = zip [1..] alp_p_i
+ ;alp_fin = zip alphs alp_Nr_p
+ ;sps_p = map (drop 1) $ map (\y -> (fromJust $ getPorts $ ( getNode y ne))) sps
+ ;sps_p_i = map (zip [1..] ) sps_p
+ ;sps_Nr_p = zip [1..] sps_p_i
+ ;sps_fin = zip sps sps_Nr_p
+ in (foldr (++) [] $ map f alp_fin , foldr (++) [] $ map f sps_fin)
+ ;f :: (Int,(Int,([(Int,Port)]))) -> [((NodeNr,Port),(Int,Int))]
hunk ./src/NetworkUI.hs 1594
- set ok [on command := stop Nothing]
- set can [on command := stop Nothing]
+ set ok [on command := stop (Just 0)]
+ set can [on command := stop (Just 0) ]
}