git.iko.soy/vty
on master help sign in
Specializing serialize_cap_expression for IO monad.
138ffa2coreyoconnor
src/Data/Terminfo/Eval.hs+1
compare with master
unifiedsplit
@@ -154,6 +154,7 @@ cap_op_required_bytes CompareGt = do
154 push $ if v_0 > v_1 then 1 else 0
154 push $ if v_0 > v_1 then 1 else 0
155 return 0
155 return 0
156
156
157+{-# SPECIALIZE serialize_cap_expression :: CapExpression -> [ CapParam ] -> OutputBuffer -> IO OutputBuffer #-}
157serialize_cap_expression :: MonadIO m => CapExpression -> [CapParam] -> OutputBuffer -> m OutputBuffer
158serialize_cap_expression :: MonadIO m => CapExpression -> [CapParam] -> OutputBuffer -> m OutputBuffer
158serialize_cap_expression cap params out_ptr = do
159serialize_cap_expression cap params out_ptr = do
159 let params' = apply_param_ops cap params
160 let params' = apply_param_ops cap params