Merge pull request #6 from garyb/updates

Misc minor updates

Author: garyb

src/Data/Json/Extended.purs

@@ -5,6 +5,7 @@ module Data.Json.Extended
   , getEJson
   , roll
   , unroll
+  , head
 
   , null
   , boolean
@@ -71,6 +72,9 @@ unroll =
     >>> Mu.unroll
     >>> map EJson
 
+head ∷ EJson → Sig.EJsonF (Mu.Mu Sig.EJsonF)
+head = Mu.unroll <<< getEJson
+
 instance eqEJson ∷ Eq EJson where
   eq (EJson a) (EJson b) =
     eq1 (Mu.unroll a) (Mu.unroll b)
@@ -103,8 +107,8 @@ instance encodeJsonEJson ∷ EncodeJson EJson where
       asKey
         ∷ EJson
         → M.Maybe String
-      asKey (EJson x) =
-        case Mu.unroll x of
+      asKey (EJson y) =
+        case Mu.unroll y of
           Sig.String k → pure k
           _ → M.Nothing
 

src/Data/Json/Extended/Signature/Core.purs

@@ -21,7 +21,6 @@ data EJsonF a
   | Boolean Boolean
   | Integer Int
   | Decimal HN.HugeNum
-  | String String
   | Timestamp String
   | Date String
   | Time String