Commit 5c8bc952 authored by Mart Lubbers's avatar Mart Lubbers

Remove all StdDebug from non-debug code

parent a3dafe05
......@@ -390,7 +390,7 @@ getModuleAndTask allbps mn tn
>>~ \mod -> case 'DM'.get mn allbps `b` 'DM'.get tn of
Just tt -> return (mod, tt)
_ -> throw "Can't get module and task"
import StdDebug
viewInstance :: ![TaskAppRenderer] !(Shared NavStack) !DynamicDisplaySettings !BlueprintInstance
!(Maybe (Either ClickMeta (ModuleName, FuncName, ComputationId, Int))) !ClickMeta
-> Task ()
......
implementation module iTasks.Internal.Client.LinkerSupport
from StdFunc import id
import StdString, StdList, StdFile, StdTuple, StdDebug
import StdString, StdList, StdFile, StdTuple
import Data.Maybe, System.File
import graph_to_sapl_string
......
......@@ -15,7 +15,6 @@ from Data.Queue as DQ import qualified newQueue, dequeue
import iTasks.Extensions.DateTime
import System.Time, Math.Random
import Text.JSON
import StdDebug
:: TaskState a =
{ instanceNo :: !InstanceNo
......
implementation module iTasks.Internal.TaskEval
import StdList, StdBool, StdTuple, StdMisc, StdDebug
import StdList, StdBool, StdTuple, StdMisc
import Data.Error, Data.Func, Data.Tuple, Data.Either, Data.Functor, Data.List, Text, Text.JSON
import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState
import iTasks.Internal.Store, iTasks.Internal.TaskStore, iTasks.Internal.Util
......
......@@ -15,7 +15,6 @@ from iTasks.Internal.TaskEval import :: TaskTime
from iTasks.WF.Combinators.Core import :: AttachmentStatus
import iTasks.WF.Definition
import GenEq
import StdDebug
//This type records the states of layouts applied somewhere in a ui tree
derive JSONEncode LayoutState, LayoutTree, MvUI, MvUIChild
......@@ -933,8 +932,8 @@ where
updateMoveDestination i f [x:xs] = [x:updateMoveDestination i f xs]
updateMoveDestination i f [] = []
moveMoveDestinationTowardsEnd n children = trace_n "A" children //FIXME
moveMoveDestinationTowardsBegin n children = trace_n "B" children
moveMoveDestinationTowardsEnd n children = children//trace_n "A" children //FIXME
moveMoveDestinationTowardsBegin n children = children//trace_n "B" children
countMoved {MvUI|moved,children} = (if moved 1 0) + sum [countMoved x \\ MvUIItem x <- children]
......
......@@ -4,15 +4,16 @@ import iTasks.WF.Definition
import iTasks.Internal.Task
import iTasks.Internal.IWorld
import iTasks.Internal.Generic.Visualization
import StdDebug
import Data.Error, Data.Maybe
import StdFile
import iTasks.WF.Tasks.Core
traceValue :: a -> Task a | iTask a
traceValue v = mkInstantTask eval
traceValue v = accWorld printStdErr
where
eval _ iworld
# iworld = trace_n (toSingleLineText v) iworld
= (Ok v,iworld)
printStdErr w
# (_, w) = fclose (stderr <<< toSingleLineText v <<< "\n") w
= (v, w)
shutDown :: Int -> Task ()
shutDown exitCode = mkInstantTask (\taskId iworld -> (Ok (), {IWorld|iworld & shutdown = Just exitCode}))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment