on master help sign in
Switch code for decision trees and pattern matching to Data.Utf8
5a3d912Evan Czaplicki
compiler/src/Nitpick/PatternMatches.hs+3−3
@@ -20,7 +20,7 @@ http://moscova.inria.fr/~maranget/papers/warn/warn.pdf
20import qualified Data.List as List
20import qualified Data.List as List
21import qualified Data.Map as Map
21import qualified Data.Map as Map
22import qualified Data.Maybe as Maybe
22import qualified Data.Maybe as Maybe
23−import qualified Data.Text as Text
23+import Data.Utf8 (Utf8)
24
24
25import qualified AST.Canonical as Can
25import qualified AST.Canonical as Can
26import qualified AST.Module.Name as ModuleName
26import qualified AST.Module.Name as ModuleName
@@ -41,8 +41,8 @@ data Pattern
41
41
42
42
43data Literal
43data Literal
44− = Chr Text.Text
44+ = Chr Utf8
45− | Str Text.Text
45+ | Str Utf8
46 | Int Int
46 | Int Int
47 deriving (Eq)
47 deriving (Eq)
48
48
compiler/src/Optimize/DecisionTree.hs+3−3
@@ -26,7 +26,7 @@ import Data.Binary
26import qualified Data.List as List
26import qualified Data.List as List
27import qualified Data.Maybe as Maybe
27import qualified Data.Maybe as Maybe
28import qualified Data.Set as Set
28import qualified Data.Set as Set
29−import Data.Text (Text)
29+import Data.Utf8 (Utf8)
30
30
31import qualified AST.Canonical as Can
31import qualified AST.Canonical as Can
32import qualified AST.Module.Name as ModuleName
32import qualified AST.Module.Name as ModuleName
@@ -77,8 +77,8 @@ data Test
77 | IsNil
77 | IsNil
78 | IsTuple
78 | IsTuple
79 | IsInt Int
79 | IsInt Int
80− | IsChr Text
80+ | IsChr Utf8
81− | IsStr Text
81+ | IsStr Utf8
82 | IsBool Bool
82 | IsBool Bool
83 deriving (Eq, Ord)
83 deriving (Eq, Ord)
84
84