vilu · September 18, 2018 19:16
diff --git a/gistfile1.txt b/gistfile1.txt
 eval :: Query ~> H.HalogenM State Query () Output Aff
        eval (LoginRequest next) = do
            s <- H.get
            responseRaw <- H.liftAff $ AX.post AXResponse.json ("http://localhost:8080/api/users/login") (mkRequest s)
            responseE <- pure $ parseResponse $ responseRaw.response
            pure next
	eval :: Query ~> H.HalogenM State Query () Output Aff
	eval (LoginRequest next) = do
	s <- H.get
	responseRaw <- H.liftAff $ AX.post AXResponse.json ("http://localhost:8080/api/users/login") (mkRequest s)
	responseE <- pure $ parseResponse $ responseRaw.response
	pure next