higherkindness/mu-haskell
1
1
Fork 0
mirror of https://github.com/higherkindness/mu-haskell.git synced 2024-09-11 14:36:01 +03:00
Code Issues Projects Releases Wiki Activity

📚 📸 Add book images to graphql library example (#252)

Browse Source
This commit is contained in:
Flavio Corpa 2020-11-12 09:16:33 +01:00 committed by GitHub
parent 6090317865
commit e4818ffcf4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 31 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/library/library.graphql
View File

@ -1,6 +1,7 @@
type Book {
id: Int!
title: String!
imageUrl: String!
author: Author!
}
@ -17,6 +18,7 @@ input NewAuthor {
input NewBook {
title: String!
authorId: Int!
imageUrl: String!
}
type Query {

3
examples/library/src/Schema.hs
View File

@ -37,6 +37,7 @@ Author json
deriving Show Generic
Book json
title T.Text
imageUrl T.Text
author AuthorId
UniqueTitlePerAuthor title author
deriving Show Generic
@ -51,6 +52,6 @@ newtype NewAuthor
deriving anyclass (FromSchema LibrarySchema "NewAuthor")
data NewBook
= NewBook { title :: T.Text, authorId :: Integer }
= NewBook { title :: T.Text, authorId :: Integer, imageUrl :: T.Text }
deriving stock (Eq, Show, Generic)
deriving anyclass (FromSchema LibrarySchema "NewBook")

36
examples/library/src/Server.hs
View File

@ -1,4 +1,5 @@
{-# language DataKinds #-}
{-# language NamedFieldPuns #-}
{-# language OverloadedStrings #-}
{-# language PartialTypeSignatures #-}
{-# language TypeApplications #-}
@ -51,9 +52,16 @@ main = do
insertSeedData :: SqlBackend -> LoggingT IO (Maybe ())
insertSeedData conn = sequence_ <$> traverse (uncurry $ insertAuthorAndBooks conn) seedData
where seedData =
[ (Author "Robert Louis Stevenson", [Book "Treasure Island", Book "Strange Case of Dr Jekyll and Mr Hyde"])
, (Author "Immanuel Kant", [Book "Critique of Pure Reason"])
, (Author "Michael Ende", [Book "The Neverending Story", Book "Momo"])
[ (Author "Robert Louis Stevenson",
[ Book "Treasure Island" "https://m.media-amazon.com/images/I/51C6NXR94gL.jpg"
, Book "Strange Case of Dr Jekyll and Mr Hyde" "https://m.media-amazon.com/images/I/51e8pkDxjfL.jpg"
])
, (Author "Immanuel Kant",
[ Book "Critique of Pure Reason" "https://m.media-amazon.com/images/I/51h+rBXrYeL.jpg"])
, (Author "Michael Ende",
[ Book "The Neverending Story" "https://m.media-amazon.com/images/I/51AnD2Fki3L.jpg"
, Book "Momo" "https://m.media-amazon.com/images/I/61AuiRa4nmL.jpg"
])
]
{- | Inserts Author and Books
@ -75,9 +83,10 @@ type ObjectMapping = '[
libraryServer :: SqlBackend -> ServerT ObjectMapping i Library ServerErrorIO _
libraryServer conn = resolver
( object @"Book"
( field @"id" bookId
, field @"title" bookTitle
, field @"author" bookAuthor
( field @"id" bookId
, field @"title" bookTitle
, field @"author" bookAuthor
, field @"imageUrl" bookImage
)
, object @"Author"
( field @"id" authorId
@ -99,15 +108,18 @@ libraryServer conn = resolver
bookId :: Entity Book -> ServerErrorIO Integer
bookId (Entity (BookKey k) _) = pure $ toInteger k
bookTitle :: Entity Book -> ServerErrorIO T.Text
bookTitle (Entity _ Book { bookTitle = t }) = pure t
bookTitle (Entity _ Book { bookTitle }) = pure bookTitle
bookAuthor :: Entity Book -> ServerErrorIO (Entity Author)
bookAuthor (Entity _ Book { bookAuthor = a }) = runDb conn $ Entity a . fromJust <$> get a
bookAuthor (Entity _ Book { bookAuthor }) = runDb conn $ Entity bookAuthor . fromJust <$> get bookAuthor
bookImage :: Entity Book -> ServerErrorIO T.Text
bookImage (Entity _ Book { bookImageUrl }) = pure bookImageUrl
authorId :: Entity Author -> ServerErrorIO Integer
authorId (Entity (AuthorKey k) _) = pure $ toInteger k
authorName :: Entity Author -> ServerErrorIO T.Text
authorName (Entity _ Author { authorName = t }) = pure t
authorName (Entity _ Author { authorName }) = pure authorName
authorBooks :: Entity Author -> ServerErrorIO [Entity Book]
authorBooks (Entity a _) = runDb conn $ selectList [BookAuthor ==. a] [Asc BookTitle]
authorBooks (Entity author _) = runDb conn $ selectList [BookAuthor ==. author] [Asc BookTitle]
allAuthors :: T.Text -> ServerErrorIO [Entity Author]
allAuthors nameFilter
@ -130,9 +142,9 @@ libraryServer conn = resolver
maybe (serverError $ ServerError Invalid errorMsg) pure maybeEntity
newBook :: NewBook -> ServerErrorIO (Entity Book)
newBook (NewBook title authorId) = do
newBook (NewBook title authorId img) = do
maybeEntity <- runDb conn $ do
let new = Book title (toAuthorId $ fromInteger authorId)
let new = Book title img (toAuthorId $ fromInteger authorId)
result <- insertUnique new
pure $ Entity <$> result <*> pure new
let errorMsg = "Book \"" <> T.unpack title <> "\" already exists"

7
graphql/src/Mu/GraphQL/Server.hs
View File

@ -45,10 +45,10 @@ import qualified Data.HashMap.Strict as HM
import Data.Proxy (Proxy (..))
import qualified Data.Text as T
import Data.Text.Encoding (decodeUtf8')
import Data.Text.Encoding.Error (UnicodeException (..))
import qualified Data.Text.Lazy.Encoding as T
import Language.GraphQL.Draft.Parser (parseExecutableDoc)
import qualified Language.GraphQL.Draft.Syntax as GQL
import Mu.Adapter.Json ()
import Network.HTTP.Types.Header (hContentType)
import Network.HTTP.Types.Method (StdMethod (..), parseMethod)
import Network.HTTP.Types.Status (ok200)
@ -57,11 +57,10 @@ import Network.Wai.Handler.Warp (Port, Settings, run, runSetti
import qualified Network.Wai.Handler.WebSockets as WS
import qualified Network.WebSockets as WS
import Data.Text.Encoding.Error (UnicodeException (..))
import Mu.GraphQL.Query.Parse (VariableMapC)
import Mu.GraphQL.Query.Run (GraphQLApp, runPipeline, runSubscriptionPipeline)
import Mu.GraphQL.Subscription.Protocol
import Mu.Server
import Mu.GraphQL.Subscription.Protocol (protocol)
import Mu.Server (ServerErrorIO, ServerT)
data GraphQLInput = GraphQLInput T.Text VariableMapC (Maybe T.Text)