Fix TCP windows issue, fix Firefox on windows.

This commit is contained in:
David Himmelstrup 2021-01-04 16:33:57 +08:00
commit 7003c13bac
4 changed files with 5 additions and 5 deletions

View file

@ -14,7 +14,7 @@ import qualified Data.Map as Map
import qualified Data.Text as T
import Network.Socket (AddrInfo (..), AddrInfoFlag (..), SocketOption (..),
SocketType (Stream), accept, bind, close, defaultHints,
getAddrInfo, gracefulClose, listen, socket,
getAddrInfo, listen, socket,
setCloseOnExecIfNeeded, setSocketOption, withFdSocket,
withSocketsDo)
import Network.Socket.ByteString (recv)
@ -105,7 +105,7 @@ daemonReceive parent cb = withSocketsDo $ do
["stop"] -> killThread parent
[] -> return ()
_ -> error $ "Bad message: " ++ inp
gracefulClose conn 5000
close conn
resolve = do
let hints = defaultHints {
addrFlags = [AI_PASSIVE]

View file

@ -2,7 +2,7 @@
## Build it
```bash
cd reanimate/elm-viewer
cd reanimate/viewer-elm
npm install
npm run build
npm run minify

File diff suppressed because one or more lines are too long

View file

@ -378,7 +378,7 @@ frameView bestFrame frameIndex frameCount frames showingHelp frameDeltas isPause
image =
case bestFrame of
Just svgUrl ->
Html.img [ src svgUrl ] []
Html.img [ src ("file://" ++ svgUrl) ] []
Nothing ->
Html.text ""