Browse Source

gitignore and w/e

canon
abraham levine 3 years ago
parent
commit
aedbc4775e
81 changed files with 93 additions and 2823 deletions
  1. +92
    -0
      .gitignore
  2. +0
    -0
      LICENSE
  3. +1
    -3
      README.md
  4. +0
    -0
      Setup.hs
  5. +0
    -0
      TAGS
  6. +0
    -0
      app/Main.hs
  7. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.dyn_hi
  8. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.dyn_o
  9. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.hi
  10. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.o
  11. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.dyn_hi
  12. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.dyn_o
  13. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.hi
  14. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.o
  15. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.dyn_hi
  16. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.dyn_o
  17. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.hi
  18. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.o
  19. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.dyn_hi
  20. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.dyn_o
  21. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.hi
  22. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.o
  23. +0
    -50
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/autogen/Paths_very_nice2.hs
  24. +0
    -125
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/autogen/cabal_macros.h
  25. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO-ghc8.0.2.so
  26. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO.a
  27. +0
    -319
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Error.dump-hi
  28. +0
    -303
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Eval.dump-hi
  29. +0
    -442
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/LispVal.dump-hi
  30. +0
    -832
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Parse.dump-hi
  31. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/very-nice2-exe/very-nice2-exe
  32. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/very-nice2-exe/very-nice2-exe-tmp/Main.hi
  33. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/very-nice2-exe/very-nice2-exe-tmp/Main.o
  34. +0
    -111
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/very-nice2-exe/very-nice2-exe-tmp/app/Main.dump-hi
  35. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/package.conf.inplace/package.cache
  36. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/setup-config
  37. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/stack-build-cache
  38. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/stack-cabal-mod
  39. BIN
      main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/stack-config-cache
  40. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/bin/very-nice2-exe
  41. +0
    -30
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/doc/very-nice2-0.1.0.0/LICENSE
  42. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/flag-cache/parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX
  43. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/flag-cache/primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh
  44. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/flag-cache/text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00
  45. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/flag-cache/vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ
  46. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/flag-cache/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO
  47. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO-ghc8.0.2.so
  48. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/Eval.dyn_hi
  49. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/Eval.hi
  50. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/LispVal.dyn_hi
  51. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/LispVal.hi
  52. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/Parse.dyn_hi
  53. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/Scheme/Parse.hi
  54. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO.a
  55. BIN
      main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/pkgdb/package.cache
  56. +0
    -31
      main/.stack-work/logs/parsec-3.1.11.log
  57. +0
    -37
      main/.stack-work/logs/primitive-0.6.2.0.log
  58. +0
    -50
      main/.stack-work/logs/text-1.2.2.2.log
  59. +0
    -42
      main/.stack-work/logs/vector-0.12.0.1.log
  60. BIN
      main/2017-09-27-144804_487x32_scrot.png
  61. BIN
      main/2017-09-27-144816_488x39_scrot.png
  62. BIN
      main/2017-10-03-144502_565x104_scrot.png
  63. +0
    -1
      main/README.md
  64. +0
    -11
      main/app/Main.hs~
  65. +0
    -29
      main/src/Scheme/Error.hs~
  66. +0
    -115
      main/src/Scheme/Eval.hs~
  67. +0
    -24
      main/src/Scheme/LispVal.hs~
  68. +0
    -194
      main/src/Scheme/Parse.hs~
  69. +0
    -38
      main/very-nice2.cabal~
  70. +0
    -0
      src/Scheme/Error.hs
  71. +0
    -0
      src/Scheme/Eval.hs
  72. +0
    -0
      src/Scheme/LispVal.hs
  73. +0
    -0
      src/Scheme/Parse.hs
  74. +0
    -0
      stack.yaml
  75. +0
    -10
      stdlib/main.scm
  76. +0
    -6
      stdlib/main.scm~
  77. +0
    -3
      stdlib/types/boolean.scm
  78. +0
    -12
      stdlib/types/main.scm
  79. +0
    -5
      stdlib/types/main.scm~
  80. +0
    -0
      test/Spec.hs
  81. +0
    -0
      very-nice2.cabal

+ 92
- 0
.gitignore View File

@ -0,0 +1,92 @@
# Created by https://www.gitignore.io/api/emacs,haskell
### Emacs ###
# -*- mode: gitignore; -*-
*~
\#*\#
/.emacs.desktop
/.emacs.desktop.lock
*.elc
auto-save-list
tramp
.\#*
# Org-mode
.org-id-locations
*_archive
# flymake-mode
*_flymake.*
# eshell files
/eshell/history
/eshell/lastdir
# elpa packages
/elpa/
# reftex files
*.rel
# AUCTeX auto folder
/auto/
# cask packages
.cask/
dist/
# Flycheck
flycheck_*.el
# server auth directory
/server/
# projectiles files
.projectile
projectile-bookmarks.eld
# directory configuration
.dir-locals.el
# saveplace
places
# url cache
url/cache/
# cedet
ede-projects.el
# smex
smex-items
# company-statistics
company-statistics-cache.el
# anaconda-mode
anaconda-mode/
### Haskell ###
dist
dist-*
cabal-dev
*.o
*.hi
*.chi
*.chs.h
*.dyn_o
*.dyn_hi
.hpc
.hsenv
.cabal-sandbox/
cabal.sandbox.config
*.prof
*.aux
*.hp
*.eventlog
.stack-work/
cabal.project.local
.HTF/
# End of https://www.gitignore.io/api/emacs,haskell

main/LICENSE → LICENSE View File


+ 1
- 3
README.md View File

@ -1,3 +1 @@
# very-nice
a scheme interpreter that interprets scheme
# very-nice2

main/Setup.hs → Setup.hs View File


main/TAGS → TAGS View File


main/app/Main.hs → app/Main.hs View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.dyn_hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.dyn_o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Error.o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.dyn_hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.dyn_o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Eval.o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.dyn_hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.dyn_o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/LispVal.o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.dyn_hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.dyn_o View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.hi View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/Scheme/Parse.o View File


+ 0
- 50
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/autogen/Paths_very_nice2.hs View File

