import Fuzz exposing (Fuzzer)
import Json.Encode as Json


jsonInt : Fuzzer ( Int, Json.Value )
jsonInt =
    Fuzz.map
        (\i -> ( i, Json.int i ))
        Fuzz.int
        
        
jsonString : Fuzzer ( String, Json.Value )
jsonString =
    Fuzz.map
        (\s -> ( s, Json.string s ))
        Fuzz.string