From 2bbaf2540cd30cb608f53114cced144b2083ddd8 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 18 Jan 2016 06:40:49 +0000
Subject: compatability with OverloadedLists

---
 spec/src/Thermoprint/Printout.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'
       , c `elem` keep = c
       | isSpace c = ' ' -- We have to do this because all whitespace gets interpreted as width 1
       | otherwise = c
-    keep = [' ', '\n']
+    keep = [' ', '\n'] :: [Char]
 
 -- | We don't test 'Raw' 'Chunk's
 instance Arbitrary Chunk where
-- 
cgit v1.2.3