@ -1,50 +0,0 @@
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
{-# OPTIONS_GHC -fno-warn-implicit-prelude #-}
module Paths_very_nice2 (
version,
getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
getDataFileName, getSysconfDir
) where
import qualified Control.Exception as Exception
import Data.Version (Version(..))
import System.Environment (getEnv)
import Prelude
#if defined(VERSION_base)
#if MIN_VERSION_base(4,0,0)
catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
#else
catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
#endif
#else
catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
#endif
catchIO = Exception.catch
version :: Version
version = Version [0,1,0,0] []
bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
bindir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/bin"
libdir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"
dynlibdir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/lib/x86_64-linux-ghc-8.0.2"
datadir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/share/x86_64-linux-ghc-8.0.2/very-nice2-0.1.0.0"
libexecdir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/libexec"
sysconfdir = "/home/ajl/src/very-nice/main/.stack-work/install/x86_64-linux/lts-9.3/8.0.2/etc"
getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
getBinDir = catchIO (getEnv "very_nice2_bindir") (\_ -> return bindir)
getLibDir = catchIO (getEnv "very_nice2_libdir") (\_ -> return libdir)
getDynLibDir = catchIO (getEnv "very_nice2_dynlibdir") (\_ -> return dynlibdir)
getDataDir = catchIO (getEnv "very_nice2_datadir") (\_ -> return datadir)
getLibexecDir = catchIO (getEnv "very_nice2_libexecdir") (\_ -> return libexecdir)
getSysconfDir = catchIO (getEnv "very_nice2_sysconfdir") (\_ -> return sysconfdir)
getDataFileName :: FilePath -> IO FilePath
getDataFileName name = do
dir <- getDataDir
return (dir ++ "/" ++ name)

+ 0
- 125
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/autogen/cabal_macros.h View File

@ -1,125 +0,0 @@
/* DO NOT EDIT: This file is automatically generated by Cabal */
/* package very-nice2-0.1.0.0 */
#define VERSION_very_nice2 "0.1.0.0"
#define MIN_VERSION_very_nice2(major1,major2,minor) (\
(major1) < 0 || \
(major1) == 0 && (major2) < 1 || \
(major1) == 0 && (major2) == 1 && (minor) <= 0)
/* package base-4.9.1.0 */
#define VERSION_base "4.9.1.0"
#define MIN_VERSION_base(major1,major2,minor) (\
(major1) < 4 || \
(major1) == 4 && (major2) < 9 || \
(major1) == 4 && (major2) == 9 && (minor) <= 1)
/* package mtl-2.2.1 */
#define VERSION_mtl "2.2.1"
#define MIN_VERSION_mtl(major1,major2,minor) (\
(major1) < 2 || \
(major1) == 2 && (major2) < 2 || \
(major1) == 2 && (major2) == 2 && (minor) <= 1)
/* package parsec-3.1.11 */
#define VERSION_parsec "3.1.11"
#define MIN_VERSION_parsec(major1,major2,minor) (\
(major1) < 3 || \
(major1) == 3 && (major2) < 1 || \
(major1) == 3 && (major2) == 1 && (minor) <= 11)
/* package text-1.2.2.2 */
#define VERSION_text "1.2.2.2"
#define MIN_VERSION_text(major1,major2,minor) (\
(major1) < 1 || \
(major1) == 1 && (major2) < 2 || \
(major1) == 1 && (major2) == 2 && (minor) <= 2)
/* package vector-0.12.0.1 */
#define VERSION_vector "0.12.0.1"
#define MIN_VERSION_vector(major1,major2,minor) (\
(major1) < 0 || \
(major1) == 0 && (major2) < 12 || \
(major1) == 0 && (major2) == 12 && (minor) <= 0)
/* tool alex-3.2.1 */
#define TOOL_VERSION_alex "3.2.1"
#define MIN_TOOL_VERSION_alex(major1,major2,minor) (\
(major1) < 3 || \
(major1) == 3 && (major2) < 2 || \
(major1) == 3 && (major2) == 2 && (minor) <= 1)
/* tool cpphs-1.20.3 */
#define TOOL_VERSION_cpphs "1.20.3"
#define MIN_TOOL_VERSION_cpphs(major1,major2,minor) (\
(major1) < 1 || \
(major1) == 1 && (major2) < 20 || \
(major1) == 1 && (major2) == 20 && (minor) <= 3)
/* tool gcc-5.4.0 */
#define TOOL_VERSION_gcc "5.4.0"
#define MIN_TOOL_VERSION_gcc(major1,major2,minor) (\
(major1) < 5 || \
(major1) == 5 && (major2) < 4 || \
(major1) == 5 && (major2) == 4 && (minor) <= 0)
/* tool ghc-8.0.2 */
#define TOOL_VERSION_ghc "8.0.2"
#define MIN_TOOL_VERSION_ghc(major1,major2,minor) (\
(major1) < 8 || \
(major1) == 8 && (major2) < 0 || \
(major1) == 8 && (major2) == 0 && (minor) <= 2)
/* tool ghc-pkg-8.0.2 */
#define TOOL_VERSION_ghc_pkg "8.0.2"
#define MIN_TOOL_VERSION_ghc_pkg(major1,major2,minor) (\
(major1) < 8 || \
(major1) == 8 && (major2) < 0 || \
(major1) == 8 && (major2) == 0 && (minor) <= 2)
/* tool haddock-2.17.3 */
#define TOOL_VERSION_haddock "2.17.3"
#define MIN_TOOL_VERSION_haddock(major1,major2,minor) (\
(major1) < 2 || \
(major1) == 2 && (major2) < 17 || \
(major1) == 2 && (major2) == 17 && (minor) <= 3)
/* tool happy-1.19.5 */
#define TOOL_VERSION_happy "1.19.5"
#define MIN_TOOL_VERSION_happy(major1,major2,minor) (\
(major1) < 1 || \
(major1) == 1 && (major2) < 19 || \
(major1) == 1 && (major2) == 19 && (minor) <= 5)
/* tool hpc-0.67 */
#define TOOL_VERSION_hpc "0.67"
#define MIN_TOOL_VERSION_hpc(major1,major2,minor) (\
(major1) < 0 || \
(major1) == 0 && (major2) < 67 || \
(major1) == 0 && (major2) == 67 && (minor) <= 0)
/* tool hsc2hs-0.68.1 */
#define TOOL_VERSION_hsc2hs "0.68.1"
#define MIN_TOOL_VERSION_hsc2hs(major1,major2,minor) (\
(major1) < 0 || \
(major1) == 0 && (major2) < 68 || \
(major1) == 0 && (major2) == 68 && (minor) <= 1)
/* tool hscolour-1.24 */
#define TOOL_VERSION_hscolour "1.24"
#define MIN_TOOL_VERSION_hscolour(major1,major2,minor) (\
(major1) < 1 || \
(major1) == 1 && (major2) < 24 || \
(major1) == 1 && (major2) == 24 && (minor) <= 0)
/* tool strip-2.28 */
#define TOOL_VERSION_strip "2.28"
#define MIN_TOOL_VERSION_strip(major1,major2,minor) (\
(major1) < 2 || \
(major1) == 2 && (major2) < 28 || \
(major1) == 2 && (major2) == 28 && (minor) <= 0)
#define CURRENT_COMPONENT_ID "very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"
#define CURRENT_PACKAGE_KEY "very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"

BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO-ghc8.0.2.so View File


BIN
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/libHSvery-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO.a View File


+ 0
- 319
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Error.dump-hi View File

