minor changes

.gitignore

@@ -1,5 +1,4 @@
-/tutorial.md
-/.stack-work/
+.stack-work/
 .lish-history
 *.tix
 stack.yaml.lock

src/Lish/Eval.hs

@@ -85,8 +85,8 @@ _reduceLambda (Atom x) = do
     Just s -> return s
     _      -> case InternalCommands.lookup x of
       Just cmd -> return (Internal cmd)
-      _         -> return (Str x)
-_reduceLambda x          = return x
+      _        -> return (Str x)
+_reduceLambda x = return x
 
 reduceLambda :: SExp -> StateT Env IO SExp
 reduceLambda x = do

src/Lish/Types.hs

@@ -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]