Switch code for decision trees and pattern matching to Data.Utf8
commit5a3d912e1015eeb4e3439915ce102dda7392e334
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 15 Nov 2018, 17:41 (8 years ago)
parentfb25870
compiler/src/Nitpick/PatternMatches.hs+3−3
@@ -20,7 +20,7 @@ http://moscova.inria.fr/~maranget/papers/warn/warn.pdf
2020import qualified Data.List as List
2121import qualified Data.Map as Map
2222import qualified Data.Maybe as Maybe
23−import qualified Data.Text as Text
23+import Data.Utf8 (Utf8)
2424
2525import qualified AST.Canonical as Can
2626import qualified AST.Module.Name as ModuleName
@@ -41,8 +41,8 @@ data Pattern
4141
4242
4343data Literal
44− = Chr Text.Text
45− | Str Text.Text
44+ = Chr Utf8
45+ | Str Utf8
4646 | Int Int
4747 deriving (Eq)
4848
compiler/src/Optimize/DecisionTree.hs+3−3
@@ -26,7 +26,7 @@ import Data.Binary
2626import qualified Data.List as List
2727import qualified Data.Maybe as Maybe
2828import qualified Data.Set as Set
29−import Data.Text (Text)
29+import Data.Utf8 (Utf8)
3030
3131import qualified AST.Canonical as Can
3232import qualified AST.Module.Name as ModuleName
@@ -77,8 +77,8 @@ data Test
7777 | IsNil
7878 | IsTuple
7979 | IsInt Int
80− | IsChr Text
81− | IsStr Text
80+ | IsChr Utf8
81+ | IsStr Utf8
8282 | IsBool Bool
8383 deriving (Eq, Ord)
8484