nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fix indentation

Browse source
This commit is contained in:
nek0 2018-09-19 20:19:01 +02:00
parent 8f2cfd2871
commit 086302be5e
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/Interior.hs
View file

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