@@ -97,13 +97,13 @@ cap_expression_parser = do
9797
9898param_escape_parser :: CapParser BuildResults
9999param_escape_parser = do
100− char '%'
100+ _ <- char '%'
101101 inc_offset 1
102102 literal_percent_parser <|> param_op_parser
103103
104104literal_percent_parser :: CapParser BuildResults
105105literal_percent_parser = do
106− char '%'
106+ _ <- char '%'
107107 start_offset <- getState >>= return . next_offset
108108 inc_offset 1
109109 return $ BuildResults 0 [Bytes start_offset 1] []
@@ -123,32 +123,32 @@ param_op_parser
123123
124124increment_op_parser :: CapParser BuildResults
125125increment_op_parser = do
126− char 'i'
126+ _ <- char 'i'
127127 inc_offset 1
128128 return $ BuildResults 0 [] [ IncFirstTwo ]
129129
130130push_op_parser :: CapParser BuildResults
131131push_op_parser = do
132− char 'p'
132+ _ <- char 'p'
133133 param_n <- digit >>= return . (\d -> read [d])
134134 inc_offset 2
135135 return $ BuildResults param_n [ PushParam $ param_n - 1 ] []
136136
137137dec_out_parser :: CapParser BuildResults
138138dec_out_parser = do
139− char 'd'
139+ _ <- char 'd'
140140 inc_offset 1
141141 return $ BuildResults 0 [ DecOut ] []
142142
143143char_out_parser :: CapParser BuildResults
144144char_out_parser = do
145− char 'c'
145+ _ <- char 'c'
146146 inc_offset 1
147147 return $ BuildResults 0 [ CharOut ] []
148148
149149conditional_op_parser :: CapParser BuildResults
150150conditional_op_parser = do
151− char '?'
151+ _ <- char '?'
152152 inc_offset 1
153153 cond_part <- many_expr conditional_true_parser
154154 parts <- many_p
@@ -191,17 +191,17 @@ conditional_op_parser = do
191191
192192conditional_true_parser :: CapParser ()
193193conditional_true_parser = do
194− string "%t"
194+ _ <- string "%t"
195195 inc_offset 2
196196
197197conditional_false_parser :: CapParser ()
198198conditional_false_parser = do
199− string "%e"
199+ _ <- string "%e"
200200 inc_offset 2
201201
202202conditional_end_parser :: CapParser ()
203203conditional_end_parser = do
204− string "%;"
204+ _ <- string "%;"
205205 inc_offset 2
206206
207207bitwise_op_parser :: CapParser BuildResults
@@ -212,19 +212,19 @@ bitwise_op_parser
212212
213213bitwise_or_parser :: CapParser BuildResults
214214bitwise_or_parser = do
215− char '|'
215+ _ <- char '|'
216216 inc_offset 1
217217 return $ BuildResults 0 [ BitwiseOr ] [ ]
218218
219219bitwise_and_parser :: CapParser BuildResults
220220bitwise_and_parser = do
221− char '&'
221+ _ <- char '&'
222222 inc_offset 1
223223 return $ BuildResults 0 [ BitwiseAnd ] [ ]
224224
225225bitwise_xor_parser :: CapParser BuildResults
226226bitwise_xor_parser = do
227− char '^'
227+ _ <- char '^'
228228 inc_offset 1
229229 return $ BuildResults 0 [ BitwiseXOr ] [ ]
230230
@@ -234,22 +234,22 @@ arith_op_parser
234234 <|> minus_op
235235 where
236236 plus_op = do
237− char '+'
237+ _ <- char '+'
238238 inc_offset 1
239239 return $ BuildResults 0 [ ArithPlus ] [ ]
240240 minus_op = do
241− char '-'
241+ _ <- char '-'
242242 inc_offset 1
243243 return $ BuildResults 0 [ ArithMinus ] [ ]
244244
245245literal_int_op_parser :: CapParser BuildResults
246246literal_int_op_parser = do
247− char '{'
247+ _ <- char '{'
248248 inc_offset 1
249249 n_str <- many1 digit
250250 inc_offset $ toEnum $ length n_str
251251 let n :: Word = read n_str
252− char '}'
252+ _ <- char '}'
253253 inc_offset 1
254254 return $ BuildResults 0 [ PushValue n ] [ ]
255255
@@ -260,15 +260,15 @@ compare_op_parser
260260 <|> compare_gt_op
261261 where
262262 compare_eq_op = do
263− char '='
263+ _ <- char '='
264264 inc_offset 1
265265 return $ BuildResults 0 [ CompareEq ] [ ]
266266 compare_lt_op = do
267− char '<'
267+ _ <- char '<'
268268 inc_offset 1
269269 return $ BuildResults 0 [ CompareLt ] [ ]
270270 compare_gt_op = do
271− char '>'
271+ _ <- char '>'
272272 inc_offset 1
273273 return $ BuildResults 0 [ CompareGt ] [ ]
274274
@@ -284,9 +284,9 @@ bytes_op_parser = do
284284
285285char_const_parser :: CapParser BuildResults
286286char_const_parser = do
287− char '\''
287+ _ <- char '\''
288288 char_value <- liftM (toEnum . fromEnum) anyChar
289− char '\''
289+ _ <- char '\''
290290 inc_offset 3
291291 return $ BuildResults 0 [ PushValue char_value ] [ ]
292292