Skip to content
Permalink
Browse files

Fixing a name-shadowing warning.

  • Loading branch information...
krisajenkins committed Mar 15, 2019
1 parent b97c4db commit 3c3312ca2924760566903026ae237b44fa8ab7da
@@ -25,12 +25,12 @@ showErrorDescription (UnexpectedHTTPStatus {status, response}) =
case status, response of
(StatusCode 400), _ ->
case (decodeJson =<< jsonParser response) :: Either String (Array CompilationError) of
Left _ -> defaultError status
Left _ -> defaultError
Right compilationErrors ->
div_ (showCompilationError <$> compilationErrors)
_, _ -> defaultError status
_, _ -> defaultError
where
defaultError status =
defaultError =
text $ "UnexpectedHTTPStatus: " <> response <> " " <> show status

showCompilationError (RawError rawError) = text rawError
@@ -90,9 +90,9 @@ instance bindMockApp :: Monad m => Bind (MockApp m) where
instance monadMockApp :: Monad m => Monad (MockApp m)

instance monadStateMockApp :: Monad m => MonadState State (MockApp m) where
state f = MockApp $ RWST \r (Tuple world state) ->
case f state
of (Tuple a state') -> pure $ RWSResult (Tuple world state') a unit
state f = MockApp $ RWST \r (Tuple world appState) ->
case f appState of
(Tuple a appState') -> pure $ RWSResult (Tuple world appState') a unit

instance monadAskMockApp :: Monad m => MonadAsk (SPSettings_ SPParams_) (MockApp m) where
ask = MockApp $ ask

0 comments on commit 3c3312c

Please sign in to comment.
You can’t perform that action at this time.