Fix length calculation for combined characters

src/Text/GridTable/Trace.hs

@@ -30,7 +30,7 @@ import Data.List (foldl')
 import Data.Maybe (fromMaybe)
 import Data.Set (Set)
 import Data.Text (Text)
-import Text.DocLayout (charWidth)
+import Text.DocLayout (charWidth, realLength)
 import Text.GridTable.ArrayTable
 import qualified Data.Map.Strict as Map
 import qualified Data.Set as Set
@@ -99,7 +99,7 @@ initialTraceInfo = TraceInfo
 -- | Converts a list of lines into a char array.
 toCharGrid :: [Text] -> CharGrid
 toCharGrid lines =
-  let chars = foldr (\t m -> max m (T.length t)) 0 lines -- potential overcount
+  let chars = foldr (\t m -> max m (realLength t)) 0 lines -- potential overcount
       gbounds = ( (CharRow 1, CharCol 1)
                 , (CharRow (length lines), CharCol chars)
                 )

test/test-gridtables.hs

@@ -372,6 +372,23 @@ gridTableTests = testGroup "parseArrayTable"
                 , arrayTableColSpecs = defaultAlign [10, 1]
                 })
 
+    , testCase "combined characters" $
+      let gt = T.unlines
+               [ "+---+------+"
+               , "| a | back |"
+               , "+===+======+"
+               , "| ø̞ | o̞    |"
+               , "+---+------+"
+               ]
+      in parse' gridTable gt @?=
+         Right (ArrayTable 
+                { arrayTableCells = listArray ((1,1),(2,2))
+                  [ ContentCell 1 1 [" a "], ContentCell 1 1 [" back "], ContentCell 1 1 [" ø̞ "], ContentCell 1 1 [" o̞    "]]
+                , arrayTableHead = Just 1
+                , arrayTableFoot = Nothing
+                , arrayTableColSpecs = defaultAlign [3, 6]
+                })
+
     ]
 
   , testCase "unterminated row" $