toJSONしか作ってない

BookmarkUtil.hs

module BookmarkUtil (
  Bookmark(..),
  toJSON
  ) where

import Data.List

data Bookmark = Bookmark {
  name :: String,
  url :: String
  } | Folder {
  name :: String,
  children :: [Bookmark]
  } deriving (Show)

toJSON :: Bookmark -> String
toJSON (Bookmark name url) =
  "{ name: \"" ++ name ++ "\", url: \"" ++ url ++ "\" }"
toJSON (Folder name bookmarks) =
  "{name: \"" ++ name ++ "\", children: [" ++
  (concat (intersperse ", " (map toJSON bookmarks)))
  ++ "]}"