mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 06:07:21 +03:00
let Watch.hs start with a random flower, so that...
...when it crashes and the sequence number gets reset, you can still get a changing flower when you re-save your typechecker-crashing unison source, to let you know that the REPL is still being interactive.
This commit is contained in:
parent
f9f5776da9
commit
c539344e1a
@ -31,6 +31,7 @@ import Unison.Symbol (Symbol)
|
||||
import Unison.Util.Monoid
|
||||
import qualified System.IO.Streams as Streams
|
||||
import qualified System.Process as P
|
||||
import System.Random (randomRIO)
|
||||
import Control.Exception (finally)
|
||||
|
||||
watchDirectory' :: FilePath -> IO (IO (FilePath, UTCTime))
|
||||
@ -92,7 +93,9 @@ serverLoop initialFile dir sock port = do
|
||||
-- putStrLn $ " Note: I'm using the Unison runtime at " ++ show address
|
||||
(_input, output) <- N.socketToStreams socket
|
||||
d <- watchDirectory dir (".u" `isSuffixOf`)
|
||||
n <- newIORef (0 :: Int)
|
||||
let nonces = "🌻🌸🌵🌺🌴"
|
||||
nonceStart <- randomRIO (0, length nonces - 1)
|
||||
n <- newIORef (nonceStart :: Int)
|
||||
let go sourceFile source0 = do
|
||||
let source = Text.unpack source0
|
||||
Console.clearScreen
|
||||
@ -100,7 +103,7 @@ serverLoop initialFile dir sock port = do
|
||||
marker <- do
|
||||
n0 <- readIORef n
|
||||
writeIORef n (n0 + 1)
|
||||
pure ["🌻🌸🌵🌺🌴" !! (n0 `mod` 5)]
|
||||
pure [nonces !! (n0 `mod` length nonces)]
|
||||
-- pure ["🕐🕑🕒🕓🕔🕕🕖🕗🕘🕙🕚🕛" !! (n0 `mod` 12)]
|
||||
Console.setTitle "Unison"
|
||||
putStrLn ""
|
||||
|
Loading…
Reference in New Issue
Block a user