make gemQuery field of GemURL optional (with Maybe)

src/Network/GemServ.hs

@@ -53,8 +53,8 @@ encodeGemURL url =
       Nothing   -> ""
     path = intercalate "/" $ map escapeString $ gemPath url
     query = case gemQuery url of
-      "" -> ""
-      q  -> '?' : escapeString q
+      Nothing -> ""
+      Just q  -> '?' : escapeString q
 
 -- | add required escape sequences to a string
 escapeString :: String -> String

src/Network/GemServ/Types.hs

@@ -39,8 +39,8 @@ data GemURL = GemURL
   -- ^ The port number (if supplied)
   , gemPath :: [String]
   -- ^ The decoded path segments
-  , gemQuery :: String
-  -- ^ The decoded request query
+  , gemQuery :: Maybe String
+  -- ^ The decoded request query (if supplied)
   } deriving (Eq, Show)
 
 -- | Builds a new 'GemURL'
@@ -52,7 +52,7 @@ newGemURL host = GemURL
   { gemHost  = host
   , gemPort  = Nothing
   , gemPath  = []
-  , gemQuery = ""
+  , gemQuery = Nothing
   }
 
 --jl