【修正前】 166バイト

main=do a:b:c:d<-getLine;read(a:[b])%read d
a%b=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-b))#(min(b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..b]]
a#b|a>0||b>0=2|1>0=0^(a*b)


【修正1】 165バイト

r=read
main=getLine>>=f.reads
f[(a,x:b)]=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-r b))#(min(r b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..r b]]
a#b|a>0||b>0=2|1>0=0^(a*b)

reads 関数の使い方がようやく分かってきたので、縮めることが出来た。
しかし、１バイトしか縮まないとは．．．

【修正2】 162バイト

main=getLine>>=f.reads
f[(a,p:q)]|b<-read q=mapM putStrLn[["-+|"!!((x-a-max(1-y)(y-b))#(min(b+1-y)(max(y-1)1)-x))|x<-[1..a]]|y<-[1..b]]
a#b|a>0||b>0=2|1>0=0^(a*b)

read した値を代入する結果は真って言えば、縮められるわけか。
別問題の模範解答から、ノウハウゲット！！
しかし、そろそろ限界かなあ