Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

WIP: Quick check implementation #87

Open
wants to merge 13 commits into
base: master
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 12 additions & 0 deletions .editorconfig
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
# EditorConfig is awesome: https://EditorConfig.org

# top-most EditorConfig file
root = true

[*]
indent_style = space
indent_size = 4
end_of_line = lf
charset = utf-8
trim_trailing_whitespace = true
insert_final_newline = true
1 change: 1 addition & 0 deletions .github/workflows/s390x.yml
Original file line number Diff line number Diff line change
Expand Up @@ -31,6 +31,7 @@ jobs:
run: |
ghc --version
curl -s -L https://hackage.haskell.org/package/unicode-data-0.3.0.tar.gz | tar xz
export LC_ALL=C.UTF-8
ghc --make -XMagicHash -XBangPatterns -XUnboxedTuples -itest:unicode-data-0.3.0/lib -o extras test/Extra.hs
./extras
ghc --make -XMagicHash -XBangPatterns -XUnboxedTuples -itest:unicode-data-0.3.0/lib -o quickcheck test/Properties.hs
Expand Down
3 changes: 3 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -23,3 +23,6 @@ cabal.project.local~

unicode-data/ucdxml/ucd.all.flat.pdb
unicode-data/ucdxml/ucd.all.flat.xml

*.csv
ucd/
10 changes: 5 additions & 5 deletions Data/Text/Normalize.hs
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,7 @@ import Data.Unicode.Types (NormalizationMode(..))
import Data.Unicode.Internal.NormalizeStream
( DecomposeMode(..)
, stream
, unstream
, unstreamD
, unstreamC
)

Expand All @@ -34,7 +34,7 @@ import Data.Unicode.Internal.NormalizeStream
normalize :: NormalizationMode -> Text -> Text
normalize mode =
case mode of
NFD -> (unstream Canonical) . stream
NFKD -> (unstream Kompat) . stream
NFC -> (unstreamC Canonical) . stream
NFKC -> (unstreamC Kompat) . stream
NFD -> (unstreamD Canonical) . stream
NFKD -> (unstreamD Kompat) . stream
NFC -> (unstreamC Canonical) . stream
NFKC -> (unstreamC Kompat) . stream
73 changes: 73 additions & 0 deletions Data/Unicode/Internal/Char/DerivedNormalizationProperties.hs

Large diffs are not rendered by default.

Loading