some cleaning
This commit is contained in:
parent
96409f3118
commit
f0a888decf
3 changed files with 7 additions and 12 deletions
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
11
src/API.hs
11
src/API.hs
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue