haskell-servant / example-servant-minimal Goto Github PK

test/AppSpec.hs:18:1: error:
    • Couldn't match expected type ‘Manager
                                    -> BaseUrl -> ClientM [Item]’
                  with actual type ‘ClientM [Item]’
    • When checking that the inferred type
        getItems :: ClientM [Item]
      is as general as its signature
        getItems :: Manager -> BaseUrl -> ClientM [Item]

test/AppSpec.hs:45:15: error:
    • Couldn't match expected type ‘ExceptT e0 IO a’
                  with actual type ‘ClientM a’
    • In the first argument of ‘runExceptT’, namely
        ‘(action manager baseUrl)’
      In the second argument of ‘(=<<)’, namely
        ‘runExceptT (action manager baseUrl)’
      In the expression:
        either throwIO return =<< runExceptT (action manager baseUrl)
    • Relevant bindings include
        action :: Manager -> BaseUrl -> ClientM a
          (bound at test/AppSpec.hs:44:24)
        try :: Host -> (Manager -> BaseUrl -> ClientM a) -> IO a
          (bound at test/AppSpec.hs:44:1)
Process failed: cabal build -j --ghc-options=-Werror (exit code: 1)

/src/App.hs:50:8: error:                                                                                                                        
    * Couldn't match expected type `Handler Item'                                                                                                                                  
                  with actual type `ExceptT ServantErr m0 a0'                                                                                                                      
    * In the expression: throwE err404                                                                                                                                             
      In a case alternative: _ -> throwE err404                                                                                                                                    
      In the expression:                                                                                                                                                           
        \case                                                                                                                                                                      
          0 -> return exampleItem                                                                                                                                                  
          _ -> throwE err404                                                                                                                                                       
   |                                                                                                                                                                               
50 |   _ -> throwE err404                                                                                                                                                          
   |        ^^^^^^^^^^^^^