Searched refs:isMinBound (Results 1 – 5 of 5) sorted by relevance
47 , isMinBound582 isMinBound :: Platform -> Literal -> Bool583 isMinBound _ (LitChar c) = c == minBound function584 isMinBound platform (LitNumber nt i) = case nt of function597 isMinBound _ _ = False function
605 mkRuleFn platform Gt (Lit lit) _ | isMinBound platform lit = Just $ falseValInt platform606 mkRuleFn platform Le (Lit lit) _ | isMinBound platform lit = Just $ trueValInt platform607 mkRuleFn platform Ge _ (Lit lit) | isMinBound platform lit = Just $ trueValInt platform608 mkRuleFn platform Lt _ (Lit lit) | isMinBound platform lit = Just $ falseValInt platform615 isMinBound :: Platform -> Literal -> Bool616 isMinBound _ (LitChar c) = c == minBound function617 isMinBound platform (LitNumber nt i) = case nt of function624 isMinBound _ _ = False function
566 mkRuleFn dflags Gt (Lit lit) _ | isMinBound dflags lit = Just $ falseValInt dflags567 mkRuleFn dflags Le (Lit lit) _ | isMinBound dflags lit = Just $ trueValInt dflags568 mkRuleFn dflags Ge _ (Lit lit) | isMinBound dflags lit = Just $ trueValInt dflags569 mkRuleFn dflags Lt _ (Lit lit) | isMinBound dflags lit = Just $ falseValInt dflags576 isMinBound :: DynFlags -> Literal -> Bool577 isMinBound _ (LitChar c) = c == minBound function578 isMinBound dflags (LitNumber nt i _) = case nt of function585 isMinBound _ _ = False function
1072 mkRuleFn platform Gt (Lit lit) _ | isMinBound platform lit = Just $ falseValInt platform1073 mkRuleFn platform Le (Lit lit) _ | isMinBound platform lit = Just $ trueValInt platform1074 mkRuleFn platform Ge _ (Lit lit) | isMinBound platform lit = Just $ trueValInt platform1075 mkRuleFn platform Lt _ (Lit lit) | isMinBound platform lit = Just $ falseValInt platform