21 lines
665 B
Haskell
21 lines
665 B
Haskell
|
{-# OPTIONS_GHC -Wall #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Socket (watchFile) where
|
||
|
|
|
||
|
|
import Control.Concurrent (forkIO, threadDelay)
|
||
|
|
import Control.Exception (SomeException, catch)
|
||
|
|
import qualified Data.ByteString.Char8 as BS
|
||
|
|
import qualified Network.WebSockets as WS
|
||
|
|
import qualified System.FSNotify.Devel as Notify
|
||
|
|
import qualified System.FSNotify as Notify
|
||
|
|
|
||
|
|
|
||
|
|
watchFile :: FilePath -> WS.PendingConnection -> IO ()
|
||
|
|
watchFile watchedFile pendingConnection =
|
||
|
|
do connection <- WS.acceptRequest pendingConnection
|
||
|
|
|
||
|
|
Notify.withManager $ \mgmt ->
|
||
|
|
do stop <- Notify.treeExtAny mgmt "." ".elm" print
|
||
|
|
tend connection
|
||
|
|
stop
|