From 5a3d912e1015eeb4e3439915ce102dda7392e334 Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <evancz@users.noreply.github.com>
Date: Thu, 15 Nov 2018 17:41:29 -0500
Subject: [PATCH] Switch code for decision trees and pattern matching to
 Data.Utf8

---
 compiler/src/Nitpick/PatternMatches.hs | 6 +++---
 compiler/src/Optimize/DecisionTree.hs  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/src/Nitpick/PatternMatches.hs b/compiler/src/Nitpick/PatternMatches.hs
index 620bae72..8a6e5d01 100644
--- 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
index 5a8fa334..04f3c089 100644
--- 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)