From a7f74909d767937c065b7c0800f093042f2fd47c Mon Sep 17 00:00:00 2001
From: hellerve <veit@veitheller.de>
Date: Sat, 27 May 2017 20:03:45 -0400
Subject: [PATCH] prompt: remove debug statement

---
 src/BC/Primitives.hs | 1 -
 src/BC/Prompt.hs     | 1 -
 2 files changed, 2 deletions(-)

diff --git a/src/BC/Primitives.hs b/src/BC/Primitives.hs
index a2fa621..a3b2e78 100644
--- a/src/BC/Primitives.hs
+++ b/src/BC/Primitives.hs
@@ -29,7 +29,6 @@ pmath f x = BErr $ "Expected exactly one argument, got " ++ (show $ length x)
 psqrt :: [Value] -> Value
 psqrt = pmath sqrt
 
-
 pcos :: [Value] -> Value
 pcos = pmath cos
 
diff --git a/src/BC/Prompt.hs b/src/BC/Prompt.hs
index a43d80b..c15b166 100644
--- a/src/BC/Prompt.hs
+++ b/src/BC/Prompt.hs
@@ -86,7 +86,6 @@ moveCursor n = putStr (repeatB n)
         repeatB n = '\b':repeatB (n-1)
 
 
--- TODO: Stub
 readSpecialKey :: Int -> String -> Prompt -> IO (Int, String, Prompt)
 readSpecialKey pos acc pstate@(PState hpos history) = do
     c <- getChar