Correction : Lib.Leijen.plain : IfColor.
authorJulien Moutinho <julm+hcompta@autogeree.net>
Thu, 28 May 2015 04:01:35 +0000 (06:01 +0200)
committerJulien Moutinho <julm+hcompta@autogeree.net>
Thu, 28 May 2015 06:24:52 +0000 (08:24 +0200)
lib/Hcompta/Lib/Leijen.hs

index 0ac9a111ed1a4aaed3bb40a1f712d2c65dfd1670..be8e13b370ffdf5d161795deb6ba0daa3fd5e80b 100644 (file)
@@ -1108,7 +1108,7 @@ plain (Nesting f)     = Nesting (plain . f)
 plain (Spaces l)      = Spaces l
 plain (Color _ _ _ x) = plain x
 plain (Intensify _ x) = plain x
-plain (IfColor _ x)   = plain x
+plain (IfColor t f)   = IfColor (plain t) (plain f)
 plain (Italicize _ x) = plain x
 plain (Underline _ x) = plain x
 plain (RestoreFormat _ _ _ _ _) = Empty