prompt: remove debug statement

This commit is contained in:
2017-05-27 20:03:45 -04:00
parent e612b3c226
commit a7f74909d7
2 changed files with 0 additions and 2 deletions

View File

@@ -29,7 +29,6 @@ pmath f x = BErr $ "Expected exactly one argument, got " ++ (show $ length x)
psqrt :: [Value] -> Value psqrt :: [Value] -> Value
psqrt = pmath sqrt psqrt = pmath sqrt
pcos :: [Value] -> Value pcos :: [Value] -> Value
pcos = pmath cos pcos = pmath cos

View File

@@ -86,7 +86,6 @@ moveCursor n = putStr (repeatB n)
repeatB n = '\b':repeatB (n-1) repeatB n = '\b':repeatB (n-1)
-- TODO: Stub
readSpecialKey :: Int -> String -> Prompt -> IO (Int, String, Prompt) readSpecialKey :: Int -> String -> Prompt -> IO (Int, String, Prompt)
readSpecialKey pos acc pstate@(PState hpos history) = do readSpecialKey pos acc pstate@(PState hpos history) = do
c <- getChar c <- getChar