rhine 1.1 → 1.2
raw patch · 3 files changed
+14/−6 lines, 3 filesdep +text
Dependencies added: text
Files
- ChangeLog.md +4/−0
- rhine.cabal +4/−4
- src/FRP/Rhine/Clock/Realtime/Stdin.hs +6/−2
ChangeLog.md view
@@ -1,5 +1,9 @@ # Revision history for rhine +## 1.2++* Changed Stdin clock Tag type to Text+ ## 1.1 * dunai-0.11 compatibility
rhine.cabal view
@@ -2,7 +2,7 @@ name: rhine -version: 1.1+version: 1.2 synopsis: Functional Reactive Programming with type-level clocks @@ -40,10 +40,9 @@ extra-doc-files: README.md tested-with:- GHC == 8.10.7 GHC == 9.0.2- GHC == 9.2.5- GHC == 9.4.4+ GHC == 9.2.8+ GHC == 9.4.7 source-repository head type: git@@ -134,6 +133,7 @@ , time >= 1.8 , free >= 5.1 , containers >= 0.5+ , text >= 1.2 && < 2.1 , deepseq >= 1.4 , random >= 1.1 , MonadRandom >= 0.5
src/FRP/Rhine/Clock/Realtime/Stdin.hs view
@@ -15,6 +15,10 @@ -- transformers import Control.Monad.IO.Class +-- text+import qualified Data.Text as Text+import qualified Data.Text.IO as Text+ -- rhine import FRP.Rhine.Clock import FRP.Rhine.Clock.Proxy@@ -27,13 +31,13 @@ instance (MonadIO m) => Clock m StdinClock where type Time StdinClock = UTCTime- type Tag StdinClock = String+ type Tag StdinClock = Text.Text initClock _ = do initialTime <- liftIO getCurrentTime return ( constM $ liftIO $ do- line <- getLine+ line <- Text.getLine time <- getCurrentTime return (time, line) , initialTime