fitsInColumnLimit :: Printer t a -> Printer t (Bool,PrintState t)
fitsInColumnLimit p =
  do (_,st) <- sandbox p
     columnLimit <- getColumnLimit
     return (psColumn st < columnLimit,st)

--------------------------------------------------------------------------------
-- Helpers
fitsInColumnLimit :: Printer t a -> Printer t (Bool,PrintState t)
fitsInColumnLimit p =
  do (_,st) <- sandbox p
     columnLimit <- getColumnLimit
     return (psColumn st < columnLimit,st)

--------------------------------------------------------------------------------
-- Helpers
fitsInColumnLimit p =
  do (_,st) <- sandbox p
     columnLimit <- getColumnLimit
     return (psColumn st < columnLimit,st)

--------------------------------------------------------------------------------
-- Helpers