【修正前】　171バイト

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

【修正1】　169バイト

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

相当頑張ったが、これ以上先は見えない。。。

【修正2】　168バイト

main=do a:b:c:d<-getLine;read(a:[b])%read d
a%b=mapM putStrLn[["-+|"!!((x-max(a+1-y)(y+a-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)

【修正3】 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)

コメントのおかげでピッタリ２打削減。
しかし、逆に言うと、ここから先は　そのままでは削れませんよというアナウンスでもあるのかな。。。
しかし、直球でよく削れたと思う。