git.iko.soy/vty
on master help sign in
Wall police
f42f259coreyoconnor
src/Data/Terminfo/Eval.hs+1−1
compare with master
unifiedsplit
@@ -82,7 +82,7 @@ cap_op_required_bytes DecOut = do
82 p <- pop
82 p <- pop
83 return $ toEnum $ length $ show p
83 return $ toEnum $ length $ show p
84cap_op_required_bytes CharOut = do
84cap_op_required_bytes CharOut = do
85− pop
85+ _ <- pop
86 return 1
86 return 1
87cap_op_required_bytes (PushParam pn) = do
87cap_op_required_bytes (PushParam pn) = do
88 read_param pn >>= push
88 read_param pn >>= push