Fix inconsistent whitespace in RunCapabilityPatternNode

Author: pete-murphy

recipes/RunCapabilityPatternNode/src/Application.purs

@@ -43,4 +43,4 @@ _logger :: Proxy "logger"
 _logger = Proxy
 
 _getUserName :: Proxy "getUserName"
-_getUserName = Proxy
+_getUserName = Proxy

recipes/RunCapabilityPatternNode/src/ProductionAsync.purs

@@ -21,7 +21,7 @@ type Environment = { asyncEnv :: String }
 -- The `GetUserName` dsl can be interpreted without 
 -- using `Reader` as an intermediate step (as shown in `ProductionSync`), 
 -- but I chose to use Reader here just to show off how you'd go about doing it.
-type AppMA r = Run (READER Environment + AFF + EFFECT + r )
+type AppMA r = Run (READER Environment + AFF + EFFECT + r)
 
 -- | Running our monad is just a matter of interpreter composition.
 runApp :: Environment -> AppMA (LOGGER + GET_USER_NAME + ()) ~> Aff

recipes/RunCapabilityPatternNode/src/Test.purs

@@ -24,7 +24,7 @@ runLogger = Run.interpret (on _logger handleLogger send)
   handleLogger :: LoggerF ~> TestM r 
   handleLogger (Log _ a) = pure a
 
-runGetUserName :: forall r.  TestM (GET_USER_NAME + r) ~> TestM r
+runGetUserName :: forall r. TestM (GET_USER_NAME + r) ~> TestM r
 runGetUserName = Run.interpret (on _getUserName handleUserName send)
   where
   handleUserName :: GetUserNameF ~> TestM r