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

This commit is contained in:
Evan Czaplicki 2018-11-15 17:41:29 -05:00
parent fb258705c4
commit 5a3d912e10
2 changed files with 6 additions and 6 deletions

View File

@ -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)

View File

@ -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)