From 15ba6a938988d7b2c727cdd6c57b8a2be3ca94e4 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Mon, 25 Jun 2018 17:39:22 -0400
Subject: [PATCH] spaces

---
 src/Data/Syntax.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Syntax.hs b/src/Data/Syntax.hs
index 61af378d9..a9a7983dc 100644
--- a/src/Data/Syntax.hs
+++ b/src/Data/Syntax.hs
@@ -213,7 +213,7 @@ instance Named String where
 instance Message String where
   encodeMessage = encodeMessageField
   decodeMessage = Decode.at decodeMessageField
-  dotProto _ = [Proto.DotProtoMessageField $ protoType (Proxy @String)]
+  dotProto _ = [ Proto.DotProtoMessageField $ protoType (Proxy @String) ]
 
 
 errorSyntax :: Error.Error String -> [a] -> Error a