elm/compiler/SourceSyntax/Helpers.hs


module SourceSyntax.Helpers where

import qualified Data.Char as Char

brkt :: String -> String
brkt s = "{ " ++ s ++ " }"

isTuple :: String -> Bool
isTuple name =
    take 6 name == "_Tuple" && all Char.isDigit (drop 6 name)

isOp :: String -> Bool
isOp = all isSymbol

isSymbol :: Char -> Bool
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
Add types and `deprime` function to SourceSyntax.Helpers 2013-07-29 09:54:33 +00:00			`brkt :: String -> String`
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 ++ " }"`

Add types and `deprime` function to SourceSyntax.Helpers 2013-07-29 09:54:33 +00:00			`isTuple :: String -> Bool`
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
Add types and `deprime` function to SourceSyntax.Helpers 2013-07-29 09:54:33 +00:00			`isOp :: String -> Bool`
Create an `isOp` function for strings. 2013-07-16 19:37:48 +00:00			`isOp = all isSymbol`

Add types and `deprime` function to SourceSyntax.Helpers 2013-07-29 09:54:33 +00:00			`isSymbol :: Char -> Bool`
Create an `isOp` function for strings. 2013-07-16 19:37:48 +00:00			`isSymbol c =`
Add types and `deprime` function to SourceSyntax.Helpers 2013-07-29 09:54:33 +00:00			`Char.isSymbol c \|\| elem c "+-/*=.$<>:&\|^?%#@~!"`