Switch code for decision trees and pattern matching to Data.Utf8

elm · Nov 15, 2018 · 5a3d912 · 5a3d912
1 parent fb25870
commit 5a3d912
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/compiler/src/Nitpick/PatternMatches.hs b/compiler/src/Nitpick/PatternMatches.hs
@@ -20,7 +20,7 @@ http://moscova.inria.fr/~maranget/papers/warn/warn.pdf
 import qualified Data.List as List
 import qualified Data.Map as Map
 import qualified Data.Maybe as Maybe
-import qualified Data.Text as Text
+import Data.Utf8 (Utf8)
 
 import qualified AST.Canonical as Can
 import qualified AST.Module.Name as ModuleName
@@ -41,8 +41,8 @@ data Pattern
 
 
 data Literal
-  = Chr Text.Text
-  | Str Text.Text
+  = Chr Utf8
+  | Str Utf8
   | Int Int
   deriving (Eq)
 

diff --git a/compiler/src/Optimize/DecisionTree.hs b/compiler/src/Optimize/DecisionTree.hs
@@ -26,7 +26,7 @@ import Data.Binary
 import qualified Data.List as List
 import qualified Data.Maybe as Maybe
 import qualified Data.Set as Set
-import Data.Text (Text)
+import Data.Utf8 (Utf8)
 
 import qualified AST.Canonical as Can
 import qualified AST.Module.Name as ModuleName
@@ -77,8 +77,8 @@ data Test
   | IsNil
   | IsTuple
   | IsInt Int
-  | IsChr Text
-  | IsStr Text
+  | IsChr Utf8
+  | IsStr Utf8
   | IsBool Bool
   deriving (Eq, Ord)