Specializing serialize_cap_expression for IO monad.
Ignore-this: b100bedc4203dd2a289f545e60d249fb
darcs-hash:20100114075146-f0a0d-46afad3d575ca8698e2a3b35f82069c1d6172f9a.gz
commit138ffa23ba043ec36f7284d19c9b8fac8ac7ce55
authorcoreyoconnor <coreyoconnor@gmail.com>
dateWed 13 Jan 2010, 23:51 (17 years ago)
parent9ade7f7
src/Data/Terminfo/Eval.hs+1
@@ -154,6 +154,7 @@ cap_op_required_bytes CompareGt = do
154154 push $ if v_0 > v_1 then 1 else 0
155155 return 0
156156
157+{-# SPECIALIZE serialize_cap_expression :: CapExpression -> [ CapParam ] -> OutputBuffer -> IO OutputBuffer #-}
157158serialize_cap_expression :: MonadIO m => CapExpression -> [CapParam] -> OutputBuffer -> m OutputBuffer
158159serialize_cap_expression cap params out_ptr = do
159160 let params' = apply_param_ops cap params