Searched refs:patFail (Results 1 – 7 of 7) sorted by relevance
435 _ -> patFail ""436 _ -> patFail ""482 when (not . isNegatableLiteral $ lit) (patFail $ prettyPrint e')529 e -> patFail $ prettyPrint e531 checkPat e _ = patFail $ prettyPrint e556 patFail :: String -> P a557 patFail s = fail $ "Parse error in pattern: " ++ s function
1092 patFail l (ppr e)1100 = patFail loc (ppr e)1140 _ -> patFail loc (ppr e0)1157 patFail :: SrcSpan -> SDoc -> PV a1158 patFail loc e = addFatalError loc $ text "Parse error in pattern:" <+> ppr e function2033 _ -> patFail l (text "-" <> ppr p)2035 mkHsSectionR_PV l op p = patFail l (pprInfixOcc (unLoc op) <> ppr p)
1106 patFail (locA l) (ppr e <+> hsep [text "@" <> ppr t | t <- tyargs])1109 patFail (locA l) (ppr e)1118 checkPat loc e _ _ = patFail (locA loc) (ppr e)1162 _ -> patFail (locA loc) (ppr e0)1179 patFail :: SrcSpan -> SDoc -> PV a1180 patFail loc e = addFatalError $ PsError (PsErrParseErrorInPat e) [] loc function1793 _ -> patFail l (text "-" <> ppr p)1797 mkHsSectionR_PV l op p = patFail l (pprInfixOcc (unLoc op) <> ppr p)
1090 patFail l (ppr e)1104 = patFail loc (ppr e)1139 _ -> patFail loc (ppr e0)1161 patFail :: SrcSpan -> SDoc -> PV a1162 patFail loc e = addFatalError loc $ text "Parse error in pattern:" <+> ppr e function2175 _ -> patFail l (text "-" <> ppr p)2179 | otherwise = patFail l (pprInfixOcc (unLoc op) <> ppr p)