prompt: remove debug statement
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
@@ -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
|
||||||
|
Reference in New Issue
Block a user