rust/hedgewars-server/src/server/haskell.rs
changeset 15603 ab095fc0256c
parent 15602 98482c4ccf4b
child 15823 f57a3d48072b
equal deleted inserted replaced
15602:98482c4ccf4b 15603:ab095fc0256c
   267             map(tag("DEL"), |_| Byte(b'\x7F')),
   267             map(tag("DEL"), |_| Byte(b'\x7F')),
   268         )),
   268         )),
   269     ))(input)
   269     ))(input)
   270 }
   270 }
   271 
   271 
   272 fn string_content(mut input: &[u8]) -> HaskellResult<String> {
   272 fn string_content(input: &[u8]) -> HaskellResult<String> {
   273     map_res(
   273     map_res(
   274         escaped_transform(is_not("\"\\"), '\\', string_escape),
   274         escaped_transform(is_not("\"\\"), '\\', string_escape),
   275         |bytes| String::from_utf8(bytes).map_err(|_| ()),
   275         |bytes| String::from_utf8(bytes).map_err(|_| ()),
   276     )(input)
   276     )(input)
   277 }
   277 }
   329                 preceded(
   329                 preceded(
   330                     take_while(is_space),
   330                     take_while(is_space),
   331                     many0(terminated(value, take_while(is_space))),
   331                     many0(terminated(value, take_while(is_space))),
   332                 ),
   332                 ),
   333             ),
   333             ),
   334             |(name, mut fields)| HaskellValue::AnonStruct {
   334             |(name, fields)| HaskellValue::AnonStruct {
   335                 name: name.clone(),
   335                 name: name.clone(),
   336                 fields,
   336                 fields,
   337             },
   337             },
   338         ),
   338         ),
   339     ))(input)
   339     ))(input)