Support for Elm and Haskell dependencies
This commit is contained in:
parent
882dc7e4b2
commit
f38b026e6a
5 changed files with 169 additions and 0 deletions
20
tests/samples/codefiles/haskell.hs
Normal file
20
tests/samples/codefiles/haskell.hs
Normal file
|
@ -0,0 +1,20 @@
|
|||
{-# 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
|
Loading…
Add table
Add a link
Reference in a new issue