From 989afebbd01990d57b937d7cfafc81ac77409d45 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 8 Feb 2018 09:00:32 +0100
Subject: Implement pprint for Nop

---
 src/SPL/PrettyPrinter.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/SPL')

diff --git a/src/SPL/PrettyPrinter.hs b/src/SPL/PrettyPrinter.hs
index 6d55d1b..48cdf9d 100644
--- a/src/SPL/PrettyPrinter.hs
+++ b/src/SPL/PrettyPrinter.hs
@@ -112,7 +112,8 @@ instance Pprint Statement where
     pprint stmt2
     pprint ";"
     pprint stmt1
-  pprint _   = error "Cannot pprint unknow statement"
+  pprint Nop = return ()
+  pprint _   = error "Cannot pprint unknown statement"
 
 instance Pprint Expression where
   pprint (Var v) = pprint v
-- 
cgit v1.2.3