From a00da57346c195b1b15d1c6aca2891483901aae6 Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 21 Jan 2019 19:44:39 +0100 Subject: src: Types -> Internal --- src/Reaktor/Plugins/Mention.hs | 2 +- src/Reaktor/Plugins/NickServ.hs | 2 +- src/Reaktor/Plugins/Ping.hs | 2 +- src/Reaktor/Plugins/Register.hs | 2 +- src/Reaktor/Plugins/System.hs | 4 +- src/Reaktor/Plugins/System/Internal.hs | 75 ++++++++++++++++++++++++++++++++++ src/Reaktor/Plugins/System/Types.hs | 75 ---------------------------------- 7 files changed, 81 insertions(+), 81 deletions(-) create mode 100644 src/Reaktor/Plugins/System/Internal.hs delete mode 100644 src/Reaktor/Plugins/System/Types.hs (limited to 'src/Reaktor/Plugins') diff --git a/src/Reaktor/Plugins/Mention.hs b/src/Reaktor/Plugins/Mention.hs index a08604c..75de87c 100644 --- a/src/Reaktor/Plugins/Mention.hs +++ b/src/Reaktor/Plugins/Mention.hs @@ -6,8 +6,8 @@ import Control.Monad (when) import Data.Aeson import qualified Data.ByteString.Char8.Extended as BS import qualified Data.Char +import Reaktor.Internal import Reaktor.Message -import Reaktor.Types plugin :: Value -> IO Plugin diff --git a/src/Reaktor/Plugins/NickServ.hs b/src/Reaktor/Plugins/NickServ.hs index caa2301..36b8917 100644 --- a/src/Reaktor/Plugins/NickServ.hs +++ b/src/Reaktor/Plugins/NickServ.hs @@ -9,8 +9,8 @@ import Data.Aeson import Data.Aeson.Types (parseEither) import qualified Data.ByteString.Char8.Extended as BS import GHC.Generics +import Reaktor.Internal import Reaktor.Message -import Reaktor.Types import Reaktor.Utils (randomNick) diff --git a/src/Reaktor/Plugins/Ping.hs b/src/Reaktor/Plugins/Ping.hs index 83b3ac4..de3fe53 100644 --- a/src/Reaktor/Plugins/Ping.hs +++ b/src/Reaktor/Plugins/Ping.hs @@ -3,7 +3,7 @@ module Reaktor.Plugins.Ping (plugin) where import Control.Monad (when) import Data.Aeson (Value(Null)) -import Reaktor.Types +import Reaktor.Internal plugin :: Value -> IO Plugin diff --git a/src/Reaktor/Plugins/Register.hs b/src/Reaktor/Plugins/Register.hs index 48c3ff2..5e987a7 100644 --- a/src/Reaktor/Plugins/Register.hs +++ b/src/Reaktor/Plugins/Register.hs @@ -8,7 +8,7 @@ import Control.Monad (when) import Data.Aeson import qualified Data.ByteString.Char8.Extended as BS import GHC.Generics -import Reaktor.Types +import Reaktor.Internal import Reaktor.Utils (nextNick,randomNick) diff --git a/src/Reaktor/Plugins/System.hs b/src/Reaktor/Plugins/System.hs index 4e659d1..781409b 100644 --- a/src/Reaktor/Plugins/System.hs +++ b/src/Reaktor/Plugins/System.hs @@ -12,8 +12,8 @@ import Data.Aeson import qualified Data.ByteString.Char8.Extended as BS import qualified Data.Map as M import Reaktor.Message -import Reaktor.Plugins.System.Types -import Reaktor.Types +import Reaktor.Internal +import Reaktor.Plugins.System.Internal import System.Environment (getEnvironment) import System.FilePath.Posix (takeBaseName) import System.IO (Handle,hClose,hPutStr,hIsEOF) diff --git a/src/Reaktor/Plugins/System/Internal.hs b/src/Reaktor/Plugins/System/Internal.hs new file mode 100644 index 0000000..4a64e0b --- /dev/null +++ b/src/Reaktor/Plugins/System/Internal.hs @@ -0,0 +1,75 @@ +{-# LANGUAGE OverloadedStrings #-} +module Reaktor.Plugins.System.Internal where + +import Data.Aeson +import qualified Data.ByteString.Char8.Extended as BS +import qualified Data.Map as M +import Reaktor.Internal () + + +-- TODO this needs better names :) +data CaptureOr a = Capture Integer | CaptureOr a + deriving Show -- TODO killme + +instance FromJSON a => FromJSON (CaptureOr a) where + parseJSON o@(Number _) = Capture <$> parseJSON o -- TODO don't parse twice + parseJSON o = CaptureOr <$> parseJSON o + +-- TODO query means via direct privmsg and : +data Activate = Always | Match | Query + +instance FromJSON Activate where + parseJSON (String "always") = pure Always + parseJSON (String "match") = pure Match + parseJSON (String "query") = pure Query + parseJSON _ = undefined + +data SystemConfig = SystemConfig { + defaultWorkDir :: Maybe FilePath, + -- TODO IrcCommand as key for map + hooks :: M.Map BS.ByteString [SystemParams] +} + +instance FromJSON SystemConfig where + parseJSON (Object v) = + SystemConfig + <$> v .:? "workdir" + <*> v .:? "hooks" .!= M.empty + parseJSON _ = pure undefined + +data SystemParams = SystemParams { + activate :: Activate, + pattern :: Maybe BS.ByteString, -- TODO RE + command :: CaptureOr SystemCommand, + arguments :: [CaptureOr BS.ByteString], + workDir :: Maybe FilePath, + commands :: M.Map BS.ByteString SystemCommand +} + +instance FromJSON SystemParams where + parseJSON (Object v) = + SystemParams + <$> v .:? "activate" .!= Query + <*> v .:? "pattern" + <*> v .: "command" + <*> v .:? "arguments" .!= [] + <*> v .:? "workdir" + <*> v .:? "commands" .!= M.empty + parseJSON _ = pure undefined + + +data SystemCommand = SystemCommand { + commandPath :: FilePath, + commandWorkDir :: Maybe FilePath, + commandEnv :: Maybe (M.Map String String) + } + deriving Show -- TODO killme + +instance FromJSON SystemCommand where + parseJSON (Object v) = + SystemCommand + <$> v .: "filename" + <*> v .:? "workdir" + <*> v .:? "env" + parseJSON _ = pure undefined + diff --git a/src/Reaktor/Plugins/System/Types.hs b/src/Reaktor/Plugins/System/Types.hs deleted file mode 100644 index 39d2f75..0000000 --- a/src/Reaktor/Plugins/System/Types.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Reaktor.Plugins.System.Types where - -import Data.Aeson -import qualified Data.ByteString.Char8.Extended as BS -import qualified Data.Map as M -import Reaktor.Types () - - --- TODO this needs better names :) -data CaptureOr a = Capture Integer | CaptureOr a - deriving Show -- TODO killme - -instance FromJSON a => FromJSON (CaptureOr a) where - parseJSON o@(Number _) = Capture <$> parseJSON o -- TODO don't parse twice - parseJSON o = CaptureOr <$> parseJSON o - --- TODO query means via direct privmsg and : -data Activate = Always | Match | Query - -instance FromJSON Activate where - parseJSON (String "always") = pure Always - parseJSON (String "match") = pure Match - parseJSON (String "query") = pure Query - parseJSON _ = undefined - -data SystemConfig = SystemConfig { - defaultWorkDir :: Maybe FilePath, - -- TODO IrcCommand as key for map - hooks :: M.Map BS.ByteString [SystemParams] -} - -instance FromJSON SystemConfig where - parseJSON (Object v) = - SystemConfig - <$> v .:? "workdir" - <*> v .:? "hooks" .!= M.empty - parseJSON _ = pure undefined - -data SystemParams = SystemParams { - activate :: Activate, - pattern :: Maybe BS.ByteString, -- TODO RE - command :: CaptureOr SystemCommand, - arguments :: [CaptureOr BS.ByteString], - workDir :: Maybe FilePath, - commands :: M.Map BS.ByteString SystemCommand -} - -instance FromJSON SystemParams where - parseJSON (Object v) = - SystemParams - <$> v .:? "activate" .!= Query - <*> v .:? "pattern" - <*> v .: "command" - <*> v .:? "arguments" .!= [] - <*> v .:? "workdir" - <*> v .:? "commands" .!= M.empty - parseJSON _ = pure undefined - - -data SystemCommand = SystemCommand { - commandPath :: FilePath, - commandWorkDir :: Maybe FilePath, - commandEnv :: Maybe (M.Map String String) - } - deriving Show -- TODO killme - -instance FromJSON SystemCommand where - parseJSON (Object v) = - SystemCommand - <$> v .: "filename" - <*> v .:? "workdir" - <*> v .:? "env" - parseJSON _ = pure undefined - -- cgit v1.2.3