420ebd0475
- No more Internal modules - Remove ClientLike-generic. Let's use Routes-generics - Let's see if anyone notices, otherwise we can add it back - Add Makefile for common tasks - Fix servant-client-ghcjs
13 lines
325 B
Haskell
13 lines
325 B
Haskell
module Servant.Client.Core.Internal where
|
|
|
|
import Control.DeepSeq
|
|
(rnf)
|
|
import Network.HTTP.Media
|
|
(MediaType, mainType, parameters, subType)
|
|
|
|
mediaTypeRnf :: MediaType -> ()
|
|
mediaTypeRnf mt =
|
|
rnf (mainType mt) `seq`
|
|
rnf (subType mt) `seq`
|
|
rnf (parameters mt)
|