genArbitrary :: HSStruct -> String
genArbitrary (HSStruct name     []) = genArbitrary' name []
genArbitrary :: HSStruct -> String
genArbitrary (HSStruct name     []) = genArbitrary' name []
genArbitrary (HSStruct name     []) = genArbitrary' name []