{"header":{"message":"switching servers function","description":null,"timestamp":"2025-11-12T09:47:44.543831225Z","authors":[{}]},"hash":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC","authors":[{"key":"EbwjwgbHP64g5DPwCqcF1oKFEikinCPQ2vNWwmnsaYkz"}],"deps":{"hashes":[["QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC","switching servers function"],["AA",null],["66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC","change to wait for 5 seconds before and loop every 5"],["R62UQY34MWC67MS52BDUNUZKNZM4IVOYAWZND6O37GVR472JMYTQC","fix not clearing the iptables on stop"],["OXU4CGLDG44NLRFO5HDX23JSOKIMQ6OXEPWUNWCZZ4YWX3THOS5AC","Forgot to track extra files"],["CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC","gracefully exit"],["WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC","Initial commit"],["J4YFZJCF4Q57B3EERJRZJM37QU2LADHAPOYSC7ZFRRUY65PI6LRAC","Error handling improved"],["7ZJW2CM7Y6YAUHUE37SPYI4JP2GFYBXJRKQE544NGTFQNPEX5ZXQC","ExitSuccess from fork does not work the way I thought"],["4LMXOSYC2Y6PRPOEPK5NSMAQXG2W4M5CFKQWXFMUNUNBO6L6FMWAC","refactor to have on function handling stopping and starting in preparation of fakeTCP functionality"],["D44XFSLPFX5F2L4J5XATIHWGAF6SYJQ4CBSW34YU7MN332V3CNPQC","set the icmp iptables flag on start"],["QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC","Handle UDP and FakeTCP"],["NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC","clear the ICMP rule"],["N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC","Write to a file that udp2raw watches so that I grab the server IP exactly once and make udp2raw restart when the watched file changes"],["Y7LXAWJMKAU75ESS6E4OQFVW5XMJE7UIIEPX5OKGS6Y53RTNBS4AC",""]],"deps":["66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC","R62UQY34MWC67MS52BDUNUZKNZM4IVOYAWZND6O37GVR472JMYTQC","OXU4CGLDG44NLRFO5HDX23JSOKIMQ6OXEPWUNWCZZ4YWX3THOS5AC","CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC"],"known":["WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC","J4YFZJCF4Q57B3EERJRZJM37QU2LADHAPOYSC7ZFRRUY65PI6LRAC","NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC","D44XFSLPFX5F2L4J5XATIHWGAF6SYJQ4CBSW34YU7MN332V3CNPQC","4LMXOSYC2Y6PRPOEPK5NSMAQXG2W4M5CFKQWXFMUNUNBO6L6FMWAC","N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC","7ZJW2CM7Y6YAUHUE37SPYI4JP2GFYBXJRKQE544NGTFQNPEX5ZXQC","QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC"]},"hunks":[{"Edit":{"inode":{"change":6,"pos":7074},"path":"src/Ip.hs","line":16,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":7433},"to":{"change":2,"start":0,"end":135},"introduced_by":2}],"inode":{"change":6,"pos":7074}}},"contents":[{"Del":{"text":" let seconds = 5","pos":"66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC:17"}},{"Del":{"text":" hPutStrLn stderr $ \"Waiting for \" ++ show seconds ++ \" seconds for \" ++ domain","pos":"66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC:99"}},{"Del":{"text":" threadDelay (seconds * 1000000)","pos":"66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC:133"}},{"Del":{"text":"","pos":"66RIHWIV3IQ7EX7JQBR4GBXBV5VS53LFUXG4GVQFYWEAFTYTEDWAC:134"}}]}},{"Edit":{"inode":{"change":6,"pos":7074},"path":"src/Ip.hs","line":19,"atom":{"NewVertex":{"up_context":[{"change":6,"pos":7505}],"down_context":[{"change":6,"pos":7601}],"flag":"BLOCK","start":0,"end":146,"inode":{"change":6,"pos":7074}}},"contents":[{"Add":{"text":" let seconds = 5","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:21"}},{"Add":{"text":" hPutStrLn stderr $ \"Waiting for \" ++ show seconds ++ \" seconds for \" ++ domain","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:107"}},{"Add":{"text":" threadDelay (seconds * 1000000)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:145"}}]}},{"FileAdd":{"meta":{"basename":"Env.hs","metadata":0},"context":[{"change":6,"pos":2831}],"contents":[{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:213"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:214"}},{"Add":{"text":"module Env","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:225"}},{"Add":{"text":" ( Env(..)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:237"}},{"Add":{"text":" , loadEnv","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:249"}},{"Add":{"text":" ) where","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:259"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:260"}},{"Add":{"text":"import System.IO","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:277"}},{"Add":{"text":"import Control.Exception (catch, IOException)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:323"}},{"Add":{"text":"import Data.List (isPrefixOf)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:353"}},{"Add":{"text":"import Data.Maybe (fromMaybe)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:383"}},{"Add":{"text":"import Data.Char (toUpper)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:410"}},{"Add":{"text":"import Text.Read (readMaybe)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:439"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:440"}},{"Add":{"text":"import Udp2Raw (RawMode(..)) -- Import the RawMode type (ICMP, UDP, FakeTCP)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:518"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:519"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:599"}},{"Add":{"text":"-- | Environment configuration","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:630"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:710"}},{"Add":{"text":"data Env = Env","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:725"}},{"Add":{"text":" { ip :: String","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:747"}},{"Add":{"text":" , rawMode :: RawMode","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:770"}},{"Add":{"text":" } deriving (Show, Eq)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:794"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:795"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:875"}},{"Add":{"text":"-- | Load and parse the .env file","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:909"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:989"}},{"Add":{"text":"loadEnv :: FilePath -> IO (Either String Env)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1035"}},{"Add":{"text":"loadEnv path = catch (do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1060"}},{"Add":{"text":" content <- readFile path","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1089"}},{"Add":{"text":" let kvs = parseEnv content","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1120"}},{"Add":{"text":" mIP = lookup \"SERVER_IP\" kvs","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1157"}},{"Add":{"text":" mMode = lookup \"RAW_MODE\" kvs","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1195"}},{"Add":{"text":" mPort = lookup \"PORT\" kvs","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1229"}},{"Add":{"text":" case (mIP, mMode) of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1254"}},{"Add":{"text":" (Just ipStr, Just modeStr) ->","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1290"}},{"Add":{"text":" case parseRawMode modeStr mPort of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1333"}},{"Add":{"text":" Just raw -> pure $ Right $ Env ipStr raw","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1384"}},{"Add":{"text":" Nothing -> pure $ Left $ \"Invalid RAW_MODE or missing PORT for mode: \" ++ modeStr","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1477"}},{"Add":{"text":" _ -> pure $ Left \"Missing SERVER_IP or RAW_MODE in .env\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1540"}},{"Add":{"text":" ) handleReadError","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1560"}},{"Add":{"text":" where","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1568"}},{"Add":{"text":" handleReadError :: IOException -> IO (Either String Env)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1629"}},{"Add":{"text":" handleReadError e = pure $ Left $ \"Error reading .env: \" ++ show e","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1700"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1701"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1781"}},{"Add":{"text":"-- | Parse RAW_MODE + optional PORT into RawMode","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1830"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1910"}},{"Add":{"text":"parseRawMode :: String -> Maybe String -> Maybe RawMode","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1966"}},{"Add":{"text":"parseRawMode modeStr mPort =","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:1995"}},{"Add":{"text":" let mode = map toUpper modeStr","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2028"}},{"Add":{"text":" port = mPort >>= readMaybe","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2061"}},{"Add":{"text":" in case mode of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2079"}},{"Add":{"text":" \"ICMP\" -> Just ICMP","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2109"}},{"Add":{"text":" \"UDP\" -> UDP <$> port -- mandatory port","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2168"}},{"Add":{"text":" \"FAKETCP\" -> FakeTCP <$> port -- mandatory port","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2227"}},{"Add":{"text":" \"TCP\" -> FakeTCP <$> port -- alias for FakeTCP","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2289"}},{"Add":{"text":" _ -> Nothing","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2317"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2318"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2398"}},{"Add":{"text":"-- | Parse .env content into key-value pairs","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2443"}},{"Add":{"text":"-------------------------------------------------------------------------------","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2523"}},{"Add":{"text":"parseEnv :: String -> [(String, String)]","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2564"}},{"Add":{"text":"parseEnv = mapMaybe parseLine . lines","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2602"}},{"Add":{"text":" where","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2610"}},{"Add":{"text":" parseLine line =","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2631"}},{"Add":{"text":" case break (== '=') (trim line) of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2672"}},{"Add":{"text":" (key, '=':value)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2697"}},{"Add":{"text":" | not (null key) && not (isComment key) ->","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2750"}},{"Add":{"text":" Just (trim key, trim value)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2792"}},{"Add":{"text":" _ -> Nothing","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2813"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2814"}},{"Add":{"text":" isComment ('#':_) = True","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2843"}},{"Add":{"text":" isComment _ = False","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2873"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2874"}},{"Add":{"text":" trim = f . f","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2891"}},{"Add":{"text":" where f = reverse . dropWhile (`elem` [' ', '\\t', '\\r'])","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2954"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2955"}},{"Add":{"text":"-- | Helper: mapMaybe for base < 4.8","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:2992"}},{"Add":{"text":"mapMaybe :: (a -> Maybe b) -> [a] -> [b]","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3033"}},{"Add":{"text":"mapMaybe f = foldr (\\x acc -> case f x of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3075"}},{"Add":{"text":" Just y -> y:acc","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3123"}},{"Add":{"text":" Nothing -> acc) []","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3173"}}]}},{"FileAdd":{"meta":{"basename":"ConfigParserUtils.hs","metadata":0},"context":[{"change":6,"pos":2831}],"contents":[{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3255"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3256"}},{"Add":{"text":"module ConfigParserUtils (getYamlConfigEntry) where","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3308"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3309"}},{"Add":{"text":"import ConfigParser (ConfigEntry, parseConfigFile)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3360"}},{"Add":{"text":"import Data.List (find)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3384"}},{"Add":{"text":"import Data.Maybe (listToMaybe)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3416"}},{"Add":{"text":"import ConfigParser (ConfigEntry, parseConfigFile, name) -- add `name`","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3488"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3489"}},{"Add":{"text":"import qualified Data.Text as T","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3521"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3522"}},{"Add":{"text":"-- | Parse YAML file and return either:","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3562"}},{"Add":{"text":"-- * The entry matching the given name, or","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3607"}},{"Add":{"text":"-- * The first entry if no name is provided","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3653"}},{"Add":{"text":"getYamlConfigEntry :: FilePath -- ^ YAML config file path","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3720"}},{"Add":{"text":" -> Maybe String -- ^ Optional name","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3779"}},{"Add":{"text":" -> IO (Either String ConfigEntry)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3832"}},{"Add":{"text":"getYamlConfigEntry file mName = do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3867"}},{"Add":{"text":" parseResult <- parseConfigFile file","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3905"}},{"Add":{"text":" case parseResult of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3927"}},{"Add":{"text":" Left err -> pure $ Left err","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3959"}},{"Add":{"text":" Right cfg -> case mName of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:3990"}},{"Add":{"text":" Just cfgNameStr -> case find (\\e -> T.unpack (name e) == cfgNameStr) cfg of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4072"}},{"Add":{"text":" Just entry -> pure $ Right entry","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4126"}},{"Add":{"text":" Nothing -> pure $ Left $ \"No config entry named: \" ++ cfgNameStr","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4212"}},{"Add":{"text":" Nothing -> case listToMaybe cfg of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4253"}},{"Add":{"text":" Just entry -> pure $ Right entry","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4305"}},{"Add":{"text":" Nothing -> pure $ Left \"YAML config is empty\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4370"}}]}},{"FileAdd":{"meta":{"basename":"scripts","metadata":576},"context":[{"change":15,"pos":1}],"contents":[]}},{"FileAdd":{"meta":{"basename":"control.sh","metadata":64},"context":[{"change":0,"pos":4391}],"contents":[{"Add":{"text":"#!/bin/sh","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4438"}},{"Add":{"text":"SOCK=/run/tproxy/socket","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4462"}},{"Add":{"text":"if [[ ! -S $SOCK ]]; then","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4488"}},{"Add":{"text":" echo \"tproxy service not running\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4524"}},{"Add":{"text":" exit 1","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4533"}},{"Add":{"text":"fi","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4536"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4537"}},{"Add":{"text":"if [[ $# -lt 1 ]]; then","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4561"}},{"Add":{"text":" echo \"usage: $0 {start|stop|status|exit} [name]\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4612"}},{"Add":{"text":" exit 1","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4621"}},{"Add":{"text":"fi","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4624"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4625"}},{"Add":{"text":"# Send all arguments joined by spaces","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4663"}},{"Add":{"text":"echo \"$*\" | nc -U \"$SOCK\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4689"}}]}},{"Edit":{"inode":{"change":6,"pos":10426},"path":"proxy.cabal","line":22,"atom":{"NewVertex":{"up_context":[{"change":6,"pos":14}],"down_context":[{"change":6,"pos":10843}],"flag":"BLOCK","start":4691,"end":4725,"inode":{"change":6,"pos":10426}}},"contents":[{"Add":{"text":" Env","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4700"}},{"Add":{"text":" ConfigParserUtils","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4724"}}]}},{"Edit":{"inode":{"change":6,"pos":11607},"path":"package.yaml","line":34,"atom":{"NewVertex":{"up_context":[{"change":6,"pos":27}],"down_context":[{"change":6,"pos":12411}],"flag":"BLOCK","start":4726,"end":4756,"inode":{"change":6,"pos":11607}}},"contents":[{"Add":{"text":" - Env","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4733"}},{"Add":{"text":" - ConfigParserUtils","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4755"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":3,"ins":{"up_context":[{"change":6,"pos":13014}],"down_context":[{"change":6,"pos":13076}],"flag":"BLOCK","start":4757,"end":4834,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13014},"to":{"change":6,"start":13014,"end":13076},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"import ConfigParser","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4776"}},{"Add":{"text":"import ConfigParserUtils (getYamlConfigEntry)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4822"}},{"Add":{"text":"import Env","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4833"}}],"del_contents":[{"Del":{"text":"import ConfigParser -- Import the module we just created","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13075"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":10,"ins":{"up_context":[{"change":6,"pos":13122}],"down_context":[{"change":6,"pos":13210}],"flag":"BLOCK","start":4835,"end":4986,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13122},"to":{"change":5,"start":0,"end":178},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"import Control.Concurrent","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4860"}},{"Add":{"text":" ( forkIO, MVar, newEmptyMVar, putMVar, takeMVar, killThread, isEmptyMVar )","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4939"}},{"Add":{"text":"import Control.Exception (catch, IOException)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:4985"}}],"del_contents":[{"Del":{"text":"import Control.Concurrent (forkIO, MVar, newEmptyMVar, putMVar, takeMVar, killThread, forkFinally, isEmptyMVar)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:111"}},{"Del":{"text":"import Control.Exception (catch, try, SomeException, IOException)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:177"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":14,"ins":{"up_context":[{"change":6,"pos":13246}],"down_context":[{"change":6,"pos":13484}],"flag":"BLOCK","start":4987,"end":5147,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13246},"to":{"change":6,"start":13246,"end":13438},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13438},"to":{"change":5,"start":179,"end":237},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"import System.IO","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5003"}},{"Add":{"text":" ( hPutStrLn, stderr, hSetBuffering, BufferMode(LineBuffering, NoBuffering)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5082"}},{"Add":{"text":" , hGetLine, hClose, stdout, IOMode(ReadWriteMode), Handle )","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5146"}}],"del_contents":[{"Del":{"text":"import System.Exit (exitFailure)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13278"}},{"Del":{"text":"import System.IO (hPutStrLn, stderr, IOMode( ReadWriteMode ), hSetBuffering, BufferMode( LineBuffering ), hGetLine, hClose, stdout, BufferMode( NoBuffering ))","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13437"}},{"Del":{"text":"import Control.Monad (forM_, unless, forever, void, when)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:236"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":19,"ins":{"up_context":[{"change":5,"pos":266}],"down_context":[{"change":6,"pos":13525}],"flag":"BLOCK","start":5148,"end":5252,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":266},"to":{"change":6,"start":44,"end":74},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13524},"to":{"change":6,"start":44,"end":74},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":74},"to":{"change":5,"start":267,"end":312},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"import System.Directory (removeFile)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5184"}},{"Add":{"text":"import Data.Maybe (fromMaybe, listToMaybe)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5227"}},{"Add":{"text":"import Data.List (find)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5251"}}],"del_contents":[{"Del":{"text":"import Data.Maybe (fromMaybe)","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:73"}},{"Del":{"text":"import System.IO.Error (isDoesNotExistError)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:311"}}]}},{"Edit":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":24,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13558},"to":{"change":6,"start":13558,"end":13629},"introduced_by":6}],"inode":{"change":6,"pos":12987}}},"contents":[{"Del":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13558"}},{"Del":{"text":"import System.Exit (exitSuccess)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13591"}},{"Del":{"text":"import System.Directory (removeFile)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13628"}}]}},{"Edit":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":28,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13688},"to":{"change":6,"start":13688,"end":13689},"introduced_by":6}],"inode":{"change":6,"pos":12987}}},"contents":[{"Del":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13688"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":30,"ins":{"up_context":[{"change":6,"pos":13713}],"down_context":[{"change":5,"pos":313}],"flag":"BLOCK","start":5253,"end":5290,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13830},"to":{"change":6,"start":13830,"end":13865},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" hSetBuffering stdout NoBuffering","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5289"}}],"del_contents":[{"Del":{"text":" hSetBuffering stdout NoBuffering","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13864"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":32,"ins":{"up_context":[{"change":5,"pos":314}],"down_context":[{"change":5,"pos":390}],"flag":"BLOCK","start":5291,"end":5385,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":314},"to":{"change":5,"start":314,"end":390},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" stopFlag <- newEmptyMVar","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5319"}},{"Add":{"text":" installHandler sigTERM (Catch $ putMVar stopFlag ()) Nothing","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5384"}}],"del_contents":[{"Del":{"text":" stopFlag <- newEmptyMVar -- Create a flag that the signal handler can set","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:389"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":35,"ins":{"up_context":[{"change":5,"pos":391}],"down_context":[{"change":6,"pos":14029}],"flag":"BLOCK","start":5386,"end":5523,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":391},"to":{"change":5,"start":391,"end":530},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":530},"to":{"change":6,"start":13865,"end":14029},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":13865},"to":{"change":6,"start":13865,"end":14029},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" args <- getArgs","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5405"}},{"Add":{"text":" let configFile = case args of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5439"}},{"Add":{"text":" (f:_) -> f","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5474"}},{"Add":{"text":" [] -> \"servers.yaml\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5522"}}],"del_contents":[{"Del":{"text":" -- Install signal handlers for SIGTERM (systemd stop) and SIGINT (Ctrl+C)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:466"}},{"Del":{"text":" installHandler sigTERM (Catch $ putMVar stopFlag ()) Nothing","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:529"}},{"Del":{"text":" -- 1. Get the configuration file path","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13904"}},{"Del":{"text":" args <- getArgs","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13922"}},{"Del":{"text":" let configFile = case args of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13954"}},{"Del":{"text":" (f:_) -> f","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13986"}},{"Del":{"text":" [] -> \"servers.yaml\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14028"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":40,"ins":{"up_context":[{"change":6,"pos":14030}],"down_context":[{"change":6,"pos":14151}],"flag":"BLOCK","start":5524,"end":6408,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14030},"to":{"change":6,"start":14030,"end":14151},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" -- Try to load .env first","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5553"}},{"Add":{"text":" eEnv <- Env.loadEnv \"/run/udp2raw/.env\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5597"}},{"Add":{"text":" case eEnv of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5614"}},{"Add":{"text":" Right envVal -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5641"}},{"Add":{"text":" putStrLn $ \"Loaded environment: \" ++ show envVal","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5702"}},{"Add":{"text":" start (Env.ip envVal) (Env.rawMode envVal)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5757"}},{"Add":{"text":" Left _ -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5778"}},{"Add":{"text":" -- Fallback to YAML","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5810"}},{"Add":{"text":" yamlCfg <- parseConfigFile configFile","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5860"}},{"Add":{"text":" case yamlCfg of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5888"}},{"Add":{"text":" Right (entry:_) -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:5926"}},{"Add":{"text":" ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6018"}},{"Add":{"text":" let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6109"}},{"Add":{"text":" writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) raw","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6220"}},{"Add":{"text":" start ip raw","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6253"}},{"Add":{"text":" Right [] -> putStrLn \"YAML configuration is empty\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6320"}},{"Add":{"text":" Left err -> hPutStrLn stderr $ \"Failed to load .env and YAML: \" ++ err","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6407"}}],"del_contents":[{"Del":{"text":" -- 2. Call the exported function from the ConfigParser module","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14093"}},{"Del":{"text":" parseResult <- ConfigParser.parseConfigFile configFile","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14150"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":58,"ins":{"up_context":[{"change":6,"pos":14152}],"down_context":[{"change":6,"pos":14325}],"flag":"BLOCK","start":6409,"end":6633,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14152},"to":{"change":6,"start":14152,"end":14307},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" -- Clean up stale socket","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6437"}},{"Add":{"text":" catch (removeFile socketPath) (\\(_ :: IOException) -> pure ())","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6504"}},{"Add":{"text":" sock <- socket AF_UNIX Stream 0","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6540"}},{"Add":{"text":" bind sock (SockAddrUnix socketPath)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6580"}},{"Add":{"text":" setFileMode socketPath 0o775","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6613"}},{"Add":{"text":" listen sock 10","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6632"}}],"del_contents":[{"Del":{"text":" case parseResult of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14173"}},{"Del":{"text":" -- Handle failure (The Left String contains the formatted error)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14242"}},{"Del":{"text":" Left errorMessage -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14270"}},{"Del":{"text":" hPutStrLn stderr errorMessage","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14306"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":65,"ins":{"up_context":[{"change":6,"pos":14326}],"down_context":[{"change":6,"pos":14448}],"flag":"BLOCK","start":6634,"end":6684,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14326},"to":{"change":6,"start":14326,"end":14448},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" let envVal = either (const Nothing) Just eEnv","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6683"}}],"del_contents":[{"Del":{"text":" -- Handle success","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14347"}},{"Del":{"text":" Right cfg -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14367"}},{"Del":{"text":" putStrLn $ \"Successfully loaded configuration from \" ++ configFile ++ \":\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14447"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":67,"ins":{"up_context":[{"change":6,"pos":14449}],"down_context":[{"change":6,"pos":144}],"flag":"BLOCK","start":6685,"end":6757,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14449},"to":{"change":6,"start":14449,"end":14539},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14539},"to":{"change":6,"start":0,"end":59},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":59},"to":{"change":6,"start":14597,"end":14679},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14597},"to":{"change":6,"start":14597,"end":14679},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14679},"to":{"change":6,"start":619,"end":700},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":700},"to":{"change":4,"start":1555,"end":1738},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1738},"to":{"change":6,"start":701,"end":724},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":227},"to":{"change":6,"start":701,"end":724},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" acceptThread <- forkIO $ acceptLoop sock stopFlag configFile envVal","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6756"}}],"del_contents":[{"Del":{"text":" -- Accessing the first entry's nameserver","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14496"}},{"Del":{"text":" case cfg of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14514"}},{"Del":{"text":" (entry:_) -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14538"}},{"Del":{"text":" putStrLn $ \"The server is \" ++ show (name entry)","pos":"7ZJW2CM7Y6YAUHUE37SPYI4JP2GFYBXJRKQE544NGTFQNPEX5ZXQC:58"}},{"Del":{"text":" ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14678"}},{"Del":{"text":" let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:699"}},{"Del":{"text":" let udp2raw_pwd = T.unpack $ udp2raw_password entry","pos":"OXU4CGLDG44NLRFO5HDX23JSOKIMQ6OXEPWUNWCZZ4YWX3THOS5AC:1616"}},{"Del":{"text":" let udpspeeder_pwd = T.unpack $ udpspeeder_password entry","pos":"OXU4CGLDG44NLRFO5HDX23JSOKIMQ6OXEPWUNWCZZ4YWX3THOS5AC:1684"}},{"Del":{"text":" writeEnv ip udp2raw_pwd udpspeeder_pwd raw","pos":"OXU4CGLDG44NLRFO5HDX23JSOKIMQ6OXEPWUNWCZZ4YWX3THOS5AC:1737"}},{"Del":{"text":" start ip raw","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:723"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":69,"ins":{"up_context":[{"change":6,"pos":145}],"down_context":[{"change":5,"pos":730}],"flag":"BLOCK","start":6758,"end":7073,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":145},"to":{"change":5,"start":531,"end":730},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" -- Wait for SIGTERM","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6781"}},{"Add":{"text":" takeMVar stopFlag","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6803"}},{"Add":{"text":" putStrLn \"Received SIGTERM, shutting down gracefully...\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6864"}},{"Add":{"text":" killThread acceptThread","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6892"}},{"Add":{"text":" close sock","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6907"}},{"Add":{"text":" removeFile socketPath","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6933"}},{"Add":{"text":" -- Stop proxy on shutdown","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6963"}},{"Add":{"text":" case eEnv of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:6980"}},{"Add":{"text":" Right envVal -> stop (Env.ip envVal) (Env.rawMode envVal)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7046"}},{"Add":{"text":" Left _ -> pure ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7072"}}],"del_contents":[{"Del":{"text":" -- Clean up any existing socket file","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:577"}},{"Del":{"text":" catch (removeFile socketPath)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:617"}},{"Del":{"text":" (\\(e :: IOException) ->","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:657"}},{"Del":{"text":" if isDoesNotExistError e then pure () else ioError e)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:729"}}]}},{"Edit":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":80,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":731},"to":{"change":5,"start":731,"end":783},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":783},"to":{"change":6,"start":265,"end":392},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":265},"to":{"change":6,"start":265,"end":392},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":392},"to":{"change":5,"start":784,"end":809},"introduced_by":5}],"inode":{"change":6,"pos":12987}}},"contents":[{"Del":{"text":" -- Create and bind the UNIX domain socket","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:782"}},{"Del":{"text":" sock <- socket AF_UNIX Stream 0","pos":"NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC:306"}},{"Del":{"text":" bind sock (SockAddrUnix socketPath)","pos":"NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC:352"}},{"Del":{"text":" setFileMode socketPath 0o775","pos":"NLX73UKSI67TAREMATK6FIEOTMG25OT7O5SAJQNDCELQWTQK56PQC:391"}},{"Del":{"text":" listen sock 10","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:808"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":81,"ins":{"up_context":[{"change":5,"pos":810}],"down_context":[{"change":5,"pos":974}],"flag":"BLOCK","start":7074,"end":7436,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":810},"to":{"change":5,"start":810,"end":974},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"-- | Accept loop","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7090"}},{"Add":{"text":"acceptLoop :: Socket -> MVar () -> FilePath -> Maybe Env.Env -> IO ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7160"}},{"Add":{"text":"acceptLoop sock stopFlag configFile envFallback = loop","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7215"}},{"Add":{"text":" where","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7223"}},{"Add":{"text":" loop = do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7237"}},{"Add":{"text":" empty <- isEmptyMVar stopFlag","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7273"}},{"Add":{"text":" if empty","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7288"}},{"Add":{"text":" then do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7304"}},{"Add":{"text":" (conn, _) <- accept sock","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7339"}},{"Add":{"text":" forkIO $ handleClient conn configFile envFallback","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7399"}},{"Add":{"text":" loop","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7414"}},{"Add":{"text":" else pure ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7435"}}],"del_contents":[{"Del":{"text":" -- Run the accept loop in a separate thread","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:865"}},{"Del":{"text":" acceptThread <- forkIO $","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:900"}},{"Del":{"text":" acceptLoop sock stopFlag (\\conn -> handleClient conn ip raw)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:973"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":94,"ins":{"up_context":[{"change":5,"pos":975}],"down_context":[{"change":5,"pos":1102}],"flag":"BLOCK","start":7437,"end":7960,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":975},"to":{"change":5,"start":975,"end":1102},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"-- | Handle a single client connection","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7475"}},{"Add":{"text":"-- | Handle a single client connection","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7514"}},{"Add":{"text":"handleClient :: Socket -> FilePath -> Maybe Env.Env -> IO ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7575"}},{"Add":{"text":"handleClient sock configFile envFallback = do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7621"}},{"Add":{"text":" h <- socketToHandle sock ReadWriteMode","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7664"}},{"Add":{"text":" hSetBuffering h LineBuffering","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7698"}},{"Add":{"text":" cmdLine <- hGetLine h","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7724"}},{"Add":{"text":" let cmdWords = words cmdLine","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7757"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7758"}},{"Add":{"text":" case cmdWords of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7779"}},{"Add":{"text":" (\"start\":nameParts) -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7813"}},{"Add":{"text":" let mName = if null nameParts then Nothing else Just (unwords nameParts)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7898"}},{"Add":{"text":" hPutStrLn h $ \"Starting \" ++ (unwords nameParts)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7959"}}],"del_contents":[{"Del":{"text":" -- Wait until SIGTERM","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1006"}},{"Del":{"text":" takeMVar stopFlag","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1034"}},{"Del":{"text":" putStrLn \"Received SIGTERM, shutting down gracefully...\"","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1101"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":108,"ins":{"up_context":[{"change":5,"pos":1103}],"down_context":[{"change":6,"pos":416}],"flag":"BLOCK","start":7961,"end":9449,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1103},"to":{"change":5,"start":1103,"end":1156},"introduced_by":5}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" -- Parse YAML config","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:7993"}},{"Add":{"text":" yamlCfg <- parseConfigFile configFile","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8043"}},{"Add":{"text":" mEntry <- case yamlCfg of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8081"}},{"Add":{"text":" Right cfg -> case mName of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8124"}},{"Add":{"text":" -- Select entry by name","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8168"}},{"Add":{"text":" Just cfgNameStr ->","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8207"}},{"Add":{"text":" case find (\\e -> T.strip (name e) == T.pack cfgNameStr) cfg of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8292"}},{"Add":{"text":" Just e -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8332"}},{"Add":{"text":" hPutStrLn h $ \"Found \" ++ cfgNameStr","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8397"}},{"Add":{"text":" pure (Just e)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8439"}},{"Add":{"text":" Nothing -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8479"}},{"Add":{"text":" hPutStrLn h $ \"No config entry named: \" ++ cfgNameStr","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8563"}},{"Add":{"text":" pure Nothing","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8606"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8607"}},{"Add":{"text":" -- No name provided, pick the first entry","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8669"}},{"Add":{"text":" Nothing -> pure $ listToMaybe cfg","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8723"}},{"Add":{"text":" Left _ -> pure Nothing","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8762"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8763"}},{"Add":{"text":" (ipAddr, rawModeVal) <- case mEntry of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8814"}},{"Add":{"text":" Just entry -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8847"}},{"Add":{"text":" ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:8939"}},{"Add":{"text":" let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9030"}},{"Add":{"text":" writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) raw","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9141"}},{"Add":{"text":" pure (ip, raw)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9176"}},{"Add":{"text":" Nothing -> case envFallback of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9223"}},{"Add":{"text":" Just envVal -> pure (Env.ip envVal, Env.rawMode envVal)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9299"}},{"Add":{"text":" Nothing -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9333"}},{"Add":{"text":" hPutStrLn h \"No matching config entry and no .env\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9408"}},{"Add":{"text":" pure (\"\", ICMP)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9448"}}],"del_contents":[{"Del":{"text":" --clear the iptables","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1133"}},{"Del":{"text":" stop ip raw","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1155"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":138,"ins":{"up_context":[{"change":6,"pos":417}],"down_context":[{"change":6,"pos":14823}],"flag":"BLOCK","start":9450,"end":9897,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":417},"to":{"change":5,"start":1157,"end":1282},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":6,"pos":546},"to":{"change":6,"start":14768,"end":14823},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":5,"pos":1282},"to":{"change":6,"start":14768,"end":14823},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14768},"to":{"change":6,"start":14768,"end":14823},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" -- Start proxy with resolved IP and RawMode","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9505"}},{"Add":{"text":" start ipAddr rawModeVal","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9541"}},{"Add":{"text":" hPutStrLn h \"started\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9575"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9576"}},{"Add":{"text":" [\"stop\"] -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9599"}},{"Add":{"text":" case envFallback of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9631"}},{"Add":{"text":" Just envVal -> do","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9665"}},{"Add":{"text":" stop (Env.ip envVal) (Env.rawMode envVal)","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9727"}},{"Add":{"text":" hPutStrLn h \"stopped\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9769"}},{"Add":{"text":" Nothing -> hPutStrLn h \"No .env loaded, cannot stop\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9838"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9839"}},{"Add":{"text":" _ -> hPutStrLn h \"unknown command\"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9882"}},{"Add":{"text":"","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9883"}},{"Add":{"text":" hClose h","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9896"}}],"del_contents":[{"Del":{"text":" -- Stop accepting, clean up","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1194"}},{"Del":{"text":" killThread acceptThread","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1228"}},{"Del":{"text":" close sock","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1249"}},{"Del":{"text":" removeFile socketPath","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1281"}},{"Del":{"text":" [] -> putStrLn \"Configuration file was empty.\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14822"}}]}},{"Edit":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":153,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14824},"to":{"change":5,"start":1283,"end":1655},"introduced_by":5}],"inode":{"change":6,"pos":12987}}},"contents":[{"Del":{"text":"-- | Loop accepting connections until stopFlag is set","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1336"}},{"Del":{"text":"acceptLoop :: Socket -> MVar () -> (Socket -> IO ()) -> IO ()","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1398"}},{"Del":{"text":"acceptLoop sock stopFlag handleConn = do","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1439"}},{"Del":{"text":" let loop = do","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1455"}},{"Del":{"text":" stillRunning <- isEmptyMVar stopFlag","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1500"}},{"Del":{"text":" when stillRunning $ do","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1531"}},{"Del":{"text":" (conn, _) <- accept sock","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1566"}},{"Del":{"text":" void $ forkFinally (handleConn conn) (\\_ -> close conn)","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1632"}},{"Del":{"text":" loop","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1647"}},{"Del":{"text":" loop","pos":"CSY27FWPSKRAT37RJNIEQRVDNIO6L4QLENSPOE3XLIGGQZDETGRAC:1654"}}]}},{"Edit":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":154,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":1656},"to":{"change":6,"start":247,"end":335},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":14824},"to":{"change":6,"start":247,"end":335},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":335},"to":{"change":6,"start":779,"end":806},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":806},"to":{"change":6,"start":335,"end":360},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":335},"to":{"change":6,"start":335,"end":360},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":360},"to":{"change":6,"start":807,"end":837},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":615},"to":{"change":6,"start":15194,"end":15319},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":837},"to":{"change":6,"start":15194,"end":15319},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15194},"to":{"change":6,"start":15194,"end":15319},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15319},"to":{"change":6,"start":60,"end":99},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":99},"to":{"change":6,"start":838,"end":857},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":19},"to":{"change":6,"start":15376,"end":15421},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":191},"to":{"change":6,"start":15376,"end":15421},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":857},"to":{"change":6,"start":15376,"end":15421},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15376},"to":{"change":6,"start":15376,"end":15421},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15421},"to":{"change":6,"start":100,"end":140},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":140},"to":{"change":6,"start":858,"end":876},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":206},"to":{"change":6,"start":15477,"end":15505},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":635},"to":{"change":6,"start":15477,"end":15505},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":876},"to":{"change":6,"start":15477,"end":15505},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15477},"to":{"change":6,"start":15477,"end":15505},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":15636},"to":{"change":6,"start":15636,"end":15686},"introduced_by":6}],"inode":{"change":6,"pos":12987}}},"contents":[{"Del":{"text":"handleClient :: Socket","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:269"}},{"Del":{"text":" -> String -- ^ server IP (resolved at runtime)","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:334"}},{"Del":{"text":" -> RawMode","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:805"}},{"Del":{"text":" -> IO ()","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:359"}},{"Del":{"text":"handleClient conn ip raw = do","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:836"}},{"Del":{"text":" h <- socketToHandle conn ReadWriteMode","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15234"}},{"Del":{"text":" hSetBuffering h LineBuffering","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15266"}},{"Del":{"text":" cmd <- hGetLine h","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15286"}},{"Del":{"text":" case cmd of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15300"}},{"Del":{"text":" \"start\" -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15318"}},{"Del":{"text":" putStrLn \"Enabling global proxy\"","pos":"7ZJW2CM7Y6YAUHUE37SPYI4JP2GFYBXJRKQE544NGTFQNPEX5ZXQC:98"}},{"Del":{"text":" start ip raw","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:856"}},{"Del":{"text":" hPutStrLn h \"started\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15403"}},{"Del":{"text":" \"stop\" -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15420"}},{"Del":{"text":" putStrLn \"Disabling global proxy\"","pos":"7ZJW2CM7Y6YAUHUE37SPYI4JP2GFYBXJRKQE544NGTFQNPEX5ZXQC:139"}},{"Del":{"text":" stop ip raw","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:875"}},{"Del":{"text":" hPutStrLn h \"stopped\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15504"}},{"Del":{"text":" _ -> hPutStrLn h \"unknown command\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15674"}},{"Del":{"text":" hClose h","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15685"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":155,"ins":{"up_context":[{"change":6,"pos":223}],"down_context":[{"change":6,"pos":959}],"flag":"BLOCK","start":9898,"end":9955,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":223},"to":{"change":6,"start":877,"end":958},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":958},"to":{"change":6,"start":420,"end":439},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":420},"to":{"change":6,"start":420,"end":439},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"-- | Start the proxy","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9918"}},{"Add":{"text":"start :: String -> RawMode -> IO ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9954"}}],"del_contents":[{"Del":{"text":"start :: String -- ^ server IP (resolved at runtime)","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:936"}},{"Del":{"text":" -> RawMode","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:957"}},{"Del":{"text":" -> IO ()","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:438"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":158,"ins":{"up_context":[{"change":6,"pos":977}],"down_context":[{"change":6,"pos":290}],"flag":"BLOCK","start":9956,"end":10095,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":6,"pos":977},"to":{"change":6,"start":262,"end":275},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":262},"to":{"change":6,"start":262,"end":275},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":275},"to":{"change":6,"start":978,"end":1085},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" applyRules","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9970"}},{"Add":{"text":" case raw of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:9986"}},{"Add":{"text":" ICMP -> applyICMP ip","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10020"}},{"Add":{"text":" UDP p -> applyUDP ip p","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10055"}},{"Add":{"text":" FakeTCP p -> applyFakeTCP ip p","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10094"}}],"del_contents":[{"Del":{"text":" applyRules","pos":"4LMXOSYC2Y6PRPOEPK5NSMAQXG2W4M5CFKQWXFMUNUNBO6L6FMWAC:274"}},{"Del":{"text":" case raw of","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:991"}},{"Del":{"text":" ICMP -> applyICMP ip","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1020"}},{"Del":{"text":" UDP p -> applyUDP ip p","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1050"}},{"Del":{"text":" FakeTCP p-> applyFakeTCP ip p","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1084"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":164,"ins":{"up_context":[{"change":6,"pos":291}],"down_context":[{"change":6,"pos":1168}],"flag":"BLOCK","start":10096,"end":10151,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":291},"to":{"change":6,"start":1086,"end":1167},"introduced_by":6},{"previous":"","flag":"DELETED","from":{"change":6,"pos":1167},"to":{"change":6,"start":498,"end":517},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":498},"to":{"change":6,"start":498,"end":517},"introduced_by":6}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":"-- | Stop the proxy","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10115"}},{"Add":{"text":"stop :: String -> RawMode -> IO ()","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10150"}}],"del_contents":[{"Del":{"text":"stop :: String -- ^ server IP (resolved at runtime)","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1145"}},{"Del":{"text":" -> RawMode","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1166"}},{"Del":{"text":" -> IO ()","pos":"N6TINDVBWXSHH6I7G4GQBIGKGSSLA36B6HK7MHKKBICITMYWT2XQC:516"}}]}},{"Replacement":{"inode":{"change":6,"pos":12987},"path":"app/Controller.hs","line":167,"ins":{"up_context":[{"change":6,"pos":1185}],"down_context":[],"flag":"BLOCK","start":10152,"end":10276,"inode":{"change":6,"pos":12987}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":6,"pos":1185},"to":{"change":6,"start":328,"end":341},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":328},"to":{"change":6,"start":328,"end":341},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":341},"to":{"change":6,"start":1186,"end":1200},"introduced_by":6},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":6,"pos":1200},"to":{"change":3,"start":0,"end":108},"introduced_by":3}],"inode":{"change":6,"pos":12987}},"ins_contents":[{"Add":{"text":" case raw of","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10167"}},{"Add":{"text":" ICMP -> clearICMP ip","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10201"}},{"Add":{"text":" UDP p -> clearUDP ip p","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10236"}},{"Add":{"text":" FakeTCP p -> clearFakeTCP ip p","pos":"QNWZFDUGC4UT6B6BOCKAPDTLNMU5V5GAENSMYWZX6D4URBYIIWZAC:10275"}}],"del_contents":[{"Del":{"text":" clearRules","pos":"4LMXOSYC2Y6PRPOEPK5NSMAQXG2W4M5CFKQWXFMUNUNBO6L6FMWAC:340"}},{"Del":{"text":" case raw of","pos":"QV3AJVRIBWZIGR2BQKBHMG5ZRB7D4NLEF5ZJMYUUG3GAAG5J3ZQAC:1199"}},{"Del":{"text":" ICMP -> do clearICMP ip","pos":"R62UQY34MWC67MS52BDUNUZKNZM4IVOYAWZND6O37GVR472JMYTQC:33"}},{"Del":{"text":" UDP p -> do clearUDP ip p","pos":"R62UQY34MWC67MS52BDUNUZKNZM4IVOYAWZND6O37GVR472JMYTQC:68"}},{"Del":{"text":" FakeTCP p-> do clearFakeTCP ip p","pos":"R62UQY34MWC67MS52BDUNUZKNZM4IVOYAWZND6O37GVR472JMYTQC:107"}}]}}],"owner":"iopq","repo":"proxy","token":"ru8mTT/+3hR99qcWo7MbLy2oqoyo6g2Ql+XNHDrlKTw=","login":null}

…

Dependencies

Change contents

Review