diff options
| author | Ben Sima <ben@bsima.me> | 2024-05-03 22:34:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-05-09 21:38:52 -0400 |
| commit | d71c6f8c5955e8a9861e3f3957b293a369aac954 (patch) | |
| tree | da77bbbec8e082a77c0d553cf2216dce9b4ced0b /Biz/Que | |
| parent | d36b4360c9c359e6eea480b39e9699b1deae70f1 (diff) | |
Switch to nixpkgs-23.11, ghc 9.6.3
This brings a bunch of improvements. I got rid of some custom packages, I can
now build exllama without using a non-default cuda version. Oh yeah and I get to
use GHC 9.6.2 now, a huge upgrade from 9.4. Unfortunately I also updated ormolu
and some unrelated formatting changed, but that's life I guess.
Diffstat (limited to 'Biz/Que')
| -rw-r--r-- | Biz/Que/Host.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Biz/Que/Host.hs b/Biz/Que/Host.hs index 79254ad..f1b986c 100644 --- a/Biz/Que/Host.hs +++ b/Biz/Que/Host.hs @@ -127,25 +127,25 @@ data Paths path = Paths dash :: path :- "_" - :> "dash" - :> Get '[JSON] Ques, + :> "dash" + :> Get '[JSON] Ques, getQue :: path :- Capture "ns" Text - :> Capture "quename" Text - :> Get '[PlainText, HTML, OctetStream] Message, + :> Capture "quename" Text + :> Get '[PlainText, HTML, OctetStream] Message, getStream :: path :- Capture "ns" Text - :> Capture "quename" Text - :> "stream" - :> StreamGet NoFraming OctetStream (SourceIO Message), + :> Capture "quename" Text + :> "stream" + :> StreamGet NoFraming OctetStream (SourceIO Message), putQue :: path :- Capture "ns" Text - :> Capture "quepath" Text - :> ReqBody '[PlainText, HTML, OctetStream] Text - :> Post '[PlainText, HTML, OctetStream] NoContent + :> Capture "quepath" Text + :> ReqBody '[PlainText, HTML, OctetStream] Text + :> Post '[PlainText, HTML, OctetStream] NoContent } deriving (Generic) @@ -183,7 +183,7 @@ paths _ = |> str |> Go.write q >> Go.read q -- flush the que, otherwise msgs never clear - |> liftIO + |> liftIO -- TODO: detect number of readers, respond with "sent to N readers" or -- "no readers, msg lost" >> pure NoContent |