@@ -1068,7 +1068,7 @@ str = do
1068 [] -> return $ Str result
1068 [] -> return $ Str result
1069 xs -> choice (map (\x ->
1069 xs -> choice (map (\x ->
1070 try (string x >> oneOf " \n" >>
1070 try (string x >> oneOf " \n" >>
1071− lookAhead letter >>
1071+ lookAhead alphaNum >>
1072 return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
1072 return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
1073 <|> (return $ Str result)
1073 <|> (return $ Str result)
1074 else return $ Str result
1074 else return $ Str result