mirror of
https://github.com/OpenAPITools/openapi-generator.git
synced 2025-05-25 19:10:55 +00:00
36 lines
815 B
Haskell
36 lines
815 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Monad (void)
|
|
import Control.Monad.Trans.Either
|
|
import Control.Monad.IO.Class
|
|
import Servant.API
|
|
import Servant.Client
|
|
|
|
import Data.List.Split (splitOn)
|
|
import Network.URI (URI (..), URIAuth (..), parseURI)
|
|
import Data.Maybe (fromMaybe)
|
|
import Test.QuickCheck
|
|
import Control.Monad
|
|
import Model.User
|
|
import Model.Category
|
|
import Model.Pet
|
|
import Model.Tag
|
|
import Model.Order
|
|
import Api.UserApi
|
|
import Api.PetApi
|
|
import Api.StoreApi
|
|
|
|
-- userClient :: IO ()
|
|
-- userClient = do
|
|
-- users <- sample' (arbitrary :: Gen String)
|
|
-- let user = last users
|
|
-- void . runEitherT $ do
|
|
-- getUserByName user >>= (liftIO . putStrLn . show)
|
|
|
|
main :: IO ()
|
|
main = putStrLn "Hello Server!"
|