1. Alex Suraci
  2. json

Commits

Alex Suraci  committed 8b74ead

psingle -> single

  • Participants
  • Parent commits 16239a3
  • Branches default

Comments (0)

Files changed (1)

File main.hs

View file
     toValue (JSObject o) = do
         ms <- forM (fromJSObject o) $ \(n, j) -> do
             v <- toValue j
-            return (psingle n PThis, v)
+            return (single n PThis, v)
 
         json <- here "JSON"
         o <- newObject $ \o -> o