Commit 286f4263 authored by Tomislav Pree's avatar Tomislav Pree
Browse files

removed json instances, commented faulty function

parent d862c7ce
Pipeline #70554 failed with stages
in 81 minutes and 27 seconds
...@@ -160,18 +160,18 @@ data WebsocketMessage ...@@ -160,18 +160,18 @@ data WebsocketMessage
instance ToJSON WebsocketMessage instance ToJSON WebsocketMessage
instance FromJSON WebsocketMessage instance FromJSON WebsocketMessage
instance ToJSON Addr --instance ToJSON Addr
instance ToJSONKey Addr --instance ToJSONKey Addr
instance FromJSON Addr --instance FromJSON Addr
instance FromJSONKey Addr --instance FromJSONKey Addr
instance ToJSON Val --instance ToJSON Val
instance FromJSON Val --instance FromJSON Val
instance FromJSONKey Expr --instance FromJSONKey Expr
instance ToJSONKey Expr --instance ToJSONKey Expr
instance ToJSON List --instance ToJSON List
instance FromJSON List --instance FromJSON List
instance ToJSON Number --instance ToJSON Number
instance FromJSON Number --instance FromJSON Number
...@@ -334,8 +334,8 @@ debug f = proc input@((store,errors),(env,exprs)) -> do ...@@ -334,8 +334,8 @@ debug f = proc input@((store,errors),(env,exprs)) -> do
loop = proc input@((store,errors),(env,exprs)) -> do loop = proc input@((store,errors),(env,exprs)) -> do
cfg <- getCFG -< () cfg <- getCFG -< ()
liftIO print -< (labNodes cfg) --liftIO print -< (getNodes cfg)
--let nodes = getNodes cfg
stackElems <- Stack.elems -< () stackElems <- Stack.elems -< ()
liftIO print -< stackElems liftIO print -< stackElems
...@@ -352,7 +352,7 @@ debug f = proc input@((store,errors),(env,exprs)) -> do ...@@ -352,7 +352,7 @@ debug f = proc input@((store,errors),(env,exprs)) -> do
{-# INLINE debug #-} {-# INLINE debug #-}
-- newtype CFG stmt = CFG (Gr stmt ()) was für typen? brauche ich das? wenn ja wohin ? | c -> stmt
--------------------- Helper Functions ---------------------------- --------------------- Helper Functions ----------------------------
...@@ -377,8 +377,10 @@ createBreakpointResponse (((store, errors), (env, expr)):xs) input cfg = Data.Te ...@@ -377,8 +377,10 @@ createBreakpointResponse (((store, errors), (env, expr)):xs) input cfg = Data.Te
--[((Store, Errors), (Env, [Expr]))] --[((Store, Errors), (Env, [Expr]))]
getNodes :: (Gr stmt) (Gr stmt ()) -> [LNode stmt]
getNodes cfg = labNodes cfg -- newtype CFG stmt = CFG (Gr stmt ()) was für typen? brauche ich das? wenn ja wohin ? | c -> stmt
--getNodes :: CFG -> (Gr Expr ()) -> [LNode stmt]
--getNodes cfg stmt = labNodes stmt
......
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