Fix a typo in an error message
authorGabor Greif <ggreif@gmail.com>
Tue, 7 Oct 2014 08:20:08 +0000 (10:20 +0200)
committerGabor Greif <ggreif@gmail.com>
Tue, 7 Oct 2014 08:20:08 +0000 (10:20 +0200)
compiler/typecheck/TcTyClsDecls.lhs

index a4a7b29..aca9e51 100644 (file)
@@ -1703,7 +1703,7 @@ checkFamFlag tc_name
   = do { idx_tys <- xoptM Opt_TypeFamilies
        ; checkTc idx_tys err_msg }
   where
-    err_msg = hang (ptext (sLit "Illegal family declaraion for") <+> quotes (ppr tc_name))
+    err_msg = hang (ptext (sLit "Illegal family declaration for") <+> quotes (ppr tc_name))
                  2 (ptext (sLit "Use TypeFamilies to allow indexed type families"))
 \end{code}