added showForeignTempo and a (commented out) debugging version of set…

…Tempo in Estuary.Languages.ExoLang
dktr0 · Oct 4, 2023 · 355ab5e · 355ab5e
1 parent 60de54c
commit 355ab5e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/client/src/Estuary/Languages/ExoLang.hs b/client/src/Estuary/Languages/ExoLang.hs
@@ -125,6 +125,12 @@ foreign import javascript unsafe
 
 setTempo :: ExoLang -> Tempo -> IO ()
 setTempo e t = void $ withExoLang e $ _setTempo $ toForeignTempo t
+{- setTempo e t = withExoLang e $ \elo -> do
+  let t' = toForeignTempo t
+  putStrLn $ "t " ++ show t
+  putStrLn $ "t' " ++ unpack (showForeignTempo t')
+  _setTempo t' elo -}
+
 
 foreign import javascript unsafe
   "$2.setTempo($1)"

diff --git a/client/src/Estuary/Render/ForeignTempo.hs b/client/src/Estuary/Render/ForeignTempo.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE JavaScriptFFI #-}
 
-module Estuary.Render.ForeignTempo (ForeignTempo(..),toForeignTempo) where
+module Estuary.Render.ForeignTempo (ForeignTempo(..),toForeignTempo,showForeignTempo) where
 
 -- | The ForeignTempo type is used to interface with (and is essentially defined by)
 -- the purescript-tempi library. toForeignTempo can be used to convert Estuary's
@@ -10,6 +10,7 @@ import Data.Ratio
 import GHCJS.DOM.Types hiding (Text)
 import Estuary.Types.Tempo
 import Data.Time.Clock.POSIX
+import Data.Text (Text)
 
 newtype ForeignTempo = ForeignTempo JSVal
 
@@ -31,3 +32,7 @@ toForeignTempo t = _newForeignTempo freqNumerator freqDenominator time countNume
     countRatioInt = fromRational (count t) :: Ratio Int
     countNumerator = numerator countRatioInt
     countDenominator = denominator countRatioInt
+
+foreign import javascript unsafe
+  "$1.freqNumerator.toString() + \" \" + $1.freqDenominator.toString() + \" \" + $1.time.toString() + \" \" + $1.countNumerator.toString() + \" \" + $1.countDenominator.toString()"
+  showForeignTempo :: ForeignTempo -> Text