diff options
| -rw-r--r-- | spec/src/Thermoprint/Printout.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/spec/src/Thermoprint/Printout.hs b/spec/src/Thermoprint/Printout.hs index 29da2cb..44ec5e1 100644 --- a/spec/src/Thermoprint/Printout.hs +++ b/spec/src/Thermoprint/Printout.hs | |||
| @@ -183,7 +183,7 @@ prop_text x = (cotext . either id Line . text $ x') == x' | |||
| 183 | , c `elem` keep = c | 183 | , c `elem` keep = c |
| 184 | | isSpace c = ' ' -- We have to do this because all whitespace gets interpreted as width 1 | 184 | | isSpace c = ' ' -- We have to do this because all whitespace gets interpreted as width 1 |
| 185 | | otherwise = c | 185 | | otherwise = c |
| 186 | keep = [' ', '\n'] | 186 | keep = [' ', '\n'] :: [Char] |
| 187 | 187 | ||
| 188 | -- | We don't test 'Raw' 'Chunk's | 188 | -- | We don't test 'Raw' 'Chunk's |
| 189 | instance Arbitrary Chunk where | 189 | instance Arbitrary Chunk where |