Source

swish / src / Network / URI / Ord.hs

{-# LANGUAGE CPP #-}

--------------------------------------------------------------------------------
--  See end of this file for licence information.
--------------------------------------------------------------------------------
-- |
--  Module      :  Ord
--  Copyright   :  (c) 2012 Douglas Burke
--  License     :  GPL V2
--
--  Maintainer  :  Douglas Burke
--  Stability   :  experimental
--  Portability :  CPP
--
--  Provide an ordering for URIs (that is, an 'Ord' instance for
--  'URI').
--
--  This instance is provided so that URIs can be used as the
--  key of a 'Data.Map.Map'. Case is relevant for the ordering,
--  and no attempt is made to decode percent-encoded values (i.e.
--  the comparison does /not/ use a canonical or normalized form).
--
--  For @network@ version @2.4.0.0@ and higher, this module is a no-op,
--  since 'Network.URI' now defines these instances.
--
--------------------------------------------------------------------------------

module Network.URI.Ord () where

#if MIN_VERSION_network(2,4,0)

#else

import Network.URI (URI(..), URIAuth(..))

-- NOTE: we do not say compare = comparing show for the URI
-- instance since the standard show instance for URIs does not
-- include a password if included as part of the authority field.

instance Ord URI where
    URI s1 a1 o1 q1 f1 `compare` URI s2 a2 o2 q2 f2 =
        (s1,a1,o1,q1,f1) `compare` (s2,a2,o2,q2,f2)

instance Ord URIAuth where
    URIAuth ui1 rn1 p1 `compare` URIAuth ui2 rn2 p2 =
        (ui1,rn1,p1) `compare` (ui2,rn2,p2)

#endif

--------------------------------------------------------------------------------
--
--  Copyright (c) 2012 Douglas Burke
--  All rights reserved.
--
--  This file is part of Swish.
--
--  Swish is free software; you can redistribute it and/or modify
--  it under the terms of the GNU General Public License as published by
--  the Free Software Foundation; either version 2 of the License, or
--  (at your option) any later version.
--
--  Swish is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--  GNU General Public License for more details.
--
--  You should have received a copy of the GNU General Public License
--  along with Swish; if not, write to:
--    The Free Software Foundation, Inc.,
--    59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
--------------------------------------------------------------------------------
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.