some cleaning

This commit is contained in:
nek0 2024-02-28 13:09:05 +01:00
parent 96409f3118
commit f0a888decf
3 changed files with 7 additions and 12 deletions

View file

@ -11,7 +11,6 @@ module Main where
import Prelude as P import Prelude as P
import Crypto.JWT hiding (Context, header) import Crypto.JWT hiding (Context, header)
import Crypto.JOSE.JWK hiding (Context)
import Control.Concurrent.STM (newTQueueIO) import Control.Concurrent.STM (newTQueueIO)
import Control.Concurrent (forkIO) import Control.Concurrent (forkIO)
@ -20,9 +19,7 @@ import Servant
import Servant.Server.Experimental.Auth import Servant.Server.Experimental.Auth
import qualified Servant.OpenApi as OA import qualified Servant.OpenApi as OA
import Servant.Swagger.UI import Servant.Swagger.UI
import Servant.RawM import Servant.RawM.Server
import qualified Data.Aeson as A
import Data.Set as S (empty) import Data.Set as S (empty)
import qualified Data.ByteString.Lazy as B import qualified Data.ByteString.Lazy as B

View file

@ -93,7 +93,6 @@ library
, servant , servant
, servant-server , servant-server
, servant-openapi3 , servant-openapi3
, servant-rawm >= 0.3.0.0
, servant-rawm-server , servant-rawm-server
, opaleye , opaleye
, aeson , aeson
@ -151,7 +150,7 @@ executable mateamt
, network , network
, servant , servant
, servant-server , servant-server
, servant-rawm , servant-rawm-server
, servant-openapi3 , servant-openapi3
, servant-swagger-ui , servant-swagger-ui
, servant-swagger-ui-core , servant-swagger-ui-core

View file

@ -13,8 +13,7 @@ import Servant.Server
import Data.Proxy import Data.Proxy
import Servant.RawM import Servant.RawM.Server
import Servant.RawM.Server ()
-- internal imports -- internal imports
@ -124,7 +123,7 @@ journalShowLink :: Maybe Int -> Maybe Int -> Link
journalPostCheck :: Link journalPostCheck :: Link
avatarGetLink :: Int -> Link avatarGetLink :: Int -> Link
avaterInsertLink :: Link avatarInsertLink :: Link
avatarUpdateLink :: Int -> Link avatarUpdateLink :: Int -> Link
avatarListLink :: Link avatarListLink :: Link
@ -137,7 +136,7 @@ roleAssociationSubmitLink :: Link
roleAssociationDeleteLink :: Link roleAssociationDeleteLink :: Link
settingsGetLink :: Link settingsGetLink :: Link
settingsUpdateLnk :: Link settingsUpdateLink :: Link
metaGetLink :: Link metaGetLink :: Link
@ -168,7 +167,7 @@ metaGetLink :: Link
journalPostCheck :<|> journalPostCheck :<|>
avatarGetLink :<|> avatarGetLink :<|>
avaterInsertLink :<|> avatarInsertLink :<|>
avatarUpdateLink :<|> avatarUpdateLink :<|>
avatarListLink :<|> avatarListLink :<|>
@ -181,7 +180,7 @@ metaGetLink :: Link
roleAssociationDeleteLink :<|> roleAssociationDeleteLink :<|>
settingsGetLink :<|> settingsGetLink :<|>
settingsUpdateLnk :<|> settingsUpdateLink :<|>
metaGetLink metaGetLink
) = allLinks (Proxy :: Proxy MateAPI) ) = allLinks (Proxy :: Proxy MateAPI)