void-packages/srcpkgs/debug-me/patches/ghc8.8.3.patch

23 lines
684 B
Diff

--- a/Val.hs 2020-03-31 11:00:33.329814064 +0200
+++ b/Val.hs 2020-03-31 11:00:24.602711845 +0200
@@ -42,7 +42,7 @@
b64 :: B.ByteString -> T.Text
b64 = T.decodeUtf8 . B64.encode
-unb64 :: Monad m => T.Text -> m B.ByteString
+unb64 :: MonadFail m => T.Text -> m B.ByteString
unb64 t = either
(\_ -> fail "bad base64 data")
return
--- a/Server.hs 2020-03-31 12:53:45.860509650 +0200
+++ b/Server.hs 2020-03-31 12:52:34.873835069 +0200
@@ -105,7 +105,7 @@
-- (Workaround for
-- https://github.com/jaspervdj/websockets/issues/140)
setHost "*6" $
- setPort (serverPort o) $
+ setPort (CmdLine.serverPort o) $
defaultSettings
checkEnv :: ServerOpts -> IO ServerOpts