From 569d458bc9a4e7d0ee33a17549de55dbf49bea81 Mon Sep 17 00:00:00 2001
From: Andrew Gibiansky <andrew.gibiansky@gmail.com>
Date: Tue, 5 Apr 2016 12:01:22 -0700
Subject: [PATCH] Allow null title, as in Kubernetes Swagger Spec

---
 .../codegen/languages/HaskellServantCodegen.java       | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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 22c24960d69..05bf5be4f5b 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
@@ -181,9 +181,13 @@ public class HaskellServantCodegen extends DefaultCodegen implements CodegenConf
         String title = swagger.getInfo().getTitle();
 
         // Drop any API suffix
-        title = title.trim();
-        if (title.toUpperCase().endsWith("API")) {
-            title = title.substring(0, title.length() - 3);
+        if(title == null) {
+            title = "Swagger";
+        } else {
+            title = title.trim();
+            if (title.toUpperCase().endsWith("API")) {
+                title = title.substring(0, title.length() - 3);
+            }
         }
 
         String[] words = title.split(" ");