ms2k/nuthatch
SHA256
Watch
0
Code Releases Activity

Complete runtime resilience and audit controls

Browse source
This commit is contained in:
ms2k 2026-07-19 03:41:01 +09:00
commit 728abdbbf1
1 changed files with 1466 additions and 251 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Nuthatch/Api.hs
View file

@ -105,7 +105,7 @@ data SessionContext = SessionContext
{ sessionUser :: SessionUser
, sessionCsrf :: Maybe CsrfToken
}
deriving stock (Eq, Show)
deriving stock (Eq)
data SessionAuth
@ -170,7 +170,7 @@ data DeleteRequest = DeleteRequest
, deleteOperationId :: OperationId
, deleteCsrf :: CsrfToken
}
deriving stock (Eq, Show)
deriving stock (Eq)
instance FromJSON DeleteRequest where
parseJSON = withObject "DeleteRequest" $ \o ->
@ -185,7 +185,7 @@ data DeletePrefixRequest = DeletePrefixRequest
, deletePrefixPath :: RelativePath
, deletePrefixCsrf :: CsrfToken
}
deriving stock (Eq, Show)
deriving stock (Eq)
instance FromJSON DeletePrefixRequest where
parseJSON = withObject "DeletePrefixRequest" $ \o ->
@ -378,7 +378,7 @@ data SessionResponse = SessionResponse
, sessionResponseDisplay :: Maybe Text
, sessionResponseCsrf :: CsrfToken
}
deriving stock (Eq, Show)
deriving stock (Eq)
instance ToJSON SessionResponse where
toJSON response = object
@ -416,7 +416,7 @@ data DeleteBatchRequest = DeleteBatchRequest
, deleteBatchCsrf :: CsrfToken
, deleteBatchItems :: [DeleteBatchItem]
}
deriving stock (Eq, Show)
deriving stock (Eq)
instance FromJSON DeleteBatchRequest where
parseJSON = withObject "DeleteBatchRequest" $ \o ->