buildRequestUrl :: Request -> String -> Int -> String
buildRequestUrl request hostname port = 
                        let unpackedpath = (B.unpack $ rawPathInfo request) in
                        let path = if unpackedpath == "/" then "" else unpackedpath in
                        case (requestHeaderHost request) of
                            Just u -> let uu = (B.unpack u) in 
                                      if isLocalHost uu  hostname port then paranoiaUrl else "http://"++uu++unpackedpath
                            Nothing -> paranoiaUrl
buildRequestUrl :: Request -> String -> Int -> String
buildRequestUrl request hostname port = 
                        let unpackedpath = (B.unpack $ rawPathInfo request) in
                        let path = if unpackedpath == "/" then "" else unpackedpath in
                        case (requestHeaderHost request) of
                            Just u -> let uu = (B.unpack u) in 
                                      if isLocalHost uu  hostname port then paranoiaUrl else "http://"++uu++unpackedpath
                            Nothing -> paranoiaUrl
buildRequestUrl request hostname port = 
                        let unpackedpath = (B.unpack $ rawPathInfo request) in
                        let path = if unpackedpath == "/" then "" else unpackedpath in
                        case (requestHeaderHost request) of
                            Just u -> let uu = (B.unpack u) in 
                                      if isLocalHost uu  hostname port then paranoiaUrl else "http://"++uu++unpackedpath
                            Nothing -> paranoiaUrl