[
Size: a a a
[
JJ
JJ
N
N
JJ
N
JJ
N
JJ
N
N
N
JJ
N
[
LO
N
aK
initApi :: KeyString -> Apiи потом это использовать в связке с RecordWildcards на такой манер:
data Api = Api
{ find :: FindReq -> IO Resp
, getDetails :: DetailsReq -> IO Resp
}
import Foo.Bar.ApiПодходит ли это или есть что-то по-лучше?
Api{..} = initApi myKey
main = do
resp <- find args
details <- getDetails (find'item resp)
print details