$OpenBSD: patch-src_Window_hs,v 1.3 2016/11/23 13:24:05 dcoppa Exp $

commit fd10cff3c73cb6fc99c3c34473685bf8b95dccdb
Author: jao <jao@gnu.org>
Date:   Mon Nov 21 21:19:47 2016 +0100

Bug fix: off-by-one drawing borders

--- src/Window.hs.orig	Mon Sep  5 17:49:18 2016
+++ src/Window.hs	Wed Nov 23 14:17:04 2016
@@ -178,7 +178,7 @@ drawBorder b lw d p gc c wi ht =  case b of
   FullBM m   -> let mp = fi m
                     pad = 2 * fi mp +  fi lw
                 in sf >> sla >>
-                     drawRectangle d p gc mp mp (wi - pad + 1) (ht - pad)
+                     drawRectangle d p gc mp mp (wi - pad) (ht - pad)
   where sf    = setForeground d gc c
         sla   = setLineAttributes d gc (fi lw) lineSolid capNotLast joinMiter
         boff  = borderOffset b lw
