summaryrefslogtreecommitdiff
path: root/src/Grasp
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-08-31 20:52:31 +1000
committerJed Barber <jjbarber@y7mail.com>2014-08-31 20:52:31 +1000
commit0638d5c1ff47c9b638ffcc4376f093117b7798d8 (patch)
treeda94b114e741bfd1571a9107f4ba7d943fd190c7 /src/Grasp
parente9a61167bfe3ed15f747bd973117fb1a0f9fed4a (diff)
Added comment about refactoring later
Diffstat (limited to 'src/Grasp')
-rw-r--r--src/Grasp/Interpreter.hs7
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 =