From cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 5 Sep 2015 14:14:25 +0200 Subject: Renaming PaymentView to LoggedView --- src/client/ServerCommunication.elm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/client/ServerCommunication.elm') diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm index 5ddcfb9..c38805b 100644 --- a/src/client/ServerCommunication.elm +++ b/src/client/ServerCommunication.elm @@ -35,7 +35,8 @@ sendRequest communication = Nothing -> Task.succeed U.NoOp Just request -> - (Http.send Http.defaultSettings request) `Task.andThen` (serverResult communication) + Http.send Http.defaultSettings request + |> flip Task.andThen (serverResult communication) getRequest : Communication -> Maybe Http.Request getRequest communication = -- cgit v1.2.3