minor changes
This commit is contained in:
parent
d3e03799d2
commit
8954403bcb
3 changed files with 11 additions and 11 deletions
3
.gitignore
vendored
3
.gitignore
vendored
|
@ -1,5 +1,4 @@
|
|||
/tutorial.md
|
||||
/.stack-work/
|
||||
.stack-work/
|
||||
.lish-history
|
||||
*.tix
|
||||
stack.yaml.lock
|
||||
|
|
|
@ -27,13 +27,14 @@ import GHC.IO.Handle (Handle)
|
|||
import GHC.Show (Show (..))
|
||||
import Protolude hiding (show,repr)
|
||||
|
||||
data ExprF a = Atom Text
|
||||
| Num Integer
|
||||
| Bool Bool
|
||||
| Str Text
|
||||
| List [a]
|
||||
| Lambda [a]
|
||||
| Void
|
||||
-- | Type representing an expression
|
||||
data ExprF a = Atom Text -- ^ an atom is just a variable name
|
||||
| Num Integer -- ^ a number
|
||||
| Bool Bool -- ^ a boolean
|
||||
| Str Text -- ^ a string
|
||||
| List [a] -- ^ a list
|
||||
| Lambda [a] -- ^ a function (lambda expression)
|
||||
| Void -- ^ an empty value
|
||||
-- only exists during evaluation
|
||||
| Internal InternalCommand
|
||||
| Fn { params :: [Text]
|
||||
|
|
Loading…
Reference in a new issue