diff options
| author | Daniel Schadt <kingdread@gmx.de> | 2020-03-03 14:50:18 +0100 |
|---|---|---|
| committer | Daniel Schadt <kingdread@gmx.de> | 2020-03-03 14:50:18 +0100 |
| commit | a440dcbb89f74b607720bb5805390749861f9fe5 (patch) | |
| tree | d44516815a8a801f377ef0d6b870a27ec11510bd /test/Spec.hs | |
| parent | 74b373d23d35446d772d6bb2b01c49ca38978236 (diff) | |
| download | simghost-a440dcbb89f74b607720bb5805390749861f9fe5.tar.gz simghost-a440dcbb89f74b607720bb5805390749861f9fe5.tar.bz2 simghost-a440dcbb89f74b607720bb5805390749861f9fe5.zip | |
rewrite handleUpload
This way we avoid the right-drift that we introduced in the first
version, as the error handling and propagation is done in the Maybe
monad.
The downside to this is that we lose some error information: We cannot
show anymore if the authorization failed or something else went wrong,
because in all cases we just bail out with Nothing.
Diffstat (limited to 'test/Spec.hs')
0 files changed, 0 insertions, 0 deletions