Rename mini-http to mini-http-server

And move Parser to Internal.Parser for test suite

8 files changed, 6 insertions, 5 deletions

diff --git a/mini-http/Main.hs b/mini-http-server/Main.hs
index 08e66c1..08e66c1 100644
--- a/mini-http/Main.hs
+++ b/mini-http-server/Main.hs
diff --git a/mini-http/Network/HTTP/Server/Mini.hs b/mini-http-server/Network/HTTP/Server/Mini.hs
index 3c5c3f6..266e958 100644
--- a/mini-http/Network/HTTP/Server/Mini.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini.hs
@@ -12,7 +12,7 @@ import Data.List.NonEmpty qualified as NE
 import Network.Socket
 import Network.Socket.ByteString
 
-import Network.HTTP.Server.Mini.Parser
+import Network.HTTP.Server.Mini.Internal.Parser
 import Network.HTTP.Server.Mini.Printer
 import Network.HTTP.Server.Mini.Types
 
diff --git a/mini-http/Network/HTTP/Server/Mini/Parser.hs b/mini-http-server/Network/HTTP/Server/Mini/Internal/Parser.hs
index 1e968cb..6278326 100644
--- a/mini-http/Network/HTTP/Server/Mini/Parser.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini/Internal/Parser.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeApplications #-}
-module Network.HTTP.Server.Mini.Parser where
+module Network.HTTP.Server.Mini.Internal.Parser where
 
 import Control.Monad (guard)
 import Control.Monad.Trans.Maybe
diff --git a/mini-http/Network/HTTP/Server/Mini/Printer.hs b/mini-http-server/Network/HTTP/Server/Mini/Printer.hs
index ab6c1f6..ab6c1f6 100644
--- a/mini-http/Network/HTTP/Server/Mini/Printer.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini/Printer.hs
diff --git a/mini-http/Network/HTTP/Server/Mini/Types.hs b/mini-http-server/Network/HTTP/Server/Mini/Types.hs
index c764182..d657a13 100644
--- a/mini-http/Network/HTTP/Server/Mini/Types.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini/Types.hs
@@ -34,7 +34,7 @@ data Request = Request
   , reqPath :: [ByteString]  -- | Lazy field
   , reqQuery :: [(ByteString, ByteString)]  -- | Lazy field
   }
-  deriving (Show)
+  deriving (Show, Eq)
 
 data Status = Status !Int !ShortByteString
   deriving (Show)
diff --git a/mini-http/Network/HTTP/Server/Mini/URI.hs b/mini-http-server/Network/HTTP/Server/Mini/URI.hs
index 13d7c35..13d7c35 100644
--- a/mini-http/Network/HTTP/Server/Mini/URI.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini/URI.hs
diff --git a/mini-http/Network/HTTP/Server/Mini/Util.hs b/mini-http-server/Network/HTTP/Server/Mini/Util.hs
index c29a8e6..c29a8e6 100644
--- a/mini-http/Network/HTTP/Server/Mini/Util.hs
+++ b/mini-http-server/Network/HTTP/Server/Mini/Util.hs
diff --git a/tirclogv.cabal b/tirclogv.cabal
index cb7f58b..c212830 100644
--- a/tirclogv.cabal
+++ b/tirclogv.cabal
@@ -52,8 +52,9 @@ library mini-http-server
     Network.HTTP.Server.Mini
     Network.HTTP.Server.Mini.URI
     Network.HTTP.Server.Mini.Types
+
+    Network.HTTP.Server.Mini.Internal.Parser
   other-modules:
-    Network.HTTP.Server.Mini.Parser
     Network.HTTP.Server.Mini.Printer
     Network.HTTP.Server.Mini.Util
   build-depends:
@@ -63,7 +64,7 @@ library mini-http-server
     network,
     transformers,
     stm
-  hs-source-dirs: mini-http
+  hs-source-dirs: mini-http-server
   default-language: Haskell2010
   default-extensions:
     ImportQualifiedPost