dprox 0.4.1 → 0.4.2

raw patch · 4 files changed

+6/−5 lines, 4 files

Files

README.md +1/−0
dprox.cabal +2/−2
src/DomainRoute.hs +2/−3
src/Main.hs +1/−0

README.md view

@@ -1,6 +1,7 @@ ## dprox  [![CircleCI](https://circleci.com/gh/bjin/dprox.svg?style=shield)](https://circleci.com/gh/bjin/dprox)+[![CirrusCI](https://api.cirrus-ci.com/github/bjin/dprox.svg)](https://cirrus-ci.com/github/bjin/dprox) [![Depends](https://img.shields.io/hackage-deps/v/dprox.svg)](https://packdeps.haskellers.com/feed?needle=dprox) [![Release](https://img.shields.io/github/release/bjin/dprox.svg)](https://github.com/bjin/dprox/releases) [![Hackage](https://img.shields.io/hackage/v/dprox.svg)](https://hackage.haskell.org/package/dprox)

dprox.cabal view

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.35.1.+-- This file has been generated from package.yaml by hpack version 0.35.2. -- -- see: https://github.com/sol/hpack  name:           dprox-version:        0.4.1+version:        0.4.2 synopsis:       a lightweight DNS proxy server, compatible with dnsmasq-china-list description:    Please see the README on GitHub at <https://github.com/bjin/dprox#readme> category:       DNS

src/DomainRoute.hs view

@@ -10,7 +10,6 @@   ) where  import Data.ByteString.Char8 qualified as BS-import Data.Char             (toLower) import Data.Trie             qualified as T import Data.Trie.Convenience qualified as T import Network.DNS           qualified as DNS@@ -20,8 +19,8 @@  normalize :: DNS.Domain -> BS.ByteString normalize d-    | BS.null d = BS.empty-    | otherwise = BS.reverse (BS.cons '.' (BS.map toLower d))+    | BS.null d = BS.singleton '.'+    | otherwise = BS.reverse (BS.cons '.' (DNS.normalize d))  newDomainRoute :: (a -> a -> a) -> [(DNS.Domain, a)] -> DomainRoute a newDomainRoute merge ds = DomainRoute (T.fromListWithL' merge ds')

src/Main.hs view

@@ -197,6 +197,7 @@                       ]      logger INFO $ "read " <> toLogStr (length server) <> " server configs"+    logger INFO $ "read " <> toLogStr (length address) <> " address configs"     logger INFO $ "read " <> toLogStr (length hosts) <> " hosts configs"     logger INFO $ "read " <> toLogStr (length bogusnx) <> " bogus-nxdomain configs"     logger INFO $ "read " <> toLogStr (length ipset) <> " ipset configs"