Add head

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)