{"header":{"message":"Initial commit","description":null,"timestamp":"2025-11-05T10:11:14.576067583Z","authors":[{}]},"hash":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC","authors":[{"key":"EbwjwgbHP64g5DPwCqcF1oKFEikinCPQ2vNWwmnsaYkz"}],"deps":{"hashes":[["WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC","Initial commit"],["AA",null],["Y7LXAWJMKAU75ESS6E4OQFVW5XMJE7UIIEPX5OKGS6Y53RTNBS4AC",""]],"deps":["Y7LXAWJMKAU75ESS6E4OQFVW5XMJE7UIIEPX5OKGS6Y53RTNBS4AC"],"known":[]},"hunks":[{"FileAdd":{"meta":{"basename":"stack.yaml.lock","metadata":0},"context":[{"change":2,"pos":1}],"contents":[{"Add":{"text":"# This file was autogenerated by Stack.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:80"}},{"Add":{"text":"# You should not edit this file by hand.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:121"}},{"Add":{"text":"# For more information, please see the documentation at:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:178"}},{"Add":{"text":"# https://docs.haskellstack.org/en/stable/topics/lock_files","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:240"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:241"}},{"Add":{"text":"packages: []","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:254"}},{"Add":{"text":"snapshots:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:265"}},{"Add":{"text":"- completed:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:278"}},{"Add":{"text":" sha256: 4cb7085bcc4e7d0b58a523df16a25201800a076f643445ec4f8bb78a94be652f","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:355"}},{"Add":{"text":" size: 726109","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:372"}},{"Add":{"text":" url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/24/18.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:474"}},{"Add":{"text":" original:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:486"}},{"Add":{"text":" url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/24/18.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:588"}}]}},{"FileAdd":{"meta":{"basename":"stack.yaml","metadata":0},"context":[{"change":2,"pos":1}],"contents":[{"Add":{"text":"# This file was automatically generated by 'stack init'","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:681"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:683"}},{"Add":{"text":"# Some commonly used options have been documented as comments in this file.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:759"}},{"Add":{"text":"# For advanced use and comprehensive documentation of the format, please see:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:837"}},{"Add":{"text":"# https://docs.haskellstack.org/en/stable/configure/yaml/","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:895"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:896"}},{"Add":{"text":"# A 'specific' Stackage snapshot or a compiler version.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:952"}},{"Add":{"text":"# A snapshot resolver dictates the compiler version and the set of packages","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1028"}},{"Add":{"text":"# to be used for project dependencies. For example:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1080"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1082"}},{"Add":{"text":"# snapshot: lts-23.24","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1104"}},{"Add":{"text":"# snapshot: nightly-2025-06-15","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1135"}},{"Add":{"text":"# snapshot: ghc-9.8.4","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1157"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1159"}},{"Add":{"text":"# The location of a snapshot can be provided as a file or url. Stack assumes","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1236"}},{"Add":{"text":"# a snapshot provided as a file might change, whereas a url resource does not.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1315"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1317"}},{"Add":{"text":"# snapshot: ./custom-snapshot.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1352"}},{"Add":{"text":"# snapshot: https://example.com/snapshots/2024-01-01.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1410"}},{"Add":{"text":"snapshot:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1420"}},{"Add":{"text":" url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/24/18.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1520"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1521"}},{"Add":{"text":"# User packages to be built.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1550"}},{"Add":{"text":"# Various formats can be used as shown in the example below.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1611"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1613"}},{"Add":{"text":"# packages:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1625"}},{"Add":{"text":"# - some-directory","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1644"}},{"Add":{"text":"# - https://example.com/foo/bar/baz-0.0.2.tar.gz","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1693"}},{"Add":{"text":"# subdirs:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1706"}},{"Add":{"text":"# - auto-update","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1724"}},{"Add":{"text":"# - wai","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1734"}},{"Add":{"text":"packages:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1744"}},{"Add":{"text":"- .","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1748"}},{"Add":{"text":"# Dependency packages to be pulled from upstream that are not in the snapshot.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1827"}},{"Add":{"text":"# These entries can reference officially published versions as well as","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1898"}},{"Add":{"text":"# forks / in-progress versions pinned to a git hash. For example:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1964"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1966"}},{"Add":{"text":"# extra-deps:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:1980"}},{"Add":{"text":"# - acme-missiles-0.3","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2002"}},{"Add":{"text":"# - git: https://github.com/commercialhaskell/stack.git","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2058"}},{"Add":{"text":"# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2111"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2113"}},{"Add":{"text":"# extra-deps: []","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2130"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2131"}},{"Add":{"text":"# Override default flag values for project packages and extra-deps","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2198"}},{"Add":{"text":"# flags: {}","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2210"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2211"}},{"Add":{"text":"# Extra package databases containing global packages","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2264"}},{"Add":{"text":"# extra-package-dbs: []","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2288"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2289"}},{"Add":{"text":"# Control whether we use the GHC we find on the path","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2342"}},{"Add":{"text":"# system-ghc: true","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2361"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2363"}},{"Add":{"text":"# Require a specific version of Stack, using version ranges","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2423"}},{"Add":{"text":"# require-stack-version: -any # Default","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2463"}},{"Add":{"text":"# require-stack-version: \">=3.7\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2496"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2498"}},{"Add":{"text":"# Override the architecture used by Stack, especially useful on Windows","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2570"}},{"Add":{"text":"# arch: i386","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2583"}},{"Add":{"text":"# arch: x86_64","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2598"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2600"}},{"Add":{"text":"# Extra directories used by Stack for building","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2647"}},{"Add":{"text":"# extra-include-dirs: [/path/to/dir]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2684"}},{"Add":{"text":"# extra-lib-dirs: [/path/to/dir]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2717"}},{"Add":{"text":"#","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2719"}},{"Add":{"text":"# Allow a newer minor version of GHC than the snapshot specifies","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2784"}},{"Add":{"text":"# compiler-check: newer-minor","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2814"}}]}},{"FileAdd":{"meta":{"basename":"src","metadata":576},"context":[{"change":2,"pos":1}],"contents":[]}},{"FileAdd":{"meta":{"basename":"Tproxy.hs","metadata":0},"context":[{"change":0,"pos":2831}],"contents":[{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2902"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2903"}},{"Add":{"text":"module Tproxy where","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2923"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2924"}},{"Add":{"text":"import Ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2934"}},{"Add":{"text":"import System.Process (callProcess, readProcess)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:2983"}},{"Add":{"text":"import Data.List (isPrefixOf)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3013"}},{"Add":{"text":"import Control.Exception (try, SomeException)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3059"}},{"Add":{"text":"import System.IO (hPutStrLn, stderr)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3096"}},{"Add":{"text":"import Control.Monad (forM_, void, when)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3137"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3138"}},{"Add":{"text":"import System.Directory (findExecutable)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3179"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3180"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3181"}},{"Add":{"text":"-- Run a system command with arguments","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3220"}},{"Add":{"text":"runCmd :: IO FilePath -> [String] -> IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3263"}},{"Add":{"text":"runCmd cmd args = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3284"}},{"Add":{"text":" command <- cmd","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3301"}},{"Add":{"text":" res <- try (callProcess command args) :: IO (Either SomeException ())","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3373"}},{"Add":{"text":" case res of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3387"}},{"Add":{"text":" Left e -> hPutStrLn stderr $ \"[ERROR] \" ++ command ++ \" \" ++ unwords args ++ \": \" ++ show e","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3484"}},{"Add":{"text":" Right _ -> putStrLn $ \"[OK] \" ++ command ++ \" \" ++ unwords args","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3552"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3553"}},{"Add":{"text":"iptablesBin :: IO FilePath","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3580"}},{"Add":{"text":"iptablesBin = findExecutable \"iptables\" >>= maybe (fail \"iptables not found\") pure","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3663"}},{"Add":{"text":"ipBin :: IO FilePath","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3684"}},{"Add":{"text":"ipBin = findExecutable \"ip\" >>= maybe (fail \"ip not found\") pure","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3749"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3750"}},{"Add":{"text":"-- | Run iptables with arguments.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3784"}},{"Add":{"text":"-- Automatically prefixes \"iptables\" when using xtables-nft-multi.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3853"}},{"Add":{"text":"iptables :: [String] -> IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3883"}},{"Add":{"text":"iptables args = runCmd iptablesBin args","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3923"}},{"Add":{"text":"-- | Run ip (iproute2) with arguments.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3962"}},{"Add":{"text":"ip :: [String] -> IO String","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:3990"}},{"Add":{"text":"ip args = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4003"}},{"Add":{"text":" path <- ipBin","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4019"}},{"Add":{"text":" readProcess path args \"\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4046"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4047"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4048"}},{"Add":{"text":"-- Detect the first global IPv4 address (like awk '{print $4}' in the script)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4126"}},{"Add":{"text":"detectLocalCIDR :: IO (Maybe String)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4163"}},{"Add":{"text":"detectLocalCIDR = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4184"}},{"Add":{"text":" output <- ip [\"-o\", \"-4\", \"addr\", \"show\", \"scope\", \"global\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4247"}},{"Add":{"text":" let parts = [ w | line <- lines output, w <- words line, '/' `elem` w ]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4321"}},{"Add":{"text":" pure $ case parts of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4344"}},{"Add":{"text":" [] -> Nothing","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4365"}},{"Add":{"text":" (x:_) -> Just x","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4385"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4386"}},{"Add":{"text":"-- Create all the XRAY and XRAY_MASK chains and rules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4440"}},{"Add":{"text":"applyRules :: IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4460"}},{"Add":{"text":"applyRules = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4476"}},{"Add":{"text":" mCIDR <- detectLocalCIDR","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4503"}},{"Add":{"text":" let localCIDR = maybe \"192.168.2.184/24\" id mCIDR","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4555"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4556"}},{"Add":{"text":" putStrLn $ \"Using local CIDR: \" ++ localCIDR","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4603"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-N\", \"XRAY\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4645"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY\", \"-d\", localCIDR, \"-j\", \"RETURN\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4720"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4721"}},{"Add":{"text":" let returns =","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4737"}},{"Add":{"text":" [ \"224.0.0.0/3\", \"0.0.0.0/8\", \"10.0.0.0/8\", \"100.64.0.0/10\", \"127.0.0.0/8\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4820"}},{"Add":{"text":" , \"169.254.0.0/16\", \"172.16.0.0/12\", \"192.168.0.0/16\", \"198.18.0.0/15\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4899"}},{"Add":{"text":" , \"224.0.0.0/4\", \"240.0.0.0/4\" ]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:4940"}},{"Add":{"text":" forM_ returns $ \\r -> iptables [\"-t\", \"mangle\", \"-A\", \"XRAY\", \"-d\", r, \"-j\", \"RETURN\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5029"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5030"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY\", \"!\", \"-s\", localCIDR, \"-j\", \"RETURN\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5110"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY\", \"-p\", \"tcp\", \"-j\", \"TPROXY\", \"--on-port\", \"12345\", \"--tproxy-mark\", \"1\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5225"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY\", \"-p\", \"udp\", \"-j\", \"TPROXY\", \"--on-port\", \"12345\", \"--tproxy-mark\", \"1\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5340"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"PREROUTING\", \"-j\", \"XRAY\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5402"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5403"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-N\", \"XRAY_MASK\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5450"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY_MASK\", \"-m\", \"owner\", \"--gid-owner\", \"988\", \"-j\", \"RETURN\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5550"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5551"}},{"Add":{"text":" let maskReturns =","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5571"}},{"Add":{"text":" [ \"0.0.0.0/8\", \"10.0.0.0/8\", \"127.0.0.0/8\", \"169.254.0.0/16\", \"172.16.0.0/12\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5657"}},{"Add":{"text":" , localCIDR, \"224.0.0.0/4\", \"240.0.0.0/4\" ]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5709"}},{"Add":{"text":" forM_ maskReturns $ \\r -> iptables [\"-t\", \"mangle\", \"-A\", \"XRAY_MASK\", \"-d\", r, \"-j\", \"RETURN\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5807"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5808"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"XRAY_MASK\", \"-j\", \"MARK\", \"--set-mark\", \"1\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5888"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"OUTPUT\", \"-p\", \"tcp\", \"-j\", \"XRAY_MASK\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:5964"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-A\", \"OUTPUT\", \"-p\", \"udp\", \"-j\", \"XRAY_MASK\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6040"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6041"}},{"Add":{"text":" runCmd ipBin [\"route\", \"add\", \"local\", \"0.0.0.0/0\", \"dev\", \"lo\", \"table\", \"100\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6124"}},{"Add":{"text":" runCmd ipBin [\"rule\", \"add\", \"fwmark\", \"1\", \"table\", \"100\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6186"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6187"}},{"Add":{"text":"-- Remove all XRAY rules and chains","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6223"}},{"Add":{"text":"-- Think of using ip set to clear the udp2raw rules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6275"}},{"Add":{"text":"clearRules :: IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6295"}},{"Add":{"text":"clearRules = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6311"}},{"Add":{"text":" putStrLn \"Clearing XRAY and XRAY_MASK chains...\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6362"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-D\", \"PREROUTING\", \"-j\", \"XRAY\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6424"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-F\", \"XRAY\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6466"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-X\", \"XRAY\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6508"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-F\", \"XRAY_MASK\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6555"}},{"Add":{"text":" iptables [\"-t\", \"mangle\", \"-X\", \"XRAY_MASK\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6602"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6603"}},{"Add":{"text":" void $ ip [\"route\", \"del\", \"local\", \"default\", \"dev\", \"lo\", \"table\", \"100\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6681"}},{"Add":{"text":" void $ ip [\"rule\", \"del\", \"table\", \"100\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6725"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6726"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6727"}},{"Add":{"text":"applyFakeTCP :: String -> Int -> IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6766"}},{"Add":{"text":"applyFakeTCP server port = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6796"}},{"Add":{"text":" iptables [\"-I\", \"INPUT\", \"-s\", server, \"-p\", \"tcp\", \"-m\", \"tcp\", \"--sport\", show port, \"-j\", \"DROP\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6900"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6901"}},{"Add":{"text":"applyICMP :: String -> IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6930"}},{"Add":{"text":"applyICMP server = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:6952"}},{"Add":{"text":" iptables [\"-I\", \"INPUT\", \"-s\", server, \"-p\", \"icmp\", \"--icmp-type\", \"0\", \"-j\", \"DROP\"]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7042"}}]}},{"FileAdd":{"meta":{"basename":"Ip.hs","metadata":0},"context":[{"change":0,"pos":2831}],"contents":[{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7109"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7110"}},{"Add":{"text":"module Ip (waitForIP) where","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7138"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7139"}},{"Add":{"text":"import Control.Concurrent (threadDelay)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7179"}},{"Add":{"text":"import System.IO (hPutStrLn, stderr)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7216"}},{"Add":{"text":"import qualified Data.ByteString.Char8 as B","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7260"}},{"Add":{"text":"import Network.DNS","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7279"}},{"Add":{"text":"import Network.Socket","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7301"}},{"Add":{"text":"import Data.List (isPrefixOf)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7331"}},{"Add":{"text":"import Data.Maybe (listToMaybe)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7363"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7364"}},{"Add":{"text":"waitForIP :: String -> String -> IO String","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7407"}},{"Add":{"text":"waitForIP ns domain = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7432"}},{"Add":{"text":" result <- resolveWithHostname ns domain","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7474"}},{"Add":{"text":" case result of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7491"}},{"Add":{"text":" [] -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7504"}},{"Add":{"text":" hPutStrLn stderr $ \"Waiting for 2 seconds for \" ++ domain","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7568"}},{"Add":{"text":" threadDelay (2 * 1000000)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7600"}},{"Add":{"text":" waitForIP ns domain","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7626"}},{"Add":{"text":" (ip:_) -> pure ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7648"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7649"}},{"Add":{"text":"resolveWithHostname :: String -> String -> IO [String]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7704"}},{"Add":{"text":"resolveWithHostname nsHost domain = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7743"}},{"Add":{"text":" nsIP <- resolveNameServer nsHost","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7778"}},{"Add":{"text":" case nsIP of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7793"}},{"Add":{"text":" Nothing -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7811"}},{"Add":{"text":" hPutStrLn stderr $ \"Could not resolve nameserver \" ++ nsHost","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7878"}},{"Add":{"text":" pure []","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7892"}},{"Add":{"text":" Just ipStr -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7913"}},{"Add":{"text":" hPutStrLn stderr $ \"Querying \" ++ domain ++ \" using nameserver \" ++ ipStr","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:7993"}},{"Add":{"text":" -- old network-dns only supports RCFilePath or RCHostName","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8057"}},{"Add":{"text":" let conf = defaultResolvConf { resolvInfo = RCHostName ipStr }","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8126"}},{"Add":{"text":" rs <- makeResolvSeed conf","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8158"}},{"Add":{"text":" withResolver rs $ \\resolver -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8198"}},{"Add":{"text":" r <- lookupA resolver (B.pack domain)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8244"}},{"Add":{"text":" case r of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8262"}},{"Add":{"text":" Left err -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8287"}},{"Add":{"text":" hPutStrLn stderr $ \"DNS query failed: \" ++ show err","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8351"}},{"Add":{"text":" pure []","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8371"}},{"Add":{"text":" Right ips -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8397"}},{"Add":{"text":" hPutStrLn stderr $ \"DNS reply: \" ++ show ips","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8454"}},{"Add":{"text":" pure (map show ips)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8486"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8487"}},{"Add":{"text":"resolveNameServer :: String -> IO (Maybe String)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8536"}},{"Add":{"text":"resolveNameServer host","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8559"}},{"Add":{"text":" | all (`elem` (\".0123456789\" :: String)) host = pure (Just host) -- already numeric","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8646"}},{"Add":{"text":" | otherwise = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8665"}},{"Add":{"text":" infos <- getAddrInfo (Just defaultHints) (Just host) (Just \"53\")","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8736"}},{"Add":{"text":" pure $ fmap (stripPort . show . addrAddress) (listToMaybe infos)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8807"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8808"}},{"Add":{"text":"stripPort :: String -> String","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8838"}},{"Add":{"text":"stripPort s","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8850"}},{"Add":{"text":" | \":\" `isPrefixOf` dropWhile (/=':') s = takeWhile (/=':') s","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8913"}},{"Add":{"text":" | otherwise = s","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:8931"}}]}},{"FileAdd":{"meta":{"basename":"ConfigParser.hs","metadata":0},"context":[{"change":0,"pos":2831}],"contents":[{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-}","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9008"}},{"Add":{"text":"{-# LANGUAGE DeriveGeneric #-}","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9039"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9040"}},{"Add":{"text":"module ConfigParser (","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9062"}},{"Add":{"text":" ConfigEntry(..), -- Export the data constructor and all field accessors","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9138"}},{"Add":{"text":" Config, -- Export the type alias","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9184"}},{"Add":{"text":" parseConfigFile -- Export the main function","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9233"}},{"Add":{"text":") where","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9241"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9242"}},{"Add":{"text":"import Data.Yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9259"}},{"Add":{"text":"import Data.Text (Text)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9283"}},{"Add":{"text":"import GHC.Generics (Generic)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9313"}},{"Add":{"text":"import System.IO (hPutStrLn, stderr)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9350"}},{"Add":{"text":"import System.Exit (exitFailure)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9383"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9384"}},{"Add":{"text":"-- 1. DATA DEFINITIONS (These must be exported)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9432"}},{"Add":{"text":"data ConfigEntry = ConfigEntry","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9463"}},{"Add":{"text":" { name :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9492"}},{"Add":{"text":" , nameserver :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9521"}},{"Add":{"text":" , domain :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9550"}},{"Add":{"text":" , raw_mode :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9579"}},{"Add":{"text":" , port :: Maybe Int","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9613"}},{"Add":{"text":" , speeder_password :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9642"}},{"Add":{"text":" , udp2raw_password :: Text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9671"}},{"Add":{"text":" } deriving (Show, Generic)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9700"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9701"}},{"Add":{"text":"type Config = [ConfigEntry]","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9729"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9730"}},{"Add":{"text":"instance FromJSON ConfigEntry where","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9766"}},{"Add":{"text":" parseJSON = withObject \"ConfigEntry\" $ \\v -> ConfigEntry","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9825"}},{"Add":{"text":" <$> v .: \"name\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9845"}},{"Add":{"text":" <*> v .: \"nameserver\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9871"}},{"Add":{"text":" <*> v .: \"domain\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9893"}},{"Add":{"text":" <*> v .: \"raw_mode\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9917"}},{"Add":{"text":" <*> v .:? \"port\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9938"}},{"Add":{"text":" <*> v .: \"speeder_password\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:9970"}},{"Add":{"text":" <*> v .: \"udp2raw_password\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10002"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10003"}},{"Add":{"text":"-- 2. EXPORTED FUNCTION","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10027"}},{"Add":{"text":"-- This function reads the file and returns the parsed configuration or an error message.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10117"}},{"Add":{"text":"parseConfigFile :: FilePath -> IO (Either String Config)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10174"}},{"Add":{"text":"parseConfigFile configFile = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10206"}},{"Add":{"text":" result <- decodeFileEither configFile","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10246"}},{"Add":{"text":" case result of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10263"}},{"Add":{"text":" Left err -> pure $ Left $ \"Error parsing YAML from \" ++ configFile ++ \": \" ++ show err","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10354"}},{"Add":{"text":" Right cfg -> pure $ Right cfg","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10388"}}]}},{"FileAdd":{"meta":{"basename":"proxy.cabal","metadata":0},"context":[{"change":2,"pos":1}],"contents":[{"Add":{"text":"cabal-version: 1.12","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10446"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10447"}},{"Add":{"text":"-- This file has been generated from package.yaml by hpack version 0.38.1.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10522"}},{"Add":{"text":"--","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10525"}},{"Add":{"text":"-- see: https://github.com/sol/hpack","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10562"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10563"}},{"Add":{"text":"name: proxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10585"}},{"Add":{"text":"version: 0.1.0.0","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10609"}},{"Add":{"text":"category: System","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10632"}},{"Add":{"text":"author: Igor Polyakov","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10662"}},{"Add":{"text":"maintainer: iop_jr@yahoo.com","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10695"}},{"Add":{"text":"copyright: 2025 Igor Polyakov","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10730"}},{"Add":{"text":"license: MIT","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10750"}},{"Add":{"text":"build-type: Simple","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10773"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10774"}},{"Add":{"text":"library","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10782"}},{"Add":{"text":" exposed-modules:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10801"}},{"Add":{"text":" ConfigParser","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10820"}},{"Add":{"text":" Tproxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10833"}},{"Add":{"text":" Ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10842"}},{"Add":{"text":" other-modules:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10859"}},{"Add":{"text":" Paths_proxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10877"}},{"Add":{"text":" hs-source-dirs:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10895"}},{"Add":{"text":" src","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10905"}},{"Add":{"text":" build-depends:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10922"}},{"Add":{"text":" aeson","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10934"}},{"Add":{"text":" , base >=4.7 && <5","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10957"}},{"Add":{"text":" , bytestring","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10974"}},{"Add":{"text":" , containers","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:10991"}},{"Add":{"text":" , directory","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11007"}},{"Add":{"text":" , dns","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11017"}},{"Add":{"text":" , network","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11031"}},{"Add":{"text":" , process","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11045"}},{"Add":{"text":" , split","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11057"}},{"Add":{"text":" , text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11068"}},{"Add":{"text":" , unix","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11079"}},{"Add":{"text":" , yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11090"}},{"Add":{"text":" default-language: Haskell2010","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11122"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11123"}},{"Add":{"text":"executable tproxy-controller","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11152"}},{"Add":{"text":" main-is: Controller.hs","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11177"}},{"Add":{"text":" other-modules:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11194"}},{"Add":{"text":" Paths_proxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11212"}},{"Add":{"text":" hs-source-dirs:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11230"}},{"Add":{"text":" app","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11240"}},{"Add":{"text":" default-extensions:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11262"}},{"Add":{"text":" ScopedTypeVariables","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11288"}},{"Add":{"text":" ghc-options: -threaded -rtsopts -with-rtsopts=-N","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11339"}},{"Add":{"text":" build-depends:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11356"}},{"Add":{"text":" aeson","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11368"}},{"Add":{"text":" , base >=4.7 && <5","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11391"}},{"Add":{"text":" , bytestring","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11408"}},{"Add":{"text":" , containers","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11425"}},{"Add":{"text":" , directory","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11441"}},{"Add":{"text":" , dns","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11451"}},{"Add":{"text":" , network","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11465"}},{"Add":{"text":" , process","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11479"}},{"Add":{"text":" , proxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11491"}},{"Add":{"text":" , split","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11503"}},{"Add":{"text":" , text","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11514"}},{"Add":{"text":" , unix","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11525"}},{"Add":{"text":" , yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11536"}},{"Add":{"text":" default-language: Haskell2010","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11568"}}]}},{"FileAdd":{"meta":{"basename":"package.yaml","metadata":0},"context":[{"change":2,"pos":1}],"contents":[{"Add":{"text":"# package.yaml","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11622"}},{"Add":{"text":"name: proxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11649"}},{"Add":{"text":"version: 0.1.0.0","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11678"}},{"Add":{"text":"license: MIT","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11703"}},{"Add":{"text":"author: \"Igor Polyakov\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11740"}},{"Add":{"text":"maintainer: \"iop_jr@yahoo.com\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11780"}},{"Add":{"text":"copyright: \"2025 Igor Polyakov\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11822"}},{"Add":{"text":"category: System","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11850"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11851"}},{"Add":{"text":"# Define the package dependencies (like Data.Yaml, Data.Text, etc.)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11919"}},{"Add":{"text":"dependencies:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11933"}},{"Add":{"text":"- base >= 4.7 && < 5","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11954"}},{"Add":{"text":"- yaml # For parsing","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:11984"}},{"Add":{"text":"- aeson # For JSON/YAML data types","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12027"}},{"Add":{"text":"- text # For Data.Text type","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12064"}},{"Add":{"text":"- containers # If you use HashMap, Map, etc. (optional, include if needed)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12142"}},{"Add":{"text":"- process","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12152"}},{"Add":{"text":"- network","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12162"}},{"Add":{"text":"- directory","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12174"}},{"Add":{"text":"- dns","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12180"}},{"Add":{"text":"- bytestring","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12193"}},{"Add":{"text":"- split","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12201"}},{"Add":{"text":"- unix","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12208"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12209"}},{"Add":{"text":"# --- LIBRARY DEFINITION ---","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12238"}},{"Add":{"text":"# This section defines the modules (ConfigParser.hs, Tproxy.hs) that the executable uses.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12328"}},{"Add":{"text":"library:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12337"}},{"Add":{"text":" source-dirs: src","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12356"}},{"Add":{"text":" exposed-modules:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12375"}},{"Add":{"text":" - ConfigParser","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12392"}},{"Add":{"text":" - Tproxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12403"}},{"Add":{"text":" - Ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12410"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12411"}},{"Add":{"text":"# --- EXECUTABLE DEFINITION ---","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12443"}},{"Add":{"text":"# This defines the main program (Controller.hs)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12491"}},{"Add":{"text":"executables:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12504"}},{"Add":{"text":" tproxy-controller: # Name of the executable binary that will be created","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12578"}},{"Add":{"text":" main: Controller.hs","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12602"}},{"Add":{"text":" source-dirs: app","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12623"}},{"Add":{"text":" ghc-options:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12640"}},{"Add":{"text":" - -threaded","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12656"}},{"Add":{"text":" - -rtsopts","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12671"}},{"Add":{"text":" - -with-rtsopts=-N","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12694"}},{"Add":{"text":" # The executable depends on the library we just defined,","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12755"}},{"Add":{"text":" # as well as the system dependencies.","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12797"}},{"Add":{"text":" dependencies:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12815"}},{"Add":{"text":" - proxy # This links to the 'library' section defined above","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12879"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12880"}},{"Add":{"text":" default-extensions:","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12904"}},{"Add":{"text":" - ScopedTypeVariables","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:12930"}}]}},{"FileAdd":{"meta":{"basename":"app","metadata":576},"context":[{"change":2,"pos":1}],"contents":[]}},{"FileAdd":{"meta":{"basename":"Controller.hs","metadata":0},"context":[{"change":0,"pos":12947}],"contents":[{"Add":{"text":"module Main (main) where","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13012"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13013"}},{"Add":{"text":"import ConfigParser -- Import the module we just created","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13075"}},{"Add":{"text":"import Tproxy","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13089"}},{"Add":{"text":"import Ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13099"}},{"Add":{"text":"import Network.Socket","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13121"}},{"Add":{"text":"import Control.Concurrent (forkIO)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13156"}},{"Add":{"text":"import Control.Exception (catch, try, SomeException)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13209"}},{"Add":{"text":"import System.Environment (getArgs)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13245"}},{"Add":{"text":"import System.Exit (exitFailure)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13278"}},{"Add":{"text":"import System.IO (hPutStrLn, stderr, IOMode( ReadWriteMode ), hSetBuffering, BufferMode( LineBuffering ), hGetLine, hClose, stdout, BufferMode( NoBuffering ))","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13437"}},{"Add":{"text":"import Control.Monad (forM_, unless, forever)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13483"}},{"Add":{"text":"import System.Posix.Files (setFileMode)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13523"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13524"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13525"}},{"Add":{"text":"import qualified Data.Text as T","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13557"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13558"}},{"Add":{"text":"import System.Exit (exitSuccess)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13591"}},{"Add":{"text":"import System.Directory (removeFile)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13628"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13629"}},{"Add":{"text":"socketPath :: FilePath","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13652"}},{"Add":{"text":"socketPath = \"/run/tproxy/socket\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13686"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13687"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13688"}},{"Add":{"text":"main :: IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13702"}},{"Add":{"text":"main = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13712"}},{"Add":{"text":" safeMain `catch` \\(e :: SomeException) -> hPutStrLn stderr $ \"[ERROR] \" ++ show e","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13796"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13797"}},{"Add":{"text":"safeMain :: IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13815"}},{"Add":{"text":"safeMain = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13829"}},{"Add":{"text":" hSetBuffering stdout NoBuffering","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13864"}},{"Add":{"text":" -- 1. Get the configuration file path","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13904"}},{"Add":{"text":" args <- getArgs","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13922"}},{"Add":{"text":" let configFile = case args of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13954"}},{"Add":{"text":" (f:_) -> f","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:13986"}},{"Add":{"text":" [] -> \"servers.yaml\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14028"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14029"}},{"Add":{"text":" -- 2. Call the exported function from the ConfigParser module","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14093"}},{"Add":{"text":" parseResult <- ConfigParser.parseConfigFile configFile","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14150"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14151"}},{"Add":{"text":" case parseResult of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14173"}},{"Add":{"text":" -- Handle failure (The Left String contains the formatted error)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14242"}},{"Add":{"text":" Left errorMessage -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14270"}},{"Add":{"text":" hPutStrLn stderr errorMessage","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14306"}},{"Add":{"text":" exitFailure","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14324"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14325"}},{"Add":{"text":" -- Handle success","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14347"}},{"Add":{"text":" Right cfg -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14367"}},{"Add":{"text":" putStrLn $ \"Successfully loaded configuration from \" ++ configFile ++ \":\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14447"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14448"}},{"Add":{"text":" -- Accessing the first entry's nameserver","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14496"}},{"Add":{"text":" case cfg of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14514"}},{"Add":{"text":" (entry:_) -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14538"}},{"Add":{"text":" putStrLn $ \"First server \" ++ show (name entry)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14596"}},{"Add":{"text":" ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14678"}},{"Add":{"text":" putStrLn $ \"the IP is \" ++ show ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14723"}},{"Add":{"text":" applyRules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14744"}},{"Add":{"text":" applyICMP ip","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14767"}},{"Add":{"text":" [] -> putStrLn \"Configuration file was empty.\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14822"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14823"}},{"Add":{"text":" -- Clean up old socket if exists","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14860"}},{"Add":{"text":" catch (removeFile socketPath) (\\(_::SomeException) -> pure ())","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14925"}},{"Add":{"text":" sock <- socket AF_UNIX Stream 0","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14959"}},{"Add":{"text":" bind sock (SockAddrUnix socketPath)","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:14997"}},{"Add":{"text":" setFileMode socketPath 0o775","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15028"}},{"Add":{"text":" listen sock 1","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15044"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15045"}},{"Add":{"text":" forever $ do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15060"}},{"Add":{"text":" (conn, _) <- accept sock","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15089"}},{"Add":{"text":" _ <- forkIO $ handleClient conn","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15125"}},{"Add":{"text":" pure ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15137"}},{"Add":{"text":"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15138"}},{"Add":{"text":"handleClient :: Socket -> IO ()","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15170"}},{"Add":{"text":"handleClient conn = do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15193"}},{"Add":{"text":" h <- socketToHandle conn ReadWriteMode","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15234"}},{"Add":{"text":" hSetBuffering h LineBuffering","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15266"}},{"Add":{"text":" cmd <- hGetLine h","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15286"}},{"Add":{"text":" case cmd of","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15300"}},{"Add":{"text":" \"start\" -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15318"}},{"Add":{"text":" putStrLn \"Received start command\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15358"}},{"Add":{"text":" applyRules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15375"}},{"Add":{"text":" hPutStrLn h \"started\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15403"}},{"Add":{"text":" \"stop\" -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15420"}},{"Add":{"text":" putStrLn \"Received stop command\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15459"}},{"Add":{"text":" clearRules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15476"}},{"Add":{"text":" hPutStrLn h \"stopped\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15504"}},{"Add":{"text":" \"exit\" -> do","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15521"}},{"Add":{"text":" putStrLn \"Exiting tproxy service\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15561"}},{"Add":{"text":" hPutStrLn h \"bye\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15585"}},{"Add":{"text":" clearRules","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15602"}},{"Add":{"text":" hClose h","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15617"}},{"Add":{"text":" exitSuccess","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15635"}},{"Add":{"text":" _ -> hPutStrLn h \"unknown command\"","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15674"}},{"Add":{"text":" hClose h","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15685"}}]}},{"FileAdd":{"meta":{"basename":".ignore","metadata":0},"context":[{"change":2,"pos":1}],"contents":[{"Add":{"text":".stack-work","pos":"WXFIZKTKYWQAT7EQ6KZKUTVDICW6IHX3J45T2JPZ43YLLLYBAZXAC:15731"}}]}}],"owner":"iopq","repo":"proxy","token":"iCfE9YFfadPqqpPHh/3rkDcoWDHEW6SAKIkHWlsezdk=","login":null}

…

Dependencies

Change contents

Review