spec = do
  it "works for nodes" $ do
    toJson (topLevelNodes $ treeFromText "line one")
    `shouldBe`
    "[{\"body\":\"line one\",\"id\":0}]"
spec = do
  it "works for nodes" $ do
    toJson (topLevelNodes $ treeFromText "line one")
    `shouldBe`
    "[{\"body\":\"line one\",\"id\":0}]"
spec = do
  it "works for nodes" $ do
    toJson (topLevelNodes $ treeFromText "line one")
    `shouldBe`
    "[{\"body\":\"line one\",\"id\":0}]"