Make TextDetails strict in the NoAnnot constructor
authorTrevor Elliott <trevor@galois.com>
Tue, 27 Jan 2015 01:07:43 +0000 (17:07 -0800)
committerTrevor Elliott <trevor@galois.com>
Tue, 27 Jan 2015 01:07:43 +0000 (17:07 -0800)
src/Text/PrettyPrint/Annotated/HughesPJ.hs

index de89c8e..8670fbd 100644 (file)
@@ -238,7 +238,7 @@ Notice the difference between
 type RDoc = Doc
 
 data AnnotDetails a = AnnotStart
-                    | NoAnnot TextDetails {-# UNPACK #-} !Int
+                    | NoAnnot !TextDetails {-# UNPACK #-} !Int
                     | AnnotEnd a
                       deriving (Show,Eq)