Add support for hoauth2 == 2.15.*

Author: sternenseemann

gitit.cabal

@@ -162,7 +162,7 @@ Library
                      json >= 0.4 && < 0.12,
                      uri-bytestring >= 0.2.3.3,
                      split,
-                     hoauth2 >= 2.3.0 && < 2.15,
+                     hoauth2 >= 2.3.0 && < 2.16,
                      xml-conduit >= 1.5 && < 1.11,
                      http-conduit >= 2.1.6 && < 2.4,
                      http-client-tls >= 0.2.2 && < 0.4,

src/Network/Gitit/Authentication/Github.hs

@@ -16,7 +16,11 @@ import qualified Data.ByteString.Char8 as BS
 import qualified Data.ByteString.Lazy as BSL
 import qualified URI.ByteString as URI
 import Network.HTTP.Conduit
+#if MIN_VERSION_hoauth2(2,15,0)
+import Network.OAuth2
+#else
 import Network.OAuth.OAuth2
+#endif
 import Control.Monad (liftM, mplus, mzero)
 import Data.Maybe
 import Data.Aeson

src/Network/Gitit/Config.hs

@@ -42,7 +42,11 @@ import Paths_gitit (getDataFileName)
 import System.FilePath ((</>))
 import Text.Pandoc hiding (ERROR, WARNING, MathJax, MathML, WebTeX, getDataFileName)
 import qualified Control.Exception as E
+#if MIN_VERSION_hoauth2(2,15,0)
+import Network.OAuth2 (OAuth2(..))
+#else
 import Network.OAuth.OAuth2 (OAuth2(..))
+#endif
 import URI.ByteString (parseURI, laxURIParserOptions)
 import qualified Data.ByteString.Char8 as BS
 import Network.Gitit.Compat.Except

src/Network/Gitit/Types.hs

@@ -83,7 +83,11 @@ import Data.FileStore.Types
 import Network.Gitit.Server
 import Text.HTML.TagSoup.Entity (lookupEntity)
 import Data.Char (isSpace)
+#if MIN_VERSION_hoauth2(2,15,0)
+import Network.OAuth2
+#else
 import Network.OAuth.OAuth2
+#endif
 import Text.Blaze.Html (Html)
 
 data PageType = Markdown