diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-08-31 20:52:31 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-08-31 20:52:31 +1000 |
| commit | 0638d5c1ff47c9b638ffcc4376f093117b7798d8 (patch) | |
| tree | da94b114e741bfd1571a9107f4ba7d943fd190c7 | |
| parent | e9a61167bfe3ed15f747bd973117fb1a0f9fed4a (diff) | |
Added comment about refactoring later
| -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 = |