Reaktor.Plugins.System: add optional timeout

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Reaktor/Plugins/System/Internal.hs b/src/Reaktor/Plugins/System/Internal.hs
index 9b1b8de..45b7329 100644
--- a/src/Reaktor/Plugins/System/Internal.hs
+++ b/src/Reaktor/Plugins/System/Internal.hs
@@ -51,6 +51,7 @@ data Hook = Hook
     , hArguments :: [CaptureOr Text]
     , hWorkDir :: Maybe FilePath
     , hCommands :: HashMap Text Command
+    , hTimeout :: Maybe Int
     }
   deriving Show
 
@@ -64,6 +65,7 @@ instance FromJSON Hook where
           <*> v .:? "arguments" .!= []
           <*> v .:? "workdir"
           <*> v .:? "commands" .!= mempty
+          <*> (fmap (*1000000) <$> v .:? "timeoutSec" .!= Just 10)
       _ -> undefined