diff options
Diffstat (limited to 'spec/src')
-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 |