@ -1,319 +0,0 @@
==================== FINAL INTERFACE ====================
2017-10-12 18:30:22.306953756 UTC
interface very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K:Scheme.Error 8002
interface hash: 73d67d1ee2521d8de0d2ccfd93d0be61
ABI hash: 547cde0ad178e9cdef27d0ca85feb123
export-list hash: a8aa5bdaaa29a00c757f6182caccc68a
orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
flag hash: 403981d57c68e1b921ee0c33e9f402bc
sig of: Nothing
used TH splices: False
where
exports:
Scheme.Error.extractValue
Scheme.Error.trapError
Scheme.Error.LispError{Scheme.Error.BadSpecialForm Scheme.Error.Default Scheme.Error.NotFunction Scheme.Error.NumArgs Scheme.Error.Parser Scheme.Error.TypeMismatch Scheme.Error.UnboundVar}
Scheme.Error.ThrowsError
module dependencies: Scheme.LispVal Scheme.Parse
package dependencies: array-0.5.1.1@array-0.5.1.1 base-4.9.1.0
binary-0.8.3.0@binary-0.8.3.0
bytestring-0.10.8.1@bytestring-0.10.8.1
containers-0.5.7.1@containers-0.5.7.1
deepseq-1.4.2.0@deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1 mtl-2.2.1@mtl-2.2.1-BLKBelFsPB3BoFeSWSOYj6
parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00
transformers-0.5.2.0@transformers-0.5.2.0
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ
orphans: base-4.9.1.0:GHC.Base base-4.9.1.0:GHC.Float
binary-0.8.3.0@binary-0.8.3.0:Data.Binary.Generic
bytestring-0.10.8.1@bytestring-0.10.8.1:Data.ByteString.Builder
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Lazy
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show
transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector.Fusion.Bundle
family instance modules: base-4.9.1.0:Control.Applicative
base-4.9.1.0:Data.Complex base-4.9.1.0:Data.Either
base-4.9.1.0:Data.Functor.Const base-4.9.1.0:Data.Functor.Identity
base-4.9.1.0:Data.List.NonEmpty base-4.9.1.0:Data.Monoid
base-4.9.1.0:Data.Semigroup base-4.9.1.0:Data.Type.Equality
base-4.9.1.0:Data.Version base-4.9.1.0:Data.Void
base-4.9.1.0:GHC.Exts base-4.9.1.0:GHC.Generics
base-4.9.1.0:GHC.IO.Exception base-4.9.1.0:GHC.TypeLits
containers-0.5.7.1@containers-0.5.7.1:Data.IntMap.Base
containers-0.5.7.1@containers-0.5.7.1:Data.IntSet.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Map.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Sequence
containers-0.5.7.1@containers-0.5.7.1:Data.Set.Base
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Control.Monad.Primitive
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Data.Primitive.Array
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Lazy
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector
import -/ base-4.9.1.0:Data.Either 20b09ef8d0a5b74fdec011c40c1587f5
import -/ base-4.9.1.0:GHC.Base c4231c43c07e46080a26bf94094c7aa1
import -/ base-4.9.1.0:GHC.Show a027f5ac24879eaba752f44aa90fe511
import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771
import -/ integer-gmp-1.0.0.1:GHC.Integer.Type 318df275d77dcdb18e0006d8d7870c2a
import -/ mtl-2.2.1@mtl-2.2.1-BLKBelFsPB3BoFeSWSOYj6:Control.Monad.Error f94fb0464a50f1963ce772827ab3e200
import -/ mtl-2.2.1@mtl-2.2.1-BLKBelFsPB3BoFeSWSOYj6:Control.Monad.Error.Class 635294424a2da8269902789f5c8bbe99
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.Parsec.Error c39b2f8c987feda2c6bcb29752686ed7
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.ParserCombinators.Parsec.Error c9cf92441cb5377b8123c2d73d3a06bc
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text 28074c70d3351fb3368d27c0a438ae07
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Internal 9bfcbbbe07ecef48f631025a838df7da
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show 516b88f1e0e0dbed91cb925542602306
import -/ transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error 159dc1eb6836e38a6a287381060be15d
import -/ Scheme.LispVal 46b64363eba4219a8339bd5306a4360f
exports: 844d3d3577cf0766f339ed033741201b
LispVal 33b6c02c47a7551a9184b99ae0083a3e
showVal 33b6c02c47a7551a9184b99ae0083a3e
import -/ Scheme.Parse de607dba7110befe46aff1639915edac
exports: b16c50c84baaf4c1af6941b998bae292
652c0330a2c59188cf9ecf0a22c2ae69
$fErrorLispError ::
Control.Monad.Trans.Error.Error Scheme.Error.LispError
DFunId
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Scheme.Error.LispError
Scheme.Error.$fErrorLispError_$cnoMsg
Scheme.Error.Default -}
5cfef3b98b8419f8e8523b2423917c79
$fErrorLispError1 :: [GHC.Types.Char]
{- Unfolding: (GHC.CString.unpackCString# "Something happened"#) -}
652c0330a2c59188cf9ecf0a22c2ae69
$fErrorLispError_$cnoMsg :: Scheme.Error.LispError
{- Strictness: m7,
Unfolding: (Scheme.Error.Default Scheme.Error.$fErrorLispError1) -}
652c0330a2c59188cf9ecf0a22c2ae69
$fShowLispError :: GHC.Show.Show Scheme.Error.LispError
DFunId
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Scheme.Error.LispError
Scheme.Error.$fShowLispError_$cshowsPrec
Scheme.Error.$fShowLispError_$cshow
Scheme.Error.$fShowLispError_$cshowList -}
652c0330a2c59188cf9ecf0a22c2ae69
$fShowLispError1 ::
Scheme.Error.LispError -> GHC.Base.String -> [GHC.Types.Char]
{- Arity: 2,
Unfolding: (\ (x :: Scheme.Error.LispError)
(s :: GHC.Base.String)[OneShot] ->
GHC.Base.++
@ GHC.Types.Char
(Scheme.Error.$fShowLispError_$cshow x)
s) -}
652c0330a2c59188cf9ecf0a22c2ae69
$fShowLispError_$cshow :: Scheme.Error.LispError -> GHC.Base.String
{- Arity: 1, Strictness: <S,1*U> -}
652c0330a2c59188cf9ecf0a22c2ae69
$fShowLispError_$cshowList ::
[Scheme.Error.LispError] -> GHC.Show.ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ (ls :: [Scheme.Error.LispError])
(s :: GHC.Base.String) ->
GHC.Show.showList__
@ Scheme.Error.LispError
Scheme.Error.$fShowLispError1
ls
s) -}
652c0330a2c59188cf9ecf0a22c2ae69
$fShowLispError_$cshowsPrec ::
GHC.Types.Int -> Scheme.Error.LispError -> GHC.Show.ShowS
{- Arity: 3, Strictness: <L,A><S,1*U><L,1*U>,
Unfolding: InlineRule (3, True, False)
(\ (ds :: GHC.Types.Int)
(x :: Scheme.Error.LispError)
(s :: GHC.Base.String) ->
GHC.Base.augment
@ GHC.Types.Char
(\ @ b
(c :: GHC.Types.Char -> b -> b)[OneShot]
(n :: b)[OneShot] ->
GHC.Base.foldr
@ GHC.Types.Char
@ b
c
n
(Scheme.Error.$fShowLispError_$cshow x))
s) -}
522e1c708203188412c4fb4d210b8f6e
$tc'BadSpecialForm :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
5055208255023276317##
6101065637503877023##
Scheme.Error.$trModule
Scheme.Error.$tc'BadSpecialForm1) -}
fa273375295e37ecf760fd71691123e8
$tc'BadSpecialForm1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'BadSpecialForm"#) -}
182123139d86e1d5fa1b9b03be0aa382
$tc'Default :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
8235057421028354565##
7003860365457634912##
Scheme.Error.$trModule
Scheme.Error.$tc'Default1) -}
093ad15e359eb5edb5595d3869dc2aa1
$tc'Default1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Default"#) -}
4569d6070cb7dd426a2ac7bcfaebce18
$tc'NotFunction :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
9082848236158817626##
1415897493701969117##
Scheme.Error.$trModule
Scheme.Error.$tc'NotFunction1) -}
58aab455d0e51a1f281e661d8e2311ad
$tc'NotFunction1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'NotFunction"#) -}
ef45e326123f22f70a7a564ebc497527
$tc'NumArgs :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
29927254116367828##
3589918819309331788##
Scheme.Error.$trModule
Scheme.Error.$tc'NumArgs1) -}
49d7b7278e2de84ef0f2233c349dcf08
$tc'NumArgs1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'NumArgs"#) -}
3cb6cefb04bfd52cd3bb134fbebb2461
$tc'Parser :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
827487084871948320##
16988034692495772782##
Scheme.Error.$trModule
Scheme.Error.$tc'Parser1) -}
06f62e035e1a523dfd2bbc2b4a26bd70
$tc'Parser1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Parser"#) -}
3a39ff03c0b34b2240ac64e9fdefb062
$tc'TypeMismatch :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
745042912044617916##
2194054358719617188##
Scheme.Error.$trModule
Scheme.Error.$tc'TypeMismatch1) -}
d5c9d4dfac08cde1a06ba5274ac94b3e
$tc'TypeMismatch1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'TypeMismatch"#) -}
2c425d38db596bdcea0779459f392e9a
$tc'UnboundVar :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
18016936412725750018##
10749975033889558007##
Scheme.Error.$trModule
Scheme.Error.$tc'UnboundVar1) -}
03322afa092d0de1f9e77f67bfad5ed0
$tc'UnboundVar1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'UnboundVar"#) -}
09ac25b326e6c8103f912ba6488ca3ae
$tcLispError :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
16455554712780276920##
8651102274302583932##
Scheme.Error.$trModule
Scheme.Error.$tcLispError1) -}
35477b8472bbaf2f0fd27644e42a0745
$tcLispError1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "LispError"#) -}
045a988da00abf417873e5f2ab6c2628
$trModule :: GHC.Types.Module
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.Module
Scheme.Error.$trModule2
Scheme.Error.$trModule1) -}
82d95252d51002486c9423f0749cad94
$trModule1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "Scheme.Error"#) -}
ea6ee64ea20c3b20c86633aad786b8cc
$trModule2 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS
"very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"#) -}
652c0330a2c59188cf9ecf0a22c2ae69
data LispError
= NumArgs GHC.Integer.Type.Integer [Scheme.LispVal.LispVal]
| TypeMismatch GHC.Base.String Scheme.LispVal.LispVal
| Parser Text.Parsec.Error.ParseError
| BadSpecialForm GHC.Base.String Scheme.LispVal.LispVal
| NotFunction GHC.Base.String GHC.Base.String
| UnboundVar GHC.Base.String GHC.Base.String
| Default GHC.Base.String
fd443aa4ca36502fb89b37dacf58ee39
type ThrowsError =
Data.Either.Either Scheme.Error.LispError :: * -> *
85f53fa71739b8786e2b46d05573c78e
extractValue :: Scheme.Error.ThrowsError a -> a
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: InlineRule (1, True, False)
(\ @ a (ds :: Data.Either.Either Scheme.Error.LispError a) ->
case ds of wild {
Data.Either.Left ipv -> Scheme.Error.extractValue1 @ a
Data.Either.Right val -> val }) -}
d139f2d13d30df20ce4422ce042b3619
extractValue1 :: a
{- Strictness: x -}
0968a25e667a6e5c80b388d9e3bf1c83
trapError ::
(GHC.Show.Show a, Control.Monad.Error.Class.MonadError a m) =>
m GHC.Base.String -> m GHC.Base.String
{- Arity: 3, HasNoCafRefs,
Strictness: <L,1*U(A,1*U,A)><S(LLC(C(S))),U(1*U,A,1*C1(C1(U)))><L,U>,
Unfolding: (\ @ a
@ (m :: * -> *)
($dShow :: GHC.Show.Show a)
($dMonadError :: Control.Monad.Error.Class.MonadError a m)
(eta :: m GHC.Base.String) ->
Control.Monad.Error.Class.catchError
@ a
@ m
$dMonadError
@ GHC.Base.String
eta
(let {
f :: GHC.Base.Monad m
= Control.Monad.Error.Class.$p1MonadError @ a @ m $dMonadError
} in
let {
f1 :: GHC.Base.String -> m GHC.Base.String
= GHC.Base.return @ m f @ GHC.Base.String
} in
let {
g :: a -> GHC.Base.String = GHC.Show.show @ a $dShow
} in
\ (x :: a) -> f1 (g x))) -}
instance Control.Monad.Trans.Error.Error [Scheme.Error.LispError]
= Scheme.Error.$fErrorLispError
instance GHC.Show.Show [Scheme.Error.LispError]
= Scheme.Error.$fShowLispError
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
trusted: none
require own pkg trusted: False

