naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-03-20 15:14:54 +09:00
Code Activity

Migration: Safe IsString instances for Field, Entity, Unique

Browse source
This commit is contained in:
fr33domlover 2016-09-01 17:37:20 +00:00
parent e027789fbd
commit cd1f7af46e
2 changed files with 66 additions and 1 deletions
src/Data/Char
Local.hs

4
src/Data/Char/Local.hs
View file

@ -21,8 +21,10 @@ where
import Prelude
import Data.Char
isAsciiLetter :: Char -> Bool
isAsciiLetter c = 'A' <= c && c <= 'Z' || 'a' <= c && c <= 'z'
isAsciiLetter c = isAsciiLower c || isAsciiUpper c
isNewline :: Char -> Bool
isNewline c = c == '\n' || c == '\r'