elm/compiler/SourceSyntax/Helpers.hs


module SourceSyntax.Helpers where

import Data.Char (isSymbol,isDigit)

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

isTuple name =
    take 5 name == "Tuple" && all isDigit (drop 5 name)

isOp c =
    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`

Start using the PrettyPrint library to show expressions, literals, and patterns. 2013-07-07 10:56:34 +00:00			`import Data.Char (isSymbol,isDigit)`
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 =`
			`take 5 name == "Tuple" && all isDigit (drop 5 name)`
Begin migrating the AST to its own branch for the source syntax of the language. 2013-06-14 01:00:24 +00:00
Start using the PrettyPrint library to show expressions, literals, and patterns. 2013-07-07 10:56:34 +00:00			`isOp c =`
			`isSymbol c \|\| elem c "+-/*=.$<>:&\|^?%#@~!"`