Separate tests into test/.

[haskell/symantic.git] / symantic-document / Language / Symantic / Document / ANSI.hs

diff --git a/symantic-document/Language/Symantic/Document/ANSI.hs b/symantic-document/Language/Symantic/Document/ANSI.hs
index 88ba849ac37db8ba07d76595b6039423471cf0a8..704657b421a57ad33921d5f2897c50ffa3740575 100644 (file)
--- a/symantic-document/Language/Symantic/Document/ANSI.hs
+++ b/symantic-document/Language/Symantic/Document/ANSI.hs
@@ -21,7 +21,7 @@ import Language.Symantic.Document.Sym
 -- * Type 'ANSI'
 newtype ANSI = ANSI { unANSI :: [SGR] -> TLB.Builder }
 instance IsString ANSI where
-       fromString s = ANSI $ \_c -> t
+       fromString s = ANSI $ const t
                where t = fromString s
 
 ansi :: ANSI -> TLB.Builder