karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

No more redundant imports.

master
Philippe Pittoli 2023-05-20 00:48:49 +02:00
parent 20ba8f9144
commit 65f93904c0
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/App/IPC.purs
View File

@ -1,18 +1,13 @@
module App.IPC (toIPC, fromIPC) where module App.IPC (toIPC, fromIPC) where
import Prelude import Prelude (bind, discard, ($), (>>>))
import Effect (Effect) import Effect (Effect)
import Effect.Class (class MonadEffect, liftEffect) import Effect.Class (liftEffect)
import Effect.Class.Console as Console
import Data.Maybe import Data.UInt (fromInt)
import Data.UInt (UInt, fromInt, toInt)
import Data.Array (drop, cons)
import Data.ArrayBuffer.ArrayBuffer as ArrayBuffer import Data.ArrayBuffer.ArrayBuffer as ArrayBuffer
import Data.ArrayBuffer.Types (DataView, ArrayBuffer(..)) import Data.ArrayBuffer.Types (ArrayBuffer, DataView)
import Data.ArrayBuffer.Typed (buffer)
import Data.ArrayBuffer.ArrayBuffer as AB
import Data.ArrayBuffer.Builder as Builder import Data.ArrayBuffer.Builder as Builder
import Data.ArrayBuffer.Cast as Cast import Data.ArrayBuffer.Cast as Cast
@ -23,19 +18,13 @@ import Data.ArrayBuffer.Typed as Typed
import Data.ArrayBuffer.DataView as DataView import Data.ArrayBuffer.DataView as DataView
import Parsing.DataView as Parsing.DataView import Parsing.DataView as Parsing.DataView
import Parsing as Parsing import Parsing as Parsing
import Parsing (ParserT(..), ParseError(..), runParserT) import Parsing (ParseError, ParserT, runParserT)
import Data.String.CodeUnits as CU
import Web.Encoding.TextEncoder as TextEncoder import Web.Encoding.TextEncoder as TextEncoder
import Web.Encoding.TextDecoder as TextDecoder import Web.Encoding.TextDecoder as TextDecoder
import Web.Encoding.UtfLabel as UtfLabel import Web.Encoding.UtfLabel as UtfLabel
import Data.Char (fromCharCode) import Data.Either (Either)
import Data.ArrayBuffer.DataView as DV
import Effect.Unsafe
import Data.Either (Either(Left, Right), either, note, hush)
import Effect.Exception as Exception import Effect.Exception as Exception
utf8ToArrayBuffer :: String -> Effect ArrayBuffer utf8ToArrayBuffer :: String -> Effect ArrayBuffer