elm/compiler/SourceSyntax/Helpers.hs


module SourceSyntax.Helpers where

import qualified Data.Char as Char

brkt s = "{ " ++ s ++ " }"

isTuple name =
    take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)

isOp = all isSymbol

isSymbol c =
    Char.isSymbol c || elem c "+-/*=.$<>:&|^?%#@~!"
Begin migrating the AST to its own branch for the source syntax of the language. 2013-06-14 01:00:24 +00:00
			`module SourceSyntax.Helpers where`

Create an `isOp` function for strings. 2013-07-16 19:37:48 +00:00			`import qualified Data.Char as Char`
Begin migrating the AST to its own branch for the source syntax of the language. 2013-06-14 01:00:24 +00:00
			`brkt s = "{ " ++ s ++ " }"`

Start using the PrettyPrint library to show expressions, literals, and patterns. 2013-07-07 10:56:34 +00:00			`isTuple name =`
Create an `isOp` function for strings. 2013-07-16 19:37:48 +00:00			`take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)`
Begin migrating the AST to its own branch for the source syntax of the language. 2013-06-14 01:00:24 +00:00
Create an `isOp` function for strings. 2013-07-16 19:37:48 +00:00			`isOp = all isSymbol`

			`isSymbol c =`
			`Char.isSymbol c \|\| elem c "+-/*=.$<>:&\|^?%#@~!"`