mirror of
https://github.com/gren-lang/compiler.git
synced 2024-10-26 18:00:47 +03:00
Switch code for decision trees and pattern matching to Data.Utf8
This commit is contained in:
parent
fb258705c4
commit
5a3d912e10
@ -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)
|
||||
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user