diff options
| -rw-r--r-- | src/Grasp/Interpreter.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs index e009e5e..9ce353e 100644 --- a/src/Grasp/Interpreter.hs +++ b/src/Grasp/Interpreter.hs @@ -23,6 +23,13 @@ type IP = [LNode String] +-- this is a disgusting, disgusting way to implement this + +-- I blame the inelegance of manipulating graphs, and I strongly suspect +-- it would be better for all concerned if I created a DSL for that purpose +-- and refactored all the instructions into that form + + grasp :: GraspProgram -> IO () grasp g = |