git.iko.soy/typeable/servant
on master help sign in
Adjust file contents a little.
9b08a05Matthias Fischmann
servant-foreign/servant-foreign.cabal+1−1
@@ -25,7 +25,7 @@ source-repository head
25 location: http://github.com/haskell-servant/servant.git
25 location: http://github.com/haskell-servant/servant.git
26
26
27library
27library
28− exposed-modules: Servant.Foreign
28+ exposed-modules: Servant.Foreign, Servant.Foreign.Internal
29 build-depends: base == 4.*
29 build-depends: base == 4.*
30 , lens == 4.*
30 , lens == 4.*
31 , servant == 0.5.*
31 , servant == 0.5.*
servant-foreign/src/Servant/Foreign.hsnew file+34
@@ -0,0 +1,34 @@
1+-- | Generalizes all the data needed to make code generation work with
2+-- arbitrary programming languages.
3+module Servant.Foreign
4+ ( HasForeign(..)
5+ , Segment(..)
6+ , SegmentType(..)
7+ , FunctionName
8+ , QueryArg(..)
9+ , HeaderArg(..)
10+ , ArgType(..)
11+ , Req
12+ , captureArg
13+ , defReq
14+ , concatCase
15+ , snakeCase
16+ , camelCase
17+ -- lenses
18+ , argType
19+ , argName
20+ , isCapture
21+ , funcName
22+ , path
23+ , reqUrl
24+ , reqBody
25+ , reqHeaders
26+ , reqMethod
27+ , segment
28+ , queryStr
29+ -- re-exports
30+ , module Servant.API
31+ ) where
32+
33+import Servant.API
34+import Servant.Foreign.Internal
servant-foreign/src/Servant/Foreign/Internal.hs+1−29
@@ -16,35 +16,7 @@
16
16
17-- | Generalizes all the data needed to make code generation work with
17-- | Generalizes all the data needed to make code generation work with
18-- arbitrary programming languages.
18-- arbitrary programming languages.
19−module Servant.Foreign
19+module Servant.Foreign.Internal where
20− ( HasForeign(..)
21− , Segment(..)
22− , SegmentType(..)
23− , FunctionName
24− , QueryArg(..)
25− , HeaderArg(..)
26− , ArgType(..)
27− , Req
28− , captureArg
29− , defReq
30− , concatCase
31− , snakeCase
32− , camelCase
33− -- lenses
34− , argType
35− , argName
36− , isCapture
37− , funcName
38− , path
39− , reqUrl
40− , reqBody
41− , reqHeaders
42− , reqMethod
43− , segment
44− , queryStr
45− -- re-exports
46− , module Servant.API
47− ) where
48
20
49import Control.Lens (makeLenses, (%~), (&), (.~), (<>~))
21import Control.Lens (makeLenses, (%~), (&), (.~), (<>~))
50import qualified Data.Char as C
22import qualified Data.Char as C