-- | Basic error checking for other libraries.moduleLanguage.Copilot.Libs.ErrorChks(nOneChk,nPosChk,int16Chk)whereimportPrelude(Num,Integral,Int,String,error,($),show,maxBound,toInteger)importqualifiedPreludeasPimportData.Int(Int16)importLanguage.Copilot.Corechk::String->Int->Speca->Int->Specachknamensm=ifnP.<mthenerror$"Value "P.++shownP.++" in operator "P.++nameP.++" must be greater than or equal to "P.++showmP.++"."elsesnPosChk::String->Int->Speca->SpecanPosChknamens=chknamens0nOneChk::String->Int->Speca->SpecanOneChknamens=chknamens1int16Chk::String->Int->Speca->Specaint16Chknamens=if(toIntegern)P.>maxthenerror$"Offset "P.++shownP.++" in operator "P.++nameP.++" is larger than the Int16 maxBound, "P.++showmaxP.++"."elseswheremax=toInteger(maxBound::Int16)