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)