+ 0
- 303
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Eval.dump-hi View File

@ -1,303 +0,0 @@
==================== FINAL INTERFACE ====================
2017-10-05 19:04:11.009981673 UTC
interface very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO:Scheme.Eval [orphan module] 8002
interface hash: 236bf1ef8223f4954db90f6e906d7b78
ABI hash: d3c451d76696c28eb4042e98b7b1459b
export-list hash: 2f4e2f9ac06ca41645aa7658091c79a2
orphan hash: df0fdc596e08c9aeb4016cbbb988c47e
flag hash: 403981d57c68e1b921ee0c33e9f402bc
sig of: Nothing
used TH splices: False
where
exports:
Scheme.Eval.eval
Scheme.Eval.showVal
module dependencies: Scheme.LispVal
package dependencies: array-0.5.1.1@array-0.5.1.1 base-4.9.1.0
binary-0.8.3.0@binary-0.8.3.0
bytestring-0.10.8.1@bytestring-0.10.8.1
containers-0.5.7.1@containers-0.5.7.1
deepseq-1.4.2.0@deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00
transformers-0.5.2.0@transformers-0.5.2.0
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ
orphans: base-4.9.1.0:GHC.Base base-4.9.1.0:GHC.Float
binary-0.8.3.0@binary-0.8.3.0:Data.Binary.Generic
bytestring-0.10.8.1@bytestring-0.10.8.1:Data.ByteString.Builder
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show
transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector.Fusion.Bundle
family instance modules: base-4.9.1.0:Control.Applicative
base-4.9.1.0:Data.Complex base-4.9.1.0:Data.Either
base-4.9.1.0:Data.Functor.Const base-4.9.1.0:Data.Functor.Identity
base-4.9.1.0:Data.List.NonEmpty base-4.9.1.0:Data.Monoid
base-4.9.1.0:Data.Semigroup base-4.9.1.0:Data.Type.Equality
base-4.9.1.0:Data.Version base-4.9.1.0:Data.Void
base-4.9.1.0:GHC.Exts base-4.9.1.0:GHC.Generics
base-4.9.1.0:GHC.IO.Exception base-4.9.1.0:GHC.TypeLits
containers-0.5.7.1@containers-0.5.7.1:Data.IntMap.Base
containers-0.5.7.1@containers-0.5.7.1:Data.IntSet.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Map.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Sequence
containers-0.5.7.1@containers-0.5.7.1:Data.Set.Base
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Control.Monad.Primitive
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Data.Primitive.Array
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector
import -/ base-4.9.1.0:Data.Foldable 3e0b6967a1da89945d0e2d47266337a2
import -/ base-4.9.1.0:Data.Maybe d876c4ffe4b3c43755a781e8ad860d88
import -/ base-4.9.1.0:GHC.Base c4231c43c07e46080a26bf94094c7aa1
import -/ base-4.9.1.0:GHC.List ab8c4e523e6c479c549d3bcd5fc4a439
import -/ base-4.9.1.0:GHC.Num 00bfaa7b2f9d6084913c0697a8a49ec8
import -/ base-4.9.1.0:GHC.Real 82e4e59051a13dba1da63e1e970a69e6
import -/ base-4.9.1.0:GHC.Show a027f5ac24879eaba752f44aa90fe511
import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771
import -/ integer-gmp-1.0.0.1:GHC.Integer.Type 318df275d77dcdb18e0006d8d7870c2a
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text 28074c70d3351fb3368d27c0a438ae07
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Internal 9bfcbbbe07ecef48f631025a838df7da
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show 516b88f1e0e0dbed91cb925542602306
import -/ Scheme.LispVal 6fa885980ac59c5175b1f51ba54f65e9
exports: a67bcd3dbdd40dd3564ccceab20058c1
Atom f4650d1c21519cccc2f971d01d1adcf5
Bool 1b1ff8b67c085a597d1988469cde6409
Character 9877cdcb6e1063538abb106a29feb5a5
Complex e3d47910114cd8289461e051ed4d7cd0
DottedList 97122bd47427198e9111fbea94747a65
Float 04bc2186c3b8a77529873e3fa666d01d
LispVal e2cc648633025257656004384e9ea9bd
List a4ca97f1a5ce0bdbdef23add69344f54
Number a2bb760cde9b07aa4953e95d3629906a
Ratio 2ba1871eaf05838d08048ac82795f076
String 0bc262469b13de691ca9cf3a1900bc0f
Vector 8c3e800ebcf0649e7628cb18b5a5fcf9
7cb85cb79973ab14a43ab3196abcd3cc
$fShowLispVal :: GHC.Show.Show Scheme.LispVal.LispVal
DFunId
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Scheme.LispVal.LispVal
Scheme.Eval.$fShowLispVal_$cshowsPrec
Scheme.Eval.$fShowLispVal_$cshow
Scheme.Eval.$fShowLispVal_$cshowList -}
a5e33bdda42c075e50162568b98113c3
$fShowLispVal1 ::
Scheme.LispVal.LispVal -> GHC.Base.String -> [GHC.Types.Char]
{- Arity: 2,
Unfolding: (\ (x :: Scheme.LispVal.LispVal)
(s :: GHC.Base.String)[OneShot] ->
case Scheme.Eval.showVal
x of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
GHC.Base.++ @ GHC.Types.Char ($wunfold dt1) s }) -}
0a38e5f42c0073aa502766248356c463
$fShowLispVal_$cshow :: Scheme.LispVal.LispVal -> GHC.Base.String
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: (\ (x :: Scheme.LispVal.LispVal) ->
case Scheme.Eval.showVal
x of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
$wunfold dt1 }) -}
39a2dd67fe79c56265218259603f98ce
$fShowLispVal_$cshowList ::
[Scheme.LispVal.LispVal] -> GHC.Show.ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ (ls :: [Scheme.LispVal.LispVal])
(s :: GHC.Base.String) ->
GHC.Show.showList__
@ Scheme.LispVal.LispVal
Scheme.Eval.$fShowLispVal1
ls
s) -}
d0a17aa3843a34e18ca3f069f3ac3fc3
$fShowLispVal_$cshowsPrec ::
GHC.Types.Int -> Scheme.LispVal.LispVal -> GHC.Show.ShowS
{- Arity: 3, Strictness: <L,A><S,1*U><L,1*U>, Inline: INLINE[0],
Unfolding: InlineRule (3, True, True)
(\ (w :: GHC.Types.Int)
(w1 :: Scheme.LispVal.LispVal)
(w2 :: GHC.Base.String) ->
Scheme.Eval.$w$cshowsPrec w1 w2) -}
bae9f471b9d2972a9f0a895b5e4c5483
$trModule :: GHC.Types.Module
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.Module
Scheme.Eval.$trModule2
Scheme.Eval.$trModule1) -}
a8bd968490866e49a7098ac472201d72
$trModule1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "Scheme.Eval"#) -}
12cd08637fbdae28899a4942497039f1
$trModule2 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS
"very-nice2-0.1.0.0-9bm9CwTPi3Zm1jHKX2NZO"#) -}
3e71bae59864cf6120a06ef245143cb9
$w$cshowsPrec ::
Scheme.LispVal.LispVal -> GHC.Base.String -> [GHC.Types.Char]
{- Arity: 2, Strictness: <S,1*U><L,1*U>, Inline: [0],
Unfolding: (\ (w :: Scheme.LispVal.LispVal)
(w1 :: GHC.Base.String) ->
case Scheme.Eval.showVal
w of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
GHC.Base.++ @ GHC.Types.Char ($wunfold dt1) w1 }) -}
0fa646e57fef767709755c79b2657832
eval :: Scheme.LispVal.LispVal -> Scheme.LispVal.LispVal
{- Arity: 1, Strictness: <S,1*U> -}
2929cd07045c170f308b974da5b108a4
showVal :: Scheme.LispVal.LispVal -> Data.Text.Internal.Text
{- Arity: 1, Strictness: <S,1*U> -}
instance GHC.Show.Show [Scheme.LispVal.LispVal]
= Scheme.Eval.$fShowLispVal
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
trusted: none
require own pkg trusted: False

