-- |-- Module : Data.Text.Format.Params-- Copyright : (c) 2011 MailRank, Inc.---- License : BSD-style-- Maintainer : bos@serpentine.com-- Stability : experimental-- Portability : GHC---- Types that can be used as a collection of arguments for formatting.moduleData.Text.Format.Params(Params(..))whereimportData.Text.BuildableimportData.Text.Format.TypesimportData.Text.Lazy.Builder-- | The class of types that can be used as a collection of arguments-- for formatting.classParamspswherebuildParams::ps->[Builder]instanceParams()wherebuildParams_=[]instance(Buildablea)=>Params(Onlya)wherebuildParams(Onlya)=[builda]instance(Buildablea)=>Params[a]wherebuildParams=mapbuildinstance(Buildablea,Buildableb)=>Params(a,b)wherebuildParams(a,b)=[builda,buildb]instance(Buildablea,Buildableb,Buildablec)=>Params(a,b,c)wherebuildParams(a,b,c)=[builda,buildb,buildc]instance(Buildablea,Buildableb,Buildablec,Buildabled)=>Params(a,b,c,d)wherebuildParams(a,b,c,d)=[builda,buildb,buildc,buildd]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee)=>Params(a,b,c,d,e)wherebuildParams(a,b,c,d,e)=[builda,buildb,buildc,buildd,builde]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef)=>Params(a,b,c,d,e,f)wherebuildParams(a,b,c,d,e,f)=[builda,buildb,buildc,buildd,builde,buildf]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg)=>Params(a,b,c,d,e,f,g)wherebuildParams(a,b,c,d,e,f,g)=[builda,buildb,buildc,buildd,builde,buildf,buildg]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh)=>Params(a,b,c,d,e,f,g,h)wherebuildParams(a,b,c,d,e,f,g,h)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei)=>Params(a,b,c,d,e,f,g,h,i)wherebuildParams(a,b,c,d,e,f,g,h,i)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej)=>Params(a,b,c,d,e,f,g,h,i,j)wherebuildParams(a,b,c,d,e,f,g,h,i,j)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek)=>Params(a,b,c,d,e,f,g,h,i,j,k)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel)=>Params(a,b,c,d,e,f,g,h,i,j,k,l)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo,Buildablep)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo,buildp]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo,Buildablep,Buildabler)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo,buildp,buildr]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo,Buildablep,Buildabler,Buildables)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo,buildp,buildr,builds]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo,Buildablep,Buildabler,Buildables,Buildablet)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo,buildp,buildr,builds,buildt]instance(Buildablea,Buildableb,Buildablec,Buildabled,Buildablee,Buildablef,Buildableg,Buildableh,Buildablei,Buildablej,Buildablek,Buildablel,Buildablem,Buildablen,Buildableo,Buildablep,Buildabler,Buildables,Buildablet,Buildableu)=>Params(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t,u)wherebuildParams(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t,u)=[builda,buildb,buildc,buildd,builde,buildf,buildg,buildh,buildi,buildj,buildk,buildl,buildm,buildn,buildo,buildp,buildr,builds,buildt,buildu]