diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-18 06:40:49 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-18 06:40:49 +0000 |
| commit | 2bbaf2540cd30cb608f53114cced144b2083ddd8 (patch) | |
| tree | 90a2574d611705c85dc75c04daf42b01f1c190d6 /spec/src/Thermoprint/Printout.hs | |
| parent | 260b98e5bd9c5592f41e778910cfbed023b5ea1c (diff) | |
| download | thermoprint-2bbaf2540cd30cb608f53114cced144b2083ddd8.tar thermoprint-2bbaf2540cd30cb608f53114cced144b2083ddd8.tar.gz thermoprint-2bbaf2540cd30cb608f53114cced144b2083ddd8.tar.bz2 thermoprint-2bbaf2540cd30cb608f53114cced144b2083ddd8.tar.xz thermoprint-2bbaf2540cd30cb608f53114cced144b2083ddd8.zip | |
compatability with OverloadedLists
Diffstat (limited to 'spec/src/Thermoprint/Printout.hs')
| -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 |