Fix in the framework.

This commit is contained in:
Alexander Granin 2020-02-07 20:02:20 +07:00
parent c37c29dc6a
commit 6b9a5e8b52
2 changed files with 3 additions and 1 deletions

View File

@ -111,6 +111,8 @@ dependencies:
- servant-docs
- wai
- warp
- http-client
- http-client-tls
library:
source-dirs:

View File

@ -131,7 +131,7 @@ runDB
-> LangL (D.DBResult a)
runDB = evalSqlDB
throwException :: forall a e. Exception e => e -> Flow a
throwException :: forall a e. Exception e => e -> LangL a
throwException ex = liftFC $ ThrowException ex id
callServantAPI