mmInstTails :: MMInstruction -> [MMInstF MMNodeID]
mmInstTails mminst = rets
  where
    rets = [_nodeInst nd
      | nd <- M.elems mminst,
        let Just (MMLocation omnid2 _) = A.viewMaybe nd,
        omnid2==omnid ]

    Just (MMLocation omnid _) = A.viewMaybe maxNode

    maxNode :: MicroNode
    maxNode = snd $ M.findMax mminst
mmInstTails :: MMInstruction -> [MMInstF MMNodeID]
mmInstTails mminst = rets
  where
    rets = [_nodeInst nd
      | nd <- M.elems mminst,
        let Just (MMLocation omnid2 _) = A.viewMaybe nd,
        omnid2==omnid ]

    Just (MMLocation omnid _) = A.viewMaybe maxNode

    maxNode :: MicroNode
    maxNode = snd $ M.findMax mminst
mmInstTails mminst = rets
  where
    rets = [_nodeInst nd
      | nd <- M.elems mminst,
        let Just (MMLocation omnid2 _) = A.viewMaybe nd,
        omnid2==omnid ]

    Just (MMLocation omnid _) = A.viewMaybe maxNode

    maxNode :: MicroNode
    maxNode = snd $ M.findMax mminst