Include parens in Show value

garyb · garyb · commit bf9393cc214f · 2016-02-09T01:18:54.000Z
diff --git a/src/Data/HTTP/Method.purs b/src/Data/HTTP/Method.purs
@@ -91,7 +91,7 @@ instance ordCustomMethod :: Ord CustomMethod where
   compare = gCompare
 
 instance showCustomMethod :: Show CustomMethod where
-  show (CustomMethod m) = "CustomMethod " <> show m
+  show (CustomMethod m) = "(CustomMethod " <> show m <> ")"
 
 fromString :: String -> Either Method CustomMethod
 fromString s =
