dummy HasClient ClientM WebSocket
Enough to let lockcontent routes be included and servant-client be used. But not enough to use servant-client with those routes. May need to implement a separate runner for that part of the protocol? Also some misc other stuff needed to use servant-client. And fix exposing of UUID in the JSON types. UUID does actually have aeson instances, but they're used elsewhere (metadata --batch, although only included to get it to compile, not actually used in there) and not suitable for use here since this must work with every possible UUID.
This commit is contained in:
parent
838169ee86
commit
9ee005e49a
4 changed files with 147 additions and 58 deletions
|
@ -16,6 +16,7 @@ import qualified Data.UUID as U
|
|||
import Data.Maybe
|
||||
import Data.String
|
||||
import Data.ByteString.Builder
|
||||
import Control.DeepSeq
|
||||
import qualified Data.Semigroup as Sem
|
||||
|
||||
import Git.Types (ConfigValue(..))
|
||||
|
@ -28,6 +29,10 @@ import qualified Utility.SimpleProtocol as Proto
|
|||
data UUID = NoUUID | UUID B.ByteString
|
||||
deriving (Eq, Ord, Show, Read)
|
||||
|
||||
instance NFData UUID where
|
||||
rnf NoUUID = ()
|
||||
rnf (UUID b) = rnf b
|
||||
|
||||
class FromUUID a where
|
||||
fromUUID :: UUID -> a
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue