responseData :: QueryType -> String -> String
responseData queryType json =
  let keyword = case queryType of
        QTDGraph -> "dgraph"
        QTOMS -> "oms"
        QTSerialization -> "serialization"
        QTSignature -> "signature"
        QTSignatureMorphism -> "signatureMorphism"
  in  "{\"data\": {\n  \"" ++ keyword ++ "\":" ++ json ++ "}}"
responseData :: QueryType -> String -> String
responseData queryType json =
  let keyword = case queryType of
        QTDGraph -> "dgraph"
        QTOMS -> "oms"
        QTSerialization -> "serialization"
        QTSignature -> "signature"
        QTSignatureMorphism -> "signatureMorphism"
  in  "{\"data\": {\n  \"" ++ keyword ++ "\":" ++ json ++ "}}"
responseData queryType json =
  let keyword = case queryType of
        QTDGraph -> "dgraph"
        QTOMS -> "oms"
        QTSerialization -> "serialization"
        QTSignature -> "signature"
        QTSignatureMorphism -> "signatureMorphism"
  in  "{\"data\": {\n  \"" ++ keyword ++ "\":" ++ json ++ "}}"