Question

我正在Haskell中编写一个应用程序，作为我的持久性系统的一部分，我将我的数据结构转换为JSON格式，然后将它们写入磁盘。稍后，我想通过读取文件并通过JSON解析器运行它来重新构建对象来加载它们。

但是，读取部分出现问题，导致JSON模块无法解析字符串。

首先，我正在使用Text.JSON（json-0.5）来完成我的工作。我写入文件的数据类型称为WorkoutEvent，我已经验证它使用此命令完美地编码和解码为JSON：

decode $ encode evt :: Result WorkoutEvent

因此，考虑到这一点，我创建了一堆事件并将它们写入文件，结果文件看起来像这样（当我在文本编辑器中打开它时）：

{"type":"AddWorkout","data":{"uuid":"473b7964-8197-49ac-be3b-2b3804f1fbb5","date":"2012-03-30","workout_type":"Pushups","description":"","sets":[6]}}
{"type":"AddWorkout","data":{"uuid":"9f83363a-5298-4778-9c80-7dfa0d2ea6f9","date":"2012-04-02","workout_type":"Pushups","description":"","sets":[6,6]}}
{"type":"AddWorkout","data":{"uuid":"a60806a0-efd6-4647-bc62-a48298ce55cd","date":"2012-04-04","workout_type":"Pushups","description":"","sets":[]}}

依此类推。文件中的每一行代表一个我已序列化的完整对象。

然后我使用readFile加载文件，我发现没有问题：

*Main> f <- readFile "/home/savanni/Documents/workouts.json-stream"
*Main> take 50 f
"{\"type\":\"AddWorkout\",\"data\":{\"uuid\":\"473b7964-8197"
*Main> putStrLn $ take 50 f
{"type":"AddWorkout","data":{"uuid":"473b7964-8197

到目前为止，这么好。当我尝试解码数据时出现了问题：

*Main> decode f :: Result [WorkoutEvent]
Error "Invalid tokens at end of JSON string: \"{\\\"type\\\":\\\"A\""

如果我说putStrLn f我看到输出，看到输出中的任何地方都没有\ sequence。如果我只是在命令行输入f，我会看到如上所述的转义序列，但我从未在任何地方看到任何多个\ _转义序列。

那么，最后，我究竟应该如何使用Text.JSON模块从文件中读取JSON数据？

Answer 1

每一行都是有效的JSON，但整个文件不是，所以你需要逐行解码。像（未经测试）的东西：

map (decode :: String -> Result WorkoutEvent) $ lines f

如何使用Text.JSON解析从Haskell中的文件读取的字符串

1 个答案: