Halive.FileListener

Documentation

type FileEventChan = TChan Event

data ShouldReadFile

Constructors

ReadFileOnEvents

JustReportEvents

Instances

Eq ShouldReadFile

Methods

(==) :: ShouldReadFile -> ShouldReadFile -> Bool

(/=) :: ShouldReadFile -> ShouldReadFile -> Bool

Show ShouldReadFile

Methods

showsPrec :: Int -> ShouldReadFile -> ShowS

show :: ShouldReadFile -> String

showList :: [ShouldReadFile] -> ShowS

data FileEventListener

Constructors

FileEventListener

Fields

• felEventTChan :: TChan (Either Event String)
• felIgnoreNextEventsNear :: TVar (Maybe UTCTime)
• felStopMVar :: MVar ()

atomicallyIO :: MonadIO m => STM a -> m a

readTChanIO :: MonadIO m => TChan a -> m a

writeTChanIO :: MonadIO m => TChan a -> a -> m ()

tryReadTChanIO :: MonadIO m => TChan a -> m (Maybe a)

fileModifiedPredicate :: FilePath -> Event -> Bool

eventListenerForFile :: MonadIO m => FilePath -> ShouldReadFile -> m FileEventListener

eventListenerForDirectory :: MonadIO m => FilePath -> [String] -> m FileEventListener

killFileEventListener :: MonadIO m => FileEventListener -> m ()

modifiedWithExtensionPredicate :: [String] -> Event -> Bool

forkDirectoryListenerThread :: FilePath -> [String] -> TChan (Either Event String) -> IO (MVar ())

forkFileListenerThread :: FilePath -> ShouldReadFile -> TChan (Either Event String) -> TVar (Maybe UTCTime) -> IO (MVar ())

setIgnoreTimeNow :: MonadIO m => FileEventListener -> m ()

setIgnoreTime :: MonadIO m => FileEventListener -> UTCTime -> m ()

readFileEvent :: MonadIO m => FileEventListener -> m (Either Event String)

onFileEvent :: MonadIO m => FileEventListener -> m () -> m ()

onTChanRead :: MonadIO m => TChan a -> m () -> m ()

makeWatchedResource :: FilePath -> IO a -> IO (IO a)

Creates a getter for a set of resources that will be rebuilt whenever the file changes. Takes a filename and an action to create a resource based on that file. getWatchedResource <- makeWatchedResource "resources/shapes.frag" $ do shader <- createShaderProgram "resourcesshapes.vert" "resourcesshapes.frag" useProgram shader

uTime <- getShaderUniform shader "uTime"

(quadVAO, quadVertCount) <- makeScreenSpaceQuad shader return (quadVAO, quadVertCount, uTime) Then use (quadVAO, quadVertCount, uResolution, uMouse, uTime) <- getWatchedResource in main loop