ilyakooo0/roboservant
1
0
Fork 0
mirror of https://github.com/ilyakooo0/roboservant.git synced 2024-09-11 08:05:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

Apply suggestions from code review

Browse Source 
thanks musedev.

Co-authored-by: muse-dev[bot] <37194012+muse-dev[bot]@users.noreply.github.com>
This commit is contained in:
Mark Wotton 2021-03-16 15:48:09 -04:00 committed by GitHub
parent c41cee3296
commit 1728c99798
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Roboservant/Client.hs
View File

@ -3,7 +3,6 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE NamedFieldPuns#-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
@ -42,7 +41,10 @@ import Data.Hashable
fuzz :: forall api . (ToReifiedClientApi (Endpoints api), FlattenClient api, HasClient ClientM api)
=> ClientEnv -> Config -> IO (Maybe Report)
fuzz clientEnv config = fuzz' (toReifiedClientApi (flattenClient @api apiClient) (Proxy @(Endpoints api)) clientEnv ) config
fuzz clientEnv
= fuzz'
(toReifiedClientApi
(flattenClient @api apiClient) (Proxy @(Endpoints api)) clientEnv)
where apiClient = client (Proxy @api)

4
src/Roboservant/Server.hs
View File

@ -4,12 +4,9 @@
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
@ -37,4 +34,3 @@ fuzz s = fuzz' (reifyServer s)
reifyServer server = toReifiedApi (flattenServer @api server) (Proxy @(Endpoints api))
-- reifyServer server = toReifiedApi server (Proxy @(Endpoints api))

2
src/Roboservant/Types/ReifiedApi/Server.hs
View File

@ -7,9 +7,7 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

3
test/Spec.hs
View File

@ -29,7 +29,8 @@ import qualified Seeded
import Test.Hspec
import Test.Hspec.Core.Spec (FailureReason (Reason), ResultStatus (Failure, Success), itemExample, mapSpecItem_, resultStatus)
import qualified Valid
import Servant(Server,Proxy(..), serve)
import Servant ( Server, Proxy(..), serve, Endpoints, HasServer )
import Servant.Client(ClientEnv, mkClientEnv, baseUrlPort, parseBaseUrl,HasClient,ClientM)
import Network.Wai(Application)
import qualified Network.Wai.Handler.Warp as Warp