remove obsolete debug output
This commit is contained in:
parent
3079ee74e1
commit
6f816eedef
1 changed files with 3 additions and 12 deletions
|
@ -10,8 +10,6 @@ import Linear
|
||||||
import qualified Data.Vector as V
|
import qualified Data.Vector as V
|
||||||
import qualified Data.Vector.Storable as VS
|
import qualified Data.Vector.Storable as VS
|
||||||
|
|
||||||
import Data.String (fromString)
|
|
||||||
|
|
||||||
import Control.Arrow ((***))
|
import Control.Arrow ((***))
|
||||||
|
|
||||||
-- internal imports
|
-- internal imports
|
||||||
|
@ -104,16 +102,9 @@ populate layers props actors =
|
||||||
else V.maximum (is V.++ lis V.++ pis) + 1)
|
else V.maximum (is V.++ lis V.++ pis) + 1)
|
||||||
cisRaw
|
cisRaw
|
||||||
in
|
in
|
||||||
A.log A.Debug
|
( is V.++ lis V.++ pis V.++ cis
|
||||||
("layer: " <> (fromString $ show num) <>
|
, vs V.++ lvs V.++ pvs V.++ cvs
|
||||||
",\nactors: " <> (fromString $ V.foldl (\acc (Cast c) -> acc ++ show c ++ " ") "" actorsHere) <>
|
)
|
||||||
",\nprops: " <> (fromString $ V.foldl (\acc (StageSet s) -> acc ++ show s ++ " ") "" propsHere)
|
|
||||||
)
|
|
||||||
(
|
|
||||||
( is V.++ lis V.++ pis V.++ cis
|
|
||||||
, vs V.++ lvs V.++ pvs V.++ cvs
|
|
||||||
)
|
|
||||||
)
|
|
||||||
)
|
)
|
||||||
(V.empty, V.empty)
|
(V.empty, V.empty)
|
||||||
(V.zip (V.fromList [0 ..]) layers)
|
(V.zip (V.fromList [0 ..]) layers)
|
||||||
|
|
Loading…
Reference in a new issue