NFData instance for Text.JSON intermediate parse-tree types

gistfile1.hs

import Text.JSON
import Text.JSON.Types
import Control.DeepSeq

instance NFData JSValue where
  rnf JSNull = ()
  rnf (JSBool _) = ()
  rnf (JSRational b _) = rnf b
  rnf (JSString s) = rnf s
  rnf (JSArray a) = rnf a
  rnf (JSObject obj) = rnf obj

instance NFData JSString where
  rnf = rnf . fromJSString

instance NFData t => NFData (JSObject t) where
  rnf = rnf . fromJSObject

NFData instance for Text.JSON intermediate parse-tree types