Define Symbol separately

Author: JordanMartinez

spago.dhall

@@ -1,11 +1,6 @@
 { name = "node-event-emitters"
 , dependencies =
-  [ "effect"
-  , "either"
-  , "functions"
-  , "prelude"
-  , "unsafe-coerce" 
-  ]
+  [ "effect", "either", "functions", "nullable", "prelude", "unsafe-coerce" ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs" ]
 }

src/Node/EventEmitter.purs

@@ -40,7 +40,6 @@
 module Node.EventEmitter
   ( EventEmitter
   , new
-  , JsSymbol
   , SymbolOrStr
   , eventNames
   , getMaxListeners
@@ -67,6 +66,7 @@ import Data.Either (Either(..))
 import Data.Function.Uncurried (Fn3, runFn3)
 import Effect (Effect)
 import Effect.Uncurried (EffectFn1, EffectFn2, EffectFn3, EffectFn4, mkEffectFn1, mkEffectFn4, runEffectFn1, runEffectFn2, runEffectFn3, runEffectFn4)
+import Node.Symbol (JsSymbol)
 import Unsafe.Coerce (unsafeCoerce)
 
 foreign import data EventEmitter :: Type
@@ -78,12 +78,15 @@ foreign import data SymbolOrStr :: Type
 
 foreign import eventNamesImpl :: EventEmitter -> Array SymbolOrStr
 
-foreign import data JsSymbol :: Type
-
 eventNames :: EventEmitter -> Array (Either JsSymbol String)
 eventNames ee = map (\x -> runFn3 symbolOrStr Left Right x) $ eventNamesImpl ee
 
-foreign import symbolOrStr :: Fn3 (forall a. JsSymbol -> Either JsSymbol a) (forall b. String -> Either b String) SymbolOrStr (Either JsSymbol String)
+foreign import symbolOrStr
+  :: Fn3
+       (forall a. JsSymbol -> Either JsSymbol a)
+       (forall b. String -> Either b String)
+       SymbolOrStr
+       (Either JsSymbol String)
 
 foreign import getMaxListenersImpl :: EffectFn1 EventEmitter Int
 

src/Node/Symbol.js

@@ -0,0 +1,3 @@
+export const showSymbolImpl = (s) => s.toString();
+export const forImpl = (s) => Symbol.for(s);
+export const keyForImpl = (s) => Symbol.keyFor(s);

src/Node/Symbol.purs

@@ -0,0 +1,29 @@
+module Node.Symbol where
+
+import Prelude
+
+import Data.Function.Uncurried (Fn1, runFn1)
+import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toMaybe)
+import Effect (Effect)
+import Effect.Uncurried (EffectFn1, runEffectFn1)
+
+foreign import data JsSymbol :: Type
+
+instance Show JsSymbol where
+  show x = showSymbol x
+
+showSymbol :: JsSymbol -> String
+showSymbol s = runFn1 showSymbolImpl s
+
+foreign import showSymbolImpl :: Fn1 (JsSymbol) (String)
+
+for :: String -> Effect JsSymbol
+for s = runEffectFn1 forImpl s
+
+foreign import forImpl :: EffectFn1 (String) (JsSymbol)
+
+keyFor :: JsSymbol -> Effect (Maybe String)
+keyFor s = map toMaybe $ runEffectFn1 keyForImpl s
+
+foreign import keyForImpl :: EffectFn1 (JsSymbol) (Nullable String)

test.dhall

@@ -5,6 +5,7 @@
   , "either"
   , "foldable-traversable"
   , "functions"
+  , "nullable"
   , "prelude"
   , "refs"
   , "spec"