@ -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 |
@ -1,3 +1 @@ | |||
# very-nice | |||
a scheme interpreter that interprets scheme | |||
# very-nice2 |
@ -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) |
@ -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" | |||
@ -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 | |||
@ -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 | |||
@ -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 | |||
@ -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 | |||