nix-serve-ng.cabal

@@ -48,7 +48,6 @@ executable nix-serve
                     , base32
                     , bytestring
                     , charset
-                    , directory
                     , http-types
                     , managed
                     , megaparsec

src/Main.hs

@@ -6,8 +6,6 @@
 
 module Main where
 
-import Debug.Trace
-
 import Control.Monad.IO.Class (liftIO)
 import Data.ByteString (ByteString)
 import Data.CharSet.ByteSet (ByteSet(..))
@@ -37,7 +35,6 @@ import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
 import qualified Nix
 import qualified Options
 import qualified Options.Applicative                  as Options
-import qualified System.Directory                     as Directory
 import qualified System.Environment                   as Environment
 
 data ApplicationOptions = ApplicationOptions
@@ -253,29 +250,6 @@ makeApplication ApplicationOptions{..} request respond = do
 
                     done response
 
-                isPrivate <- not <$> liftIO (Directory.doesPathExist (ByteString.Char8.unpack storePath ++ "/.private"))
-                let sockAddr = Wai.remoteHost request
-                hostAddr  <- case sockAddr of
-                    SockAddrInet _ host -> return host
-                    _ -> return $ Socket.tupleToHostAddress (255, 255, 255, 255)
-
-                let isInternalClient = hostAddr >= Socket.tupleToHostAddress (10, 0, 0, 0) && hostAddr < Socket.tupleToHostAddress (11, 0, 0, 0)
-
-                traceM $ show ("private", isPrivate, "host", hostAddr, "isInternalClient", isInternalClient)
-                Monad.unless (isInternalClient || not isPrivate) do
-                    let headers = [ ("Content-Type", "text/plain") ]
-
-                    let builder = "Forbbiden.\n"
-
-                    let response =
-                            Wai.responseBuilder
-                                    Types.status403
-                                    headers
-                                    builder
-
-                    done response
-
-
                 let streamingBody write flush = do
                        result <- Nix.dumpPath hashPart callback