servant-purescript 0.9.0.2 → 0.9.0.3

raw patch · 2 files changed

+9/−3 lines, 2 files

Files

• servant-purescript.cabal +1/−1
• src/Servant/API/BrowserHeader.hs +8/−2

@@ -1,5 +1,5 @@ name:                servant-purescript-version:             0.9.0.2+version:             0.9.0.3 synopsis:            Generate PureScript accessor functions for you servant API description:         Please see README.md homepage:            https://github.com/eskimor/servant-purescript#readme

@@ -1,4 +1,5 @@ -- | A header which gets sent by the browser and is thus of no concern for the client consumer of the API.+{-# LANGUAGE CPP #-} {-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveFunctor      #-}@@ -25,8 +26,13 @@ type instance IsElem' e (BrowserHeader :> s) = IsElem e s  instance HasLink sub => HasLink (BrowserHeader sym a :> sub) where-    type MkLink (BrowserHeader sym a :> sub) = MkLink (Header sym a :> sub)-    toLink _ = toLink (Proxy :: Proxy (Header sym a :> sub))+#if MIN_VERSION_servant(0,14,0)+  type MkLink (BrowserHeader sym a :> sub) b = MkLink (Header sym a :> sub) b+  toLink toA Proxy = toLink toA (Proxy :: Proxy (Header sym a :> sub))+#else+  type MkLink (BrowserHeader sym a :> sub) = MkLink (Header sym a :> sub)+  toLink _ = toLink (Proxy :: Proxy (Header sym a :> sub))+#endif  instance (KnownSymbol sym, FromHttpApiData a, HasServer sublayout context)       => HasServer (BrowserHeader sym a :> sublayout) context where