From adf046a30e2b00988fc6fd2df11d6400a1aef16b Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 8 Apr 2009 12:15:11 +0000
Subject: [PATCH] Fixed the implicit mobility module (it was only broken for
 Rain anyway)

---
 transformations/ImplicitMobility.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/transformations/ImplicitMobility.hs b/transformations/ImplicitMobility.hs
index 0aaa35b..4fb1c7f 100644
--- a/transformations/ImplicitMobility.hs
+++ b/transformations/ImplicitMobility.hs
@@ -62,10 +62,12 @@ effectDecision targetVar (Copy _) (AlterProcess wrapper) = routeModify wrapper a
                  then return $ A.CloneMobile m' $ A.ExprVariable m' v
                  else return e
              -- TODO handle concat expressions with repeated vars
+             {-
              A.Dyadic m A.Concat lhs rhs ->
                do lhs' <- derefExp lhs
                   rhs' <- derefExp rhs
                   return $ A.Dyadic m A.Concat lhs' rhs'
+             -}
              _ -> return e
     alterProc :: A.Process -> PassM A.Process
     alterProc (A.Assign m lhs (A.ExpressionList m' [e]))