cleanup compactify, improve

[clean-tests.git] / datatype / Compiler.hs

diff --git a/datatype/Compiler.hs b/datatype/Compiler.hs
index adb148f..5669725 100644 (file)
--- a/datatype/Compiler.hs
+++ b/datatype/Compiler.hs
@@ -51,6 +51,7 @@ binop i l r = l >> r >> instr [i]
 unop :: Instr -> Compiler a -> Compiler b
 unop i l = l >> instr [i]
 
+instance DSL Compiler
 instance Expression Compiler where
     lit v = instr [Push $ serialise v]
     (+.) = binop Add