Merge pull request #6 from garyb/updates

Misc minor updates
slamdata · Dec 21, 2016 · 23a33fb · 23a33fb
2 parents 9c70687 + e515d33
commit 23a33fb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/Data/Json/Extended.purs b/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
 

diff --git a/src/Data/Json/Extended/Signature/Core.purs b/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