fix indentation

This commit is contained in:
nek0 2018-09-19 20:19:01 +02:00
parent 8f2cfd2871
commit 086302be5e

View file

@ -104,20 +104,20 @@ placeInteriorIO imat imgmat irp graph =
then (g2, (mat, rp))
else
if (pr + nrows cmat - 1 > fst (matmax bnds) ||
pc + ncols cmat - 1 > snd (matmax bnds) ||
any (`notElem` clusterRoom appl)
(M.toList (M.submatrix
pr (pr + nrows cmat - 1)
pc (pc + ncols cmat - 1)
imat
)) ||
any isJust
(M.toList (M.submatrix
pr (pr + nrows cmat - 1)
pc (pc + ncols cmat - 1)
mat
))) ||
not (isReachable newmat [] (oldreaches ++ reaches) exits)
pc + ncols cmat - 1 > snd (matmax bnds) ||
any (`notElem` clusterRoom appl)
(M.toList (M.submatrix
pr (pr + nrows cmat - 1)
pc (pc + ncols cmat - 1)
imat
)) ||
any isJust
(M.toList (M.submatrix
pr (pr + nrows cmat - 1)
pc (pc + ncols cmat - 1)
mat
))) ||
not (isReachable newmat [] (oldreaches ++ reaches) exits)
then placeCluster g2 bnds (try + 1) mat rp appl
else placeCluster
g2 bnds (try + 1) newmat newrp appl