LICENSEmode 100644 → 100755
Only the mode changed.
Procfilemode 100644 → 100755
Only the mode changed.
Setup.hsmode 100644 → 100755
Only the mode changed.
app.jsonmode 100644 → 100755
Only the mode changed.
app/Main.hsmode 100644 → 100755
Only the mode changed.
docs.mdmode 100644 → 100755
Only the mode changed.
docs/Docs.hsmode 100644 → 100755
Only the mode changed.
package.yamlmode 100644 → 100755
Only the mode changed.
readme.mdmode 100644 → 100755+4−2
@@ -20,7 +20,7 @@ _url: [`https://websuck1t.herokuapp.com`](https://websuck1t.herokuapp.com)_
2020```javascript
2121{
2222 "token": 1,
23− "reponse": [
23+ "response": [
2424 {
2525 "postBody": "This is the post body",
2626 "postAuthor": 4,
@@ -124,6 +124,8 @@ Retrieves a user with the given `id`.
124124
125125## WebSocket /posts/subscribe/:token
126126
127+You access the web socket with the web socket protocol. I. e. `https://` -> `ws://`.
128+
127129Open a web socket from the given `token` for receiving events about new and deleted posts.
128130
129131#### Returns error `498` if the supplied token has expired or is invalid.
@@ -138,7 +140,7 @@ Open a web socket from the given `token` for receiving events about new and dele
138140```javascript
139141{
140142 "token": 1828,
141− "reponse": {
143+ "response": {
142144 "deleted": [
143145 1819,
144146 1835,
src/Data/CyclicBuffer.hsmode 100644 → 100755
Only the mode changed.
src/Data/Error.hsmode 100644 → 100755
Only the mode changed.
src/Foo/Data.hsmode 100644 → 100755+3−3
@@ -85,14 +85,14 @@ createConfig :: IO Config
8585createConfig = do
8686 mng <- newManager tlsManagerSettings
8787 cfg <- atomically $ Config <$> newTVar 0 <*> newTVar 0 <*> newTVar M.empty <*> newTVar M.empty <*> return mng <*> newTVar M.empty <*> newTVar 0 <*> newTVar (CB.empty 20)
88− forkIO . forever $ threadDelay 7000000 >> (runHandler . createApp cfg $ startAddingPosts 20 cfg >>= uncurry sendUpdate)
88+ forkIO . forever $ threadDelay 2000000 >> (runHandler . createApp cfg $ startAddingPosts 20 cfg >>= uncurry sendUpdate)
8989 return cfg
9090
9191type Token = Int
9292
9393data TokenizedResponse d = TokenizedResponse {
9494 token :: Token,
95− reponse :: d
95+ response :: d
9696} deriving Generic
9797
9898instance ToJSON d => ToJSON (TokenizedResponse d)
@@ -165,7 +165,7 @@ startAddingPosts lim cfg = do
165165 let us = users cfg
166166 let ps = posts cfg
167167
168− a <- liftIO $ loremBacon (manager cfg) (Just AllMeat) (Just lim) (Just False)
168+ a <- liftIO $ loremBacon (manager cfg) (Just AllMeat) (Just lim) (Just 0)
169169 g <- liftIO newStdGen
170170 let rns = randoms g
171171
src/Lib.hsmode 100644 → 100755
Only the mode changed.
src/Network/Bacon.hsmode 100644 → 100755+3−3
@@ -21,15 +21,15 @@ instance ToHttpApiData LoremType where
2121 toQueryParam MeatAndFiller = "meat-and-filler"
2222 toQueryParam AllMeat = "all-meat"
2323
24−type API = QueryParam "type" LoremType :> QueryParam "paras" Int :> QueryParam "start-with-lorem" Bool :> Get '[JSON] [Text]
24+type API = QueryParam "type" LoremType :> QueryParam "paras" Int :> QueryParam "start-with-lorem" Int :> Get '[JSON] [Text]
2525
2626clientAPI :: Proxy API
2727clientAPI = Proxy
2828
29−loremBacon' :: Maybe LoremType -> Maybe Int -> Maybe Bool -> ClientM [Text]
29+loremBacon' :: Maybe LoremType -> Maybe Int -> Maybe Int -> ClientM [Text]
3030loremBacon' = client clientAPI
3131
32−loremBacon :: Manager -> Maybe LoremType -> Maybe Int -> Maybe Bool -> IO (Maybe [Text])
32+loremBacon :: Manager -> Maybe LoremType -> Maybe Int -> Maybe Int -> IO (Maybe [Text])
3333loremBacon mng a b c = do
3434 let env = mkClientEnv mng (BaseUrl Https "baconipsum.com" 443 "api")
3535 res <- runClientM (loremBacon' a b c) env
stack.yamlmode 100644 → 100755
Only the mode changed.
swagger/Swagger.hsmode 100644 → 100755
Only the mode changed.
test/Spec.hsmode 100644 → 100755
Only the mode changed.