From 80015a8a86ed01e7528ce98d4adbfe3ddb57bc89 Mon Sep 17 00:00:00 2001
From: Andrew Gibiansky <andrew.gibiansky@gmail.com>
Date: Tue, 5 Apr 2016 12:02:08 -0700
Subject: [PATCH] Allow passing just objects in APIs using Aesons Value type

---
 .../io/swagger/codegen/languages/HaskellServantCodegen.java     | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/modules/swagger-codegen/src/main/java/io/swagger/codegen/languages/HaskellServantCodegen.java b/modules/swagger-codegen/src/main/java/io/swagger/codegen/languages/HaskellServantCodegen.java
index 26dc7448a74..4916effd8b9 100644
--- a/modules/swagger-codegen/src/main/java/io/swagger/codegen/languages/HaskellServantCodegen.java
+++ b/modules/swagger-codegen/src/main/java/io/swagger/codegen/languages/HaskellServantCodegen.java
@@ -267,6 +267,8 @@ public class HaskellServantCodegen extends DefaultCodegen implements CodegenConf
             type = typeMapping.get(swaggerType);
             if (languageSpecificPrimitives.contains(type))
                 return toModelName(type);
+        } else if(swaggerType == "object") {
+            type = "Value";
         } else {
             type = swaggerType;
         }