diff --git a/src/GF/Parsing/FCFG/Active.hs b/src/GF/Parsing/FCFG/Active.hs
index 7a1163a59..f4d31b9db 100644
--- a/src/GF/Parsing/FCFG/Active.hs
+++ b/src/GF/Parsing/FCFG/Active.hs
@@ -37,7 +37,7 @@ import Data.Array
 ----------------------------------------------------------------------
 -- * parsing
 
-parse :: (Ord c, Print n, Ord n, Ord t) => String -> FCFParser c n t
+parse :: (Ord c, Ord n, Ord t) => String -> FCFParser c n t
 parse strategy pinfo starts toks =
     [ Abs (cat, found) (zip rhs rrecs) fun |
       Final ruleid found rrecs <- listXChartFinal chart,