+ 0
- 442
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/LispVal.dump-hi View File

@ -1,442 +0,0 @@
==================== FINAL INTERFACE ====================
2017-10-12 18:28:53.091173383 UTC
interface very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K:Scheme.LispVal 8002
interface hash: 396262c5527bad9b03730577a1f23a42
ABI hash: 46b64363eba4219a8339bd5306a4360f
export-list hash: 844d3d3577cf0766f339ed033741201b
orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
flag hash: 403981d57c68e1b921ee0c33e9f402bc
sig of: Nothing
used TH splices: False
where
exports:
Scheme.LispVal.showVal
Scheme.LispVal.LispVal{Scheme.LispVal.Atom Scheme.LispVal.Bool Scheme.LispVal.Character Scheme.LispVal.Complex Scheme.LispVal.DottedList Scheme.LispVal.Float Scheme.LispVal.List Scheme.LispVal.Number Scheme.LispVal.Ratio Scheme.LispVal.String Scheme.LispVal.Vector}
module dependencies:
package dependencies: array-0.5.1.1@array-0.5.1.1 base-4.9.1.0
binary-0.8.3.0@binary-0.8.3.0
bytestring-0.10.8.1@bytestring-0.10.8.1
containers-0.5.7.1@containers-0.5.7.1
deepseq-1.4.2.0@deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00
transformers-0.5.2.0@transformers-0.5.2.0
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ
orphans: base-4.9.1.0:GHC.Base base-4.9.1.0:GHC.Float
binary-0.8.3.0@binary-0.8.3.0:Data.Binary.Generic
bytestring-0.10.8.1@bytestring-0.10.8.1:Data.ByteString.Builder
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show
transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector.Fusion.Bundle
family instance modules: base-4.9.1.0:Control.Applicative
base-4.9.1.0:Data.Complex base-4.9.1.0:Data.Either
base-4.9.1.0:Data.Functor.Const base-4.9.1.0:Data.Functor.Identity
base-4.9.1.0:Data.List.NonEmpty base-4.9.1.0:Data.Monoid
base-4.9.1.0:Data.Semigroup base-4.9.1.0:Data.Type.Equality
base-4.9.1.0:Data.Version base-4.9.1.0:Data.Void
base-4.9.1.0:GHC.Exts base-4.9.1.0:GHC.Generics
base-4.9.1.0:GHC.IO.Exception base-4.9.1.0:GHC.TypeLits
containers-0.5.7.1@containers-0.5.7.1:Data.IntMap.Base
containers-0.5.7.1@containers-0.5.7.1:Data.IntSet.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Map.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Sequence
containers-0.5.7.1@containers-0.5.7.1:Data.Set.Base
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Control.Monad.Primitive
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Data.Primitive.Array
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector
import -/ base-4.9.1.0:Data.Complex ec864ed8b68bbdf9c6cffa700c3cfe8e
import -/ base-4.9.1.0:Data.Ratio 73e2d5dd51ef6c1a1767a580e2cd7459
import -/ base-4.9.1.0:GHC.Base c4231c43c07e46080a26bf94094c7aa1
import -/ base-4.9.1.0:GHC.Real 82e4e59051a13dba1da63e1e970a69e6
import -/ base-4.9.1.0:GHC.Show a027f5ac24879eaba752f44aa90fe511
import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771
import -/ integer-gmp-1.0.0.1:GHC.Integer.Type 318df275d77dcdb18e0006d8d7870c2a
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text 28074c70d3351fb3368d27c0a438ae07
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Internal 9bfcbbbe07ecef48f631025a838df7da
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show 516b88f1e0e0dbed91cb925542602306
import -/ vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector 6714bbd22aa495e7dd4cf02a1891a465
33b6c02c47a7551a9184b99ae0083a3e
$fShowLispVal :: GHC.Show.Show Scheme.LispVal.LispVal
DFunId
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun:.
@ Scheme.LispVal.LispVal
Scheme.LispVal.$fShowLispVal_$cshowsPrec
Scheme.LispVal.$fShowLispVal_$cshow
Scheme.LispVal.$fShowLispVal_$cshowList -}
33b6c02c47a7551a9184b99ae0083a3e
$fShowLispVal1 ::
Scheme.LispVal.LispVal -> GHC.Base.String -> [GHC.Types.Char]
{- Arity: 2,
Unfolding: (\ (x :: Scheme.LispVal.LispVal)
(s :: GHC.Base.String)[OneShot] ->
case Scheme.LispVal.showVal
x of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
GHC.Base.++ @ GHC.Types.Char ($wunfold dt1) s }) -}
33b6c02c47a7551a9184b99ae0083a3e
$fShowLispVal_$cshow :: Scheme.LispVal.LispVal -> GHC.Base.String
{- Arity: 1, Strictness: <S,1*U>,
Unfolding: (\ (x :: Scheme.LispVal.LispVal) ->
case Scheme.LispVal.showVal
x of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
$wunfold dt1 }) -}
33b6c02c47a7551a9184b99ae0083a3e
$fShowLispVal_$cshowList ::
[Scheme.LispVal.LispVal] -> GHC.Show.ShowS
{- Arity: 2, Strictness: <S,1*U><L,U>,
Unfolding: (\ (ls :: [Scheme.LispVal.LispVal])
(s :: GHC.Base.String) ->
GHC.Show.showList__
@ Scheme.LispVal.LispVal
Scheme.LispVal.$fShowLispVal1
ls
s) -}
33b6c02c47a7551a9184b99ae0083a3e
$fShowLispVal_$cshowsPrec ::
GHC.Types.Int -> Scheme.LispVal.LispVal -> GHC.Show.ShowS
{- Arity: 3, Strictness: <L,A><S,1*U><L,1*U>, Inline: INLINE[0],
Unfolding: InlineRule (3, True, True)
(\ (w :: GHC.Types.Int)
(w1 :: Scheme.LispVal.LispVal)
(w2 :: GHC.Base.String) ->
Scheme.LispVal.$w$cshowsPrec w1 w2) -}
289a65ddc284a8613d98745a6e69d9ac
$tc'Atom :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
4944148236976644148##
14902068793828029410##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Atom1) -}
c13b2a1c330ac72a94b37f29021b9e58
$tc'Atom1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Atom"#) -}
2a060dadcc35eb3b1373e72c0d322676
$tc'Bool :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
9154247724978603076##
3955301972730039769##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Bool1) -}
6cd303911d94ab8f917ac34b1de59fdd
$tc'Bool1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Bool"#) -}
1ff075bae9411e70b83f9e738402935f
$tc'Character :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
16389745114808918344##
11628381186326919326##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Character1) -}
336daca3ae27c74caab8e43feb06a7d3
$tc'Character1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Character"#) -}
b089b887c69950eab206137c0311082d
$tc'Complex :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
416559203826743466##
12928069190669274767##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Complex1) -}
2923ccb3e95c4f4b9bfb566a289a0c3f
$tc'Complex1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Complex"#) -}
162a563681d1a257b1af26b789d1f573
$tc'DottedList :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
6133972038441856173##
4009106765258065621##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'DottedList1) -}
7fed9cfaa02bf728a2a7804d37f108c7
$tc'DottedList1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'DottedList"#) -}
da538521c62e78f9fd419ad16124244f
$tc'Float :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
14424997199086803049##
3919359736590651881##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Float1) -}
5ba664e9a4230bc8373455eaae005e45
$tc'Float1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Float"#) -}
ee68a1cc2c7d3027c45093650d5469e7
$tc'List :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
14530786425270821463##
1147704906125658977##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'List1) -}
f7efd1f90bd6f33d6617d9312c104405
$tc'List1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'List"#) -}
21c0c7cd8b29dd416976bdb952a4534f
$tc'Number :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
5168705879273162740##
7764692833483248415##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Number1) -}
ff73799aaeff9b46136412177f16c96a
$tc'Number1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Number"#) -}
19dfa44a13f09a3a3d0f3f6bd705ea38
$tc'Ratio :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
7914478720033224490##
8041277300370047939##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Ratio1) -}
039bed35c86074e5e5f93d85f0d5c8f9
$tc'Ratio1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Ratio"#) -}
643dba2c87d1e51bca84b69675c641bf
$tc'String :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
6079610444748521978##
9408567090570078751##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'String1) -}
78c5f45a5ce5673f43e6a6a2bb3d19df
$tc'String1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'String"#) -}
fe562ef2f591cfe068778ab44d976c03
$tc'Vector :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
3732714576768303851##
15423114779074467586##
Scheme.LispVal.$trModule
Scheme.LispVal.$tc'Vector1) -}
43bf44b9737cb1da19f1c88a9649dc72
$tc'Vector1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "'Vector"#) -}
c07dbac916abfa084e9bd45203ca4b31
$tcLispVal :: GHC.Types.TyCon
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.TyCon
3450165489885358394##
14203757452749961380##
Scheme.LispVal.$trModule
Scheme.LispVal.$tcLispVal1) -}
639232458175bf44a614ce4d79cf1b41
$tcLispVal1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "LispVal"#) -}
5829c6f7ebcef5bfba0d4907b30c6b5e
$trModule :: GHC.Types.Module
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.Module
Scheme.LispVal.$trModule2
Scheme.LispVal.$trModule1) -}
3aa4cc3a283e979da39935df1022d7aa
$trModule1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "Scheme.LispVal"#) -}
ea3e450cd0108201747d3b05974caab3
$trModule2 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS
"very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"#) -}
33b6c02c47a7551a9184b99ae0083a3e
$w$cshowsPrec ::
Scheme.LispVal.LispVal -> GHC.Base.String -> [GHC.Types.Char]
{- Arity: 2, Strictness: <S,1*U><L,1*U>, Inline: [0],
Unfolding: (\ (w :: Scheme.LispVal.LispVal)
(w1 :: GHC.Base.String) ->
case Scheme.LispVal.showVal
w of wild { Data.Text.Internal.Text dt dt1 dt2 ->
let {
end :: GHC.Prim.Int# = GHC.Prim.+# dt1 dt2
} in
letrec {
$wunfold :: GHC.Prim.Int# -> [GHC.Types.Char]
{- Arity: 1, Strictness: <S,U>, Inline: [0] -}
= \ (ww :: GHC.Prim.Int#) ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.>=# ww end) of wild1 {
GHC.Types.False
-> case GHC.Prim.indexWord16Array# dt ww of r# { DEFAULT ->
case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.geWord# r# 55296##) of wild2 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.tagToEnum#
@ GHC.Types.Bool
(GHC.Prim.leWord# r# 56319##) of wild3 {
GHC.Types.False
-> GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C# (GHC.Prim.chr# (GHC.Prim.word2Int# r#)))
($wunfold (GHC.Prim.+# ww 1#))
GHC.Types.True
-> case GHC.Prim.indexWord16Array#
dt
(GHC.Prim.+# ww 1#) of r#1 { DEFAULT ->
GHC.Types.:
@ GHC.Types.Char
(GHC.Types.C#
(GHC.Prim.chr#
(GHC.Prim.+#
(GHC.Prim.+#
(GHC.Prim.uncheckedIShiftL#
(GHC.Prim.-# (GHC.Prim.word2Int# r#) 55296#)
10#)
(GHC.Prim.-# (GHC.Prim.word2Int# r#1) 56320#))
65536#)))
($wunfold (GHC.Prim.+# ww 2#)) } } } }
GHC.Types.True -> GHC.Types.[] @ GHC.Types.Char }
} in
GHC.Base.++ @ GHC.Types.Char ($wunfold dt1) w1 }) -}
33b6c02c47a7551a9184b99ae0083a3e
data LispVal
= Atom Data.Text.Internal.Text
| List [Scheme.LispVal.LispVal]
| DottedList [Scheme.LispVal.LispVal] Scheme.LispVal.LispVal
| Vector (Data.Vector.Vector Scheme.LispVal.LispVal)
| Number GHC.Integer.Type.Integer
| Float GHC.Types.Double
| Ratio GHC.Real.Rational
| Complex (Data.Complex.Complex GHC.Types.Double)
| String Data.Text.Internal.Text
| Character GHC.Types.Char
| Bool GHC.Types.Bool
33b6c02c47a7551a9184b99ae0083a3e
showVal :: Scheme.LispVal.LispVal -> Data.Text.Internal.Text
{- Arity: 1, Strictness: <S,1*U> -}
instance GHC.Show.Show [Scheme.LispVal.LispVal]
= Scheme.LispVal.$fShowLispVal
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
trusted: none
require own pkg trusted: False

+ 0
- 832
main/.stack-work/dist/x86_64-linux/Cabal-1.24.2.0/build/src/Scheme/Parse.dump-hi View File

@ -1,832 +0,0 @@
==================== FINAL INTERFACE ====================
2017-10-12 18:28:54.52649469 UTC
interface very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K:Scheme.Parse 8002
interface hash: 9fa843a4ad84006f32b6807c22977713
ABI hash: de607dba7110befe46aff1639915edac
export-list hash: b16c50c84baaf4c1af6941b998bae292
orphan hash: c10c2205bcbe16cd9cbc6de6c83efebc
flag hash: 403981d57c68e1b921ee0c33e9f402bc
sig of: Nothing
used TH splices: False
where
exports:
Scheme.Parse.parseString
Scheme.Parse.readExpr
module dependencies: Scheme.LispVal
package dependencies: array-0.5.1.1@array-0.5.1.1 base-4.9.1.0
binary-0.8.3.0@binary-0.8.3.0
bytestring-0.10.8.1@bytestring-0.10.8.1
containers-0.5.7.1@containers-0.5.7.1
deepseq-1.4.2.0@deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1 mtl-2.2.1@mtl-2.2.1-BLKBelFsPB3BoFeSWSOYj6
parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00
transformers-0.5.2.0@transformers-0.5.2.0
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ
orphans: base-4.9.1.0:GHC.Base base-4.9.1.0:GHC.Float
binary-0.8.3.0@binary-0.8.3.0:Data.Binary.Generic
bytestring-0.10.8.1@bytestring-0.10.8.1:Data.ByteString.Builder
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Lazy
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show
transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector.Fusion.Bundle
family instance modules: base-4.9.1.0:Control.Applicative
base-4.9.1.0:Data.Complex base-4.9.1.0:Data.Either
base-4.9.1.0:Data.Functor.Const base-4.9.1.0:Data.Functor.Identity
base-4.9.1.0:Data.List.NonEmpty base-4.9.1.0:Data.Monoid
base-4.9.1.0:Data.Semigroup base-4.9.1.0:Data.Type.Equality
base-4.9.1.0:Data.Version base-4.9.1.0:Data.Void
base-4.9.1.0:GHC.Exts base-4.9.1.0:GHC.Generics
base-4.9.1.0:GHC.IO.Exception base-4.9.1.0:GHC.TypeLits
containers-0.5.7.1@containers-0.5.7.1:Data.IntMap.Base
containers-0.5.7.1@containers-0.5.7.1:Data.IntSet.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Map.Base
containers-0.5.7.1@containers-0.5.7.1:Data.Sequence
containers-0.5.7.1@containers-0.5.7.1:Data.Set.Base
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Control.Monad.Primitive
primitive-0.6.2.0@primitive-0.6.2.0-4578caNkWQ54Gt1mxLF2Yh:Data.Primitive.Array
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text
text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Lazy
vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector
import -/ base-4.9.1.0:Data.Char 01433d23661edb6e5ef1536ef1e6774c
import -/ base-4.9.1.0:Data.Complex ec864ed8b68bbdf9c6cffa700c3cfe8e
import -/ base-4.9.1.0:Data.Either 20b09ef8d0a5b74fdec011c40c1587f5
import -/ base-4.9.1.0:Data.Foldable 3e0b6967a1da89945d0e2d47266337a2
import -/ base-4.9.1.0:Data.List 07ae2acca6538aa0800bd0a993ac6ac1
import -/ base-4.9.1.0:Data.Ratio 73e2d5dd51ef6c1a1767a580e2cd7459
import -/ base-4.9.1.0:Data.Traversable 556020d7cf3c4a34a774600512918a37
import -/ base-4.9.1.0:Data.Tuple 7dc4bbb45d2e69c991ffac438beeca11
import -/ base-4.9.1.0:GHC.Base c4231c43c07e46080a26bf94094c7aa1
import -/ base-4.9.1.0:GHC.Err 3bba35a16538d33d424682ce66876cdd
import -/ base-4.9.1.0:GHC.List ab8c4e523e6c479c549d3bcd5fc4a439
import -/ base-4.9.1.0:GHC.Num 00bfaa7b2f9d6084913c0697a8a49ec8
import -/ base-4.9.1.0:GHC.Real 82e4e59051a13dba1da63e1e970a69e6
import -/ base-4.9.1.0:GHC.Show a027f5ac24879eaba752f44aa90fe511
import -/ base-4.9.1.0:GHC.Unicode a175ecf20bf1272d9ae31337e7da43ab
import -/ base-4.9.1.0:Numeric bdcfa841811670500691657d058d32ea
import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771
import -/ base-4.9.1.0:Text.Read 75c59863e882ebaec4532e9465e2ee9b
import -/ ghc-prim-0.5.0.0:GHC.Classes 0bdf3d057a415ec1b84a7b1994efbe47
import -/ integer-gmp-1.0.0.1:GHC.Integer.Type 318df275d77dcdb18e0006d8d7870c2a
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.Parsec.Char 72183c9c72a786c768d574329f0c66fb
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.Parsec.Combinator 1043ef2e7d611405e8cfba488439d00f
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.Parsec.Prim aa5741b3687798626ab8b304ae778581
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.Parsec.String c167df93b2a6f15c5a411724e2ca0d74
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.ParserCombinators.Parsec 210b9d7605a419b0319331228e92273a
import -/ parsec-3.1.11@parsec-3.1.11-1aqiimsgq2dCv7eoaC8WuX:Text.ParserCombinators.Parsec.Prim c1c3ee4c3eb13baea753600678a3bd4e
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text 28074c70d3351fb3368d27c0a438ae07
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Internal 9bfcbbbe07ecef48f631025a838df7da
import -/ text-1.2.2.2@text-1.2.2.2-9UQZjEJZQFSGMffj1Z5g00:Data.Text.Show 516b88f1e0e0dbed91cb925542602306
import -/ vector-0.12.0.1@vector-0.12.0.1-692PQMDMB6pIQ1uGwefDcQ:Data.Vector 6714bbd22aa495e7dd4cf02a1891a465
import -/ Scheme.LispVal 46b64363eba4219a8339bd5306a4360f
exports: 844d3d3577cf0766f339ed033741201b
Atom 518c553b957f96229c04d962613c8ce5
Bool dbac41db3b82f3fea12465f578f5a19a
Character c77fe378071c72d41e38e67b2618d129
Complex 7a641d3b0bd7c5e3d8273672351389d1
DottedList 7acd8295942e22e424d2916a0f83751e
Float 89c6cb511497324f5ce997796bf8a987
LispVal 33b6c02c47a7551a9184b99ae0083a3e
List 0a2070a04f0dd8bad97a179a961201d6
Number 4842d53183fe9748fd60f237e541b077
Ratio bef0b11f16e69a98ce9bb0b5819c46fc
String 14f9831c7be786fd2b70dcef8ae8f42d
Vector 7242e1508efaf0ecc5cae232142232b1
showVal 33b6c02c47a7551a9184b99ae0083a3e
7de6b73ede96a2fb99ae6485bb912a71
$s$fStream[]mtok ::
Text.Parsec.Prim.Stream [tok] Data.Functor.Identity.Identity tok
{- Strictness: m, Inline: [ALWAYS] CONLIKE,
Unfolding: DFun: @ tok.
@ [tok]
@ Data.Functor.Identity.Identity
@ tok
(Scheme.Parse.$s$fStream[]mtok_$s$fStream[]mtok_$cp1Stream @ tok)
(Scheme.Parse.$s$fStream[]mtok_$s$fStream[]mtok_$cuncons @ tok) -}
e51a3671510b7d7bb9c9de915f1980d5
$s$fStream[]mtok_$s$fStream[]mtok_$cp1Stream ::
GHC.Base.Monad Data.Functor.Identity.Identity
{- Strictness: m,
Unfolding: InlineRule (0, True, True)
(\ @ tok -> Data.Functor.Identity.$fMonadIdentity) -}
a62b1e6216ea925ef6bcd70ce10d7e0e
$s$fStream[]mtok_$s$fStream[]mtok_$cuncons ::
[tok]
-> Data.Functor.Identity.Identity (GHC.Base.Maybe (tok, [tok]))
{- Arity: 1, HasNoCafRefs, Strictness: <S,1*U>,
Inline: INLINE (sat-args=1),
Unfolding: InlineRule (1, False, False)
(\ @ tok (ds :: [tok]) ->
case ds of wild {
[]
-> GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Base.Maybe (tok, [tok]))
@ (Data.Functor.Identity.Identity (GHC.Base.Maybe (tok, [tok])))
(Data.Functor.Identity.$fApplicativeIdentity_$cpure
@ (GHC.Base.Maybe (tok, [tok])))
(GHC.Base.Nothing @ (tok, [tok]))
: t ts
-> GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Base.Maybe (tok, [tok]))
@ (Data.Functor.Identity.Identity (GHC.Base.Maybe (tok, [tok])))
(Data.Functor.Identity.$fApplicativeIdentity_$cpure
@ (GHC.Base.Maybe (tok, [tok])))
(GHC.Base.Just @ (tok, [tok]) (t, ts)) }) -}
0be496daadc0c796ad93071207f9d4a0
$trModule :: GHC.Types.Module
{- HasNoCafRefs, Strictness: m,
Unfolding: (GHC.Types.Module
Scheme.Parse.$trModule2
Scheme.Parse.$trModule1) -}
faf55553360402fecd360b95f9036ee5
$trModule1 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS "Scheme.Parse"#) -}
c885d77e3e4256e56b2ac2024c97e488
$trModule2 :: GHC.Types.TrName
{- HasNoCafRefs, Strictness: m1,
Unfolding: (GHC.Types.TrNameS
"very-nice2-0.1.0.0-JVAQRNZycEHKkqLkDBpt2K"#) -}
55afb7aae3303bd27f249f3fd426e4fc
$wlvl ::
Text.Parsec.Prim.State GHC.Base.String ()
-> (GHC.Types.Char
-> Text.Parsec.Prim.State GHC.Base.String ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> Data.Functor.Identity.Identity b
{- Arity: 4,
Strictness: <L,U(U,U(U,U,U),U)><L,C(C1(C1(U)))><L,U><L,C(U)>,
Inline: [0],
Unfolding: (\ @ b
(w :: Text.Parsec.Prim.State GHC.Base.String ())
(w1 :: GHC.Types.Char
-> Text.Parsec.Prim.State GHC.Base.String ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
(w2 :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
(w3 :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b) ->
let {
eerr :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b
{- Arity: 1, Strictness: <L,U(U(U,U,U),U)> -}
= \ (err :: Text.Parsec.Error.ParseError) ->
case w of ww { Text.Parsec.Prim.State ww1 ww2 ww3 ->
case ww2 of ww4 { Text.Parsec.Pos.SourcePos ww5 ww6 ww7 ->
Text.Parsec.Char.$wnoneOf
@ GHC.Base.String
@ Data.Functor.Identity.Identity
@ ()
(Scheme.Parse.$s$fStream[]mtok @ GHC.Types.Char)
Scheme.Parse.parseString13
@ b
ww1
ww5
ww6
ww7
ww3
w1
(\ (err' :: Text.Parsec.Error.ParseError) ->
w3 (Text.Parsec.Error.mergeError err err')) } }
} in
Scheme.Parse.parseString_m1
`cast`
(Text.Parsec.Prim.N:ParsecT[0]
<[GHC.Types.Char]>_R
<()>_R
<Data.Functor.Identity.Identity>_R
<GHC.Types.Char>_R)
@ b
w
(\ (x :: GHC.Types.Char)
(s2 :: Text.Parsec.Prim.State [GHC.Types.Char] ())
(err :: Text.Parsec.Error.ParseError) ->
case s2 of ww { Text.Parsec.Prim.State ww1 ww2 ww3 ->
case ww2 of ww4 { Text.Parsec.Pos.SourcePos ww5 ww6 ww7 ->
Scheme.Parse.$wlvl1
@ b
ww1
ww5
ww6
ww7
ww3
w1
(\ (err' :: Text.Parsec.Error.ParseError) ->
w2 (Text.Parsec.Error.mergeError err err')) } })
w2
(\ (x :: GHC.Types.Char)
(s2 :: Text.Parsec.Prim.State [GHC.Types.Char] ())
(err :: Text.Parsec.Error.ParseError) ->
case s2 of ww { Text.Parsec.Prim.State ww1 ww2 ww3 ->
case ww2 of ww4 { Text.Parsec.Pos.SourcePos ww5 ww6 ww7 ->
Scheme.Parse.$wlvl1
@ b
ww1
ww5
ww6
ww7
ww3
w1
(\ (err' :: Text.Parsec.Error.ParseError) ->
eerr (Text.Parsec.Error.mergeError err err')) } })
eerr) -}
c79f223dec437550e4a4d0777a6c50a3
$wlvl1 ::
[GHC.Types.Char]
-> Text.Parsec.Pos.SourceName
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> ()
-> (GHC.Types.Char
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> Data.Functor.Identity.Identity b1
{- Arity: 7,
Strictness: <L,U><L,U><S,U><S,U><S,U><L,C(C1(C1(U)))><L,C(U)>,
Inline: [0],
Unfolding: (\ @ b1
(ww :: [GHC.Types.Char])
(ww1 :: Text.Parsec.Pos.SourceName)
(ww2 :: GHC.Prim.Int#)
(ww3 :: GHC.Prim.Int#)
(ww4 :: ())
(w :: GHC.Types.Char
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
(w1 :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1) ->
Text.Parsec.Char.$wsatisfy
@ GHC.Base.String
@ Data.Functor.Identity.Identity
@ ()
(Scheme.Parse.$s$fStream[]mtok @ GHC.Types.Char)
Scheme.Parse.parseString10
@ b1
ww
ww1
ww2
ww3
ww4
(\ (x :: GHC.Types.Char)
(s2 :: Text.Parsec.Prim.State [GHC.Types.Char] ())[OneShot]
(err :: Text.Parsec.Error.ParseError)[OneShot] ->
w (case x of wild { GHC.Types.C# ds ->
case ds of ds1 {
DEFAULT -> wild
'n'# -> Scheme.Parse.parseString9
'r'# -> Scheme.Parse.parseString8
't'# -> Scheme.Parse.parseString7 } })
s2
(case s2 of wild { Text.Parsec.Prim.State ds3 ds4 ds5 ->
case ds4 of ww10 { Text.Parsec.Pos.SourcePos ww11 ww12 ww13 ->
case err of ww5 { Text.Parsec.Error.ParseError ww6 ww7 ->
case ww6 of ww8 { Text.Parsec.Pos.SourcePos ww9 ww16 ww17 ->
case Text.Parsec.Error.$wmergeError
ww9
ww16
ww17
ww7
ww11
ww12
ww13
(GHC.Types.[]
@ Text.Parsec.Error.Message) of ww14 { (#,#) ww15 ww18 ->
Text.Parsec.Error.ParseError ww15 ww18 } } } } }))
w1) -}
a2fa6d1cc189fd2ec51f564201463539
$wouter ::
GHC.Prim.MutableByteArray# GHC.Prim.RealWorld
-> GHC.Prim.Int#
-> [GHC.Types.Char]
-> GHC.Prim.Int#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Data.Text.Internal.Text #)
{- Arity: 5, Strictness: <L,U><L,U><S,1*U><S,U><S,U>,
Inline: [0] -}
b5b45175e4b7d2a045eb797020fa6ce4
$wouter1 ::
GHC.Prim.MutableByteArray# GHC.Prim.RealWorld
-> GHC.Prim.Int#
-> [GHC.Types.Char]
-> GHC.Prim.Int#
-> GHC.Prim.State# GHC.Prim.RealWorld
-> (# GHC.Prim.State# GHC.Prim.RealWorld,
Data.Text.Internal.Text #)
{- Arity: 5, Strictness: <L,U><L,U><S,1*U><S,U><S,U>,
Inline: [0] -}
d29ddf283612fd8b8fa679420bcb96b5
$wparseExpr ::
GHC.Base.String
-> Text.Parsec.Pos.SourceName
-> GHC.Prim.Int#
-> GHC.Prim.Int#
-> ()
-> (Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State GHC.Base.String ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> (Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State GHC.Base.String ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b)
-> Data.Functor.Identity.Identity b
{- Arity: 9,
Strictness: <L,U><L,U><S,U><S,U><S,U><L,C(C1(C1(U)))><L,U><L,C(C1(C1(U)))><L,C(U)>,
Inline: [0] -}
1a148acbafa055ed4e83e91065275295
parseString :: Text.Parsec.String.Parser Scheme.LispVal.LispVal
{- Arity: 5,
Strictness: <L,U><L,C(C1(C1(U)))><L,U><L,C(C1(C1(U)))><L,U>,
Unfolding: InlineRule (0, True, True)
Scheme.Parse.parseString1
`cast`
(Sym (Text.Parsec.Prim.N:ParsecT[0]
<[GHC.Types.Char]>_R
<()>_R
<Data.Functor.Identity.Identity>_R
<Scheme.LispVal.LispVal>_R)) -}
b7ad7a73de13cb090f29e818d1301657
parseString1 ::
Text.Parsec.Prim.State [GHC.Types.Char] ()
-> (Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> (Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> (Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
-> Data.Functor.Identity.Identity b1
{- Arity: 5,
Strictness: <L,U><L,C(C1(C1(U)))><L,U><L,C(C1(C1(U)))><L,U>,
Unfolding: (\ @ b1
(s1 :: Text.Parsec.Prim.State [GHC.Types.Char] ())
(cok :: Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
(cerr :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
(eok :: Scheme.LispVal.LispVal
-> Text.Parsec.Prim.State [GHC.Types.Char] ()
-> Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1)
(eerr :: Text.Parsec.Error.ParseError
-> Data.Functor.Identity.Identity b1) ->
Scheme.Parse.parseString4
`cast`
(Text.Parsec.Prim.N:ParsecT[0]
<[GHC.Types.Char]>_R
<()>_R
<Data.Functor.Identity.Identity>_R
<GHC.Types.Char>_R)
@ b1
s1
(\ (x :: GHC.Types.Char)
(s2 :: Text.Parsec.Prim.State [GHC.Types.Char] ())
(err :: Text.Parsec.Error.ParseError) ->
Scheme.Parse.parseString2
@ b1
s2
cok
cerr
(\ (x1 :: Scheme.LispVal.LispVal)
(s3 :: Text.Parsec.Prim.State [GHC.Types.Char] ())[OneShot]
(err' :: Text.Parsec.Error.ParseError)[OneShot] ->
cok x1 s3 (Text.Parsec.Error.mergeError err err'))
(\ (err' :: Text.Parsec.Error.ParseError) ->
cerr (Text.Parsec.Error.mergeError err err')))
cerr
(\ (x :: GHC.Types.Char)
(s2 :: Text.Parsec.Prim.State [GHC.Types.Char] ())
(err :: Text.Parsec.Error.ParseError) ->
Scheme.Parse.parseString2
@ b1
s2
cok
cerr
(\ (x1 :: Scheme.LispVal.LispVal)
(s3 :: Text.Parsec.Prim.State [GHC.Types.Char] ())[OneShot]
(err' :: Text.Parsec.Error.ParseError)[OneShot] ->
eok x1 s3 (Text.Parsec.Error.mergeError err err'))
(\ (err' :: Text.Parsec.Error.ParseError) ->
eerr (Text.Parsec.Error.mergeError err err')))
eerr) -}
e49e8651668621a25566b34d1f709ba6
parseString10 :: GHC.Types.Char -> GHC.Types.Bool
{- Arity: 1,
Unfolding: (\ (c :: GHC.Types.Char) ->
GHC.List.elem
@ GHC.Types.Char
GHC.Classes.$fEqChar
c
Scheme.Parse.parseString11) -}
f1238abc9677db1f668589968828bb7d
parseString11 :: [GHC.Types.Char]
{- Unfolding: (GHC.CString.unpackCString#
"\\\n\
\rt"#) -}
d94f26e256d6b5366b6d23489b0ef694
parseString12 :: GHC.Types.Char
{- HasNoCafRefs, Unfolding: (GHC.Types.C# '\\'#) -}
575a869553630f52d1b07f0e26079608
parseString13 :: [GHC.Types.Char]
{- Unfolding: (GHC.CString.unpackCString# "\"\\"#) -}
d7417fabe47adc15681ee0d0ccad1bad