Adjust file contents a little.
commit9b08a05502e11ccdf297f57108dc327556f960e8
authorMatthias Fischmann <mf@zerobuzz.net>
dateMon 16 Nov 2015, 18:40 (11 years ago)
parenta1dcc27
servant-foreign/servant-foreign.cabal+1−1
@@ -25,7 +25,7 @@ source-repository head
2525 location: http://github.com/haskell-servant/servant.git
2626
2727library
28− exposed-modules: Servant.Foreign
28+ exposed-modules: Servant.Foreign, Servant.Foreign.Internal
2929 build-depends: base == 4.*
3030 , lens == 4.*
3131 , 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 @@
1616
1717-- | Generalizes all the data needed to make code generation work with
1818-- arbitrary programming languages.
19−module Servant.Foreign
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
19+module Servant.Foreign.Internal where
4820
4921import Control.Lens (makeLenses, (%~), (&), (.~), (<>~))
5022import qualified Data.Char as C