A simple calculator program

#1Error in Types.hs

Shouldn't it be Either in line 36

   getVar :: Text -> Env -> Result Double
   getVar v = maybe (Left err) Right . M.lookup v
        where err = v <> " undefined"