Skip to content

Instantly share code, notes, and snippets.

@RyanGlScott

RyanGlScott/ExampleGLFW-runghc-output.txt

Last active February 28, 2016 17:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save RyanGlScott/af1071c1825a1ac27c90 to your computer and use it in GitHub Desktop.
Save RyanGlScott/af1071c1825a1ac27c90 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ExampleGLFW-runghc-output.txt
Glasgow Haskell Compiler, Version 8.1.20160228, stage 2 booted by GHC version 7.10.3
Using binary package database: C:\Users\RyanGlScott\Software\ghc\inplace\lib\package.conf.d\package.cache
Using binary package database: C:\Users\RyanGlScott\AppData\Roaming\ghc\x86_64-mingw32-8.1.20160228\package.conf.d\package.cache
loading package database C:\Users\RyanGlScott\Software\ghc\inplace\lib\package.conf.d
loading package database C:\Users\RyanGlScott\AppData\Roaming\ghc\x86_64-mingw32-8.1.20160228\package.conf.d
wired-in package ghc-prim mapped to ghc-prim-0.5.0.0
wired-in package integer-gmp mapped to integer-gmp-1.0.0.1
wired-in package base mapped to base-4.9.0.0
wired-in package rts mapped to rts
wired-in package template-haskell mapped to template-haskell-2.11.0.0
wired-in package ghc mapped to ghc-8.1
wired-in package dph-seq not found.
wired-in package dph-par not found.
name: ghci
version: 8.1
id: ghci-8.1
exposed: True
exposed-modules: [(GHCi.BreakArray, Nothing),
(GHCi.Message, Nothing), (GHCi.ResolvedBCO, Nothing),
(GHCi.RemoteTypes, Nothing), (GHCi.ObjLink, Nothing),
(GHCi.CreateBCO, Nothing), (GHCi.FFI, Nothing),
(GHCi.InfoTable, Nothing), (GHCi.Run, Nothing),
(GHCi.Signals, Nothing), (GHCi.TH, Nothing),
(GHCi.TH.Binary, Nothing), (SizedSeq, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghci\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghci\dist-install\build
hs-libraries: HSghci-8.1
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0 binary-0.8.2.0
bytestring-0.10.7.0 containers-0.5.7.1 deepseq-1.4.2.0
filepath-1.4.1.0 ghc-boot-8.1 template-haskell-2.11.0.0
transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\ghci\dist-install\doc\html\ghci\ghci.haddock
haddock-html:
---
name: haskeline
version: 0.7.2.2
id: haskeline-0.7.2.2
exposed: True
exposed-modules: [(System.Console.Haskeline, Nothing),
(System.Console.Haskeline.Completion, Nothing),
(System.Console.Haskeline.MonadException, Nothing),
(System.Console.Haskeline.History, Nothing),
(System.Console.Haskeline.IO, Nothing)]
hidden-modules: System.Console.Haskeline.Backend
System.Console.Haskeline.Backend.WCWidth
System.Console.Haskeline.Command
System.Console.Haskeline.Command.Completion
System.Console.Haskeline.Command.History
System.Console.Haskeline.Command.KillRing
System.Console.Haskeline.Directory System.Console.Haskeline.Emacs
System.Console.Haskeline.InputT System.Console.Haskeline.Key
System.Console.Haskeline.LineState System.Console.Haskeline.Monads
System.Console.Haskeline.Prefs System.Console.Haskeline.RunCommand
System.Console.Haskeline.Term System.Console.Haskeline.Command.Undo
System.Console.Haskeline.Vi System.Console.Haskeline.Recover
System.Console.Haskeline.Backend.Win32
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\haskeline\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\haskeline\dist-install\build
hs-libraries: HShaskeline-0.7.2.2
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\haskeline\includes
includes: win_console.h
depends: Win32-2.3.1.0 base-4.9.0.0 bytestring-0.10.7.0
containers-0.5.7.1 directory-1.2.5.1 filepath-1.4.1.0
transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\haskeline\dist-install\doc\html\haskeline\haskeline.haddock
haddock-html:
---
name: transformers
version: 0.5.1.0
id: transformers-0.5.1.0
exposed: True
exposed-modules: [(Control.Applicative.Backwards, Nothing),
(Control.Applicative.Lift, Nothing),
(Control.Monad.Signatures, Nothing),
(Control.Monad.Trans.Class, Nothing),
(Control.Monad.Trans.Cont, Nothing),
(Control.Monad.Trans.Except, Nothing),
(Control.Monad.Trans.Error, Nothing),
(Control.Monad.Trans.Identity, Nothing),
(Control.Monad.Trans.List, Nothing),
(Control.Monad.Trans.Maybe, Nothing),
(Control.Monad.Trans.Reader, Nothing),
(Control.Monad.Trans.RWS, Nothing),
(Control.Monad.Trans.RWS.Lazy, Nothing),
(Control.Monad.Trans.RWS.Strict, Nothing),
(Control.Monad.Trans.State, Nothing),
(Control.Monad.Trans.State.Lazy, Nothing),
(Control.Monad.Trans.State.Strict, Nothing),
(Control.Monad.Trans.Writer, Nothing),
(Control.Monad.Trans.Writer.Lazy, Nothing),
(Control.Monad.Trans.Writer.Strict, Nothing),
(Data.Functor.Constant, Nothing), (Data.Functor.Reverse, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\transformers\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\transformers\dist-install\build
hs-libraries: HStransformers-0.5.1.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\transformers\dist-install\doc\html\transformers\transformers.haddock
haddock-html:
---
name: hoopl
version: 3.10.2.1
id: hoopl-3.10.2.1
exposed: True
exposed-modules: [(Compiler.Hoopl, Nothing),
(Compiler.Hoopl.Internals, Nothing),
(Compiler.Hoopl.Wrappers, Nothing),
(Compiler.Hoopl.Passes.Dominator, Nothing),
(Compiler.Hoopl.Passes.DList, Nothing)]
hidden-modules: Compiler.Hoopl.Checkpoint
Compiler.Hoopl.Collections Compiler.Hoopl.Combinators
Compiler.Hoopl.Dataflow Compiler.Hoopl.Debug Compiler.Hoopl.Block
Compiler.Hoopl.Graph Compiler.Hoopl.Label Compiler.Hoopl.MkGraph
Compiler.Hoopl.Fuel Compiler.Hoopl.Pointed Compiler.Hoopl.Shape
Compiler.Hoopl.Show Compiler.Hoopl.Unique Compiler.Hoopl.XUtil
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\hoopl\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\hoopl\dist-install\build
hs-libraries: HShoopl-3.10.2.1
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 containers-0.5.7.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\hoopl\dist-install\doc\html\hoopl\hoopl.haddock
haddock-html:
---
name: ghc-boot
version: 8.1
id: ghc-boot-8.1
exposed: True
exposed-modules: [(GHC.Lexeme, Nothing), (GHC.PackageDb, Nothing),
(GHC.LanguageExtensions, Nothing), (GHC.Serialized, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-boot\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-boot\dist-install\build
hs-libraries: HSghc-boot-8.1
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 binary-0.8.2.0 bytestring-0.10.7.0
directory-1.2.5.1 filepath-1.4.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-boot\dist-install\doc\html\ghc-boot\ghc-boot.haddock
haddock-html:
---
name: Cabal
version: 1.23.1.0
id: Cabal-1.23.1.0
exposed: True
exposed-modules: [(Distribution.Compat.CreatePipe, Nothing),
(Distribution.Compat.Environment, Nothing),
(Distribution.Compat.Exception, Nothing),
(Distribution.Compat.Internal.TempFile, Nothing),
(Distribution.Compat.ReadP, Nothing),
(Distribution.Compiler, Nothing),
(Distribution.InstalledPackageInfo, Nothing),
(Distribution.License, Nothing), (Distribution.Make, Nothing),
(Distribution.ModuleName, Nothing),
(Distribution.Package, Nothing),
(Distribution.PackageDescription, Nothing),
(Distribution.PackageDescription.Check, Nothing),
(Distribution.PackageDescription.Configuration, Nothing),
(Distribution.PackageDescription.Parse, Nothing),
(Distribution.PackageDescription.PrettyPrint, Nothing),
(Distribution.PackageDescription.Utils, Nothing),
(Distribution.ParseUtils, Nothing), (Distribution.ReadE, Nothing),
(Distribution.Simple, Nothing),
(Distribution.Simple.Bench, Nothing),
(Distribution.Simple.Build, Nothing),
(Distribution.Simple.Build.Macros, Nothing),
(Distribution.Simple.Build.PathsModule, Nothing),
(Distribution.Simple.BuildPaths, Nothing),
(Distribution.Simple.BuildTarget, Nothing),
(Distribution.Simple.CCompiler, Nothing),
(Distribution.Simple.Command, Nothing),
(Distribution.Simple.Compiler, Nothing),
(Distribution.Simple.Configure, Nothing),
(Distribution.Simple.GHC, Nothing),
(Distribution.Simple.GHCJS, Nothing),
(Distribution.Simple.Haddock, Nothing),
(Distribution.Simple.HaskellSuite, Nothing),
(Distribution.Simple.Hpc, Nothing),
(Distribution.Simple.Install, Nothing),
(Distribution.Simple.InstallDirs, Nothing),
(Distribution.Simple.JHC, Nothing),
(Distribution.Simple.LHC, Nothing),
(Distribution.Simple.LocalBuildInfo, Nothing),
(Distribution.Simple.PackageIndex, Nothing),
(Distribution.Simple.PreProcess, Nothing),
(Distribution.Simple.PreProcess.Unlit, Nothing),
(Distribution.Simple.Program, Nothing),
(Distribution.Simple.Program.Ar, Nothing),
(Distribution.Simple.Program.Builtin, Nothing),
(Distribution.Simple.Program.Db, Nothing),
(Distribution.Simple.Program.Find, Nothing),
(Distribution.Simple.Program.GHC, Nothing),
(Distribution.Simple.Program.HcPkg, Nothing),
(Distribution.Simple.Program.Hpc, Nothing),
(Distribution.Simple.Program.Internal, Nothing),
(Distribution.Simple.Program.Ld, Nothing),
(Distribution.Simple.Program.Run, Nothing),
(Distribution.Simple.Program.Script, Nothing),
(Distribution.Simple.Program.Strip, Nothing),
(Distribution.Simple.Program.Types, Nothing),
(Distribution.Simple.Register, Nothing),
(Distribution.Simple.Setup, Nothing),
(Distribution.Simple.SrcDist, Nothing),
(Distribution.Simple.Test, Nothing),
(Distribution.Simple.Test.ExeV10, Nothing),
(Distribution.Simple.Test.LibV09, Nothing),
(Distribution.Simple.Test.Log, Nothing),
(Distribution.Simple.UHC, Nothing),
(Distribution.Simple.UserHooks, Nothing),
(Distribution.Simple.Utils, Nothing),
(Distribution.System, Nothing), (Distribution.TestSuite, Nothing),
(Distribution.Text, Nothing),
(Distribution.Utils.NubList, Nothing),
(Distribution.Verbosity, Nothing), (Distribution.Version, Nothing),
(Language.Haskell.Extension, Nothing)]
hidden-modules: Distribution.Compat.Binary
Distribution.Compat.CopyFile Distribution.Compat.Semigroup
Distribution.GetOpt Distribution.Lex
Distribution.Simple.GHC.Internal Distribution.Simple.GHC.IPI642
Distribution.Simple.GHC.IPIConvert Distribution.Simple.GHC.ImplInfo
Paths_Cabal
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\Cabal\Cabal\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\Cabal\Cabal\dist-install\build
hs-libraries: HSCabal-1.23.1.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: Win32-2.3.1.0 array-0.5.1.0 base-4.9.0.0 binary-0.8.2.0
bytestring-0.10.7.0 containers-0.5.7.1 deepseq-1.4.2.0
directory-1.2.5.1 filepath-1.4.1.0 pretty-1.1.3.2 process-1.4.2.0
time-1.6
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\Cabal\Cabal\dist-install\doc\html\Cabal\Cabal.haddock
haddock-html:
---
name: binary
version: 0.8.2.0
id: binary-0.8.2.0
exposed: True
exposed-modules: [(Data.Binary, Nothing),
(Data.Binary.Put, Nothing), (Data.Binary.Get, Nothing),
(Data.Binary.Get.Internal, Nothing),
(Data.Binary.Builder, Nothing),
(Data.Binary.Builder.Internal, Nothing)]
hidden-modules: Data.Binary.Builder.Base Data.Binary.Class
Data.Binary.Internal Data.Binary.Generic
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\binary\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\binary\dist-install\build
hs-libraries: HSbinary-0.8.2.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0 bytestring-0.10.7.0
containers-0.5.7.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\binary\dist-install\doc\html\binary\binary.haddock
haddock-html:
---
name: pretty
version: 1.1.3.2
id: pretty-1.1.3.2
exposed: True
exposed-modules: [(Text.PrettyPrint, Nothing),
(Text.PrettyPrint.HughesPJ, Nothing),
(Text.PrettyPrint.HughesPJClass, Nothing),
(Text.PrettyPrint.Annotated, Nothing),
(Text.PrettyPrint.Annotated.HughesPJ, Nothing),
(Text.PrettyPrint.Annotated.HughesPJClass, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\pretty\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\pretty\dist-install\build
hs-libraries: HSpretty-1.1.3.2
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 deepseq-1.4.2.0 ghc-prim-0.5.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\pretty\dist-install\doc\html\pretty\pretty.haddock
haddock-html:
---
name: hpc
version: 0.6.0.3
id: hpc-0.6.0.3
exposed: True
exposed-modules: [(Trace.Hpc.Util, Nothing),
(Trace.Hpc.Mix, Nothing), (Trace.Hpc.Tix, Nothing),
(Trace.Hpc.Reflect, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\hpc\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\hpc\dist-install\build
hs-libraries: HShpc-0.6.0.3
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 containers-0.5.7.1 directory-1.2.5.1
filepath-1.4.1.0 time-1.6
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\hpc\dist-install\doc\html\hpc\hpc.haddock
haddock-html:
---
name: process
version: 1.4.2.0
id: process-1.4.2.0
exposed: True
exposed-modules: [(System.Cmd, Nothing), (System.Process, Nothing),
(System.Process.Internals, Nothing)]
hidden-modules: System.Process.Common System.Process.Windows
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\process\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\process\dist-install\build
hs-libraries: HSprocess-1.4.2.0
extra-libraries: kernel32
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\process\include
includes: runProcess.h
depends: Win32-2.3.1.0 base-4.9.0.0 deepseq-1.4.2.0
directory-1.2.5.1 filepath-1.4.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\process\dist-install\doc\html\process\process.haddock
haddock-html:
---
name: directory
version: 1.2.5.1
id: directory-1.2.5.1
exposed: True
exposed-modules: [(System.Directory, Nothing)]
hidden-modules: System.Directory.Internal
System.Directory.Internal.Config
System.Directory.Internal.C_utimensat
System.Directory.Internal.Posix System.Directory.Internal.Windows
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\directory\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\directory\dist-install\build
hs-libraries: HSdirectory-1.2.5.1
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\directory\include
includes: HsDirectory.h
depends: Win32-2.3.1.0 base-4.9.0.0 filepath-1.4.1.0 time-1.6
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\directory\dist-install\doc\html\directory\directory.haddock
haddock-html:
---
name: time
version: 1.6
id: time-1.6
exposed: True
exposed-modules: [(Data.Time.Calendar, Nothing),
(Data.Time.Calendar.MonthDay, Nothing),
(Data.Time.Calendar.OrdinalDate, Nothing),
(Data.Time.Calendar.WeekDate, Nothing),
(Data.Time.Calendar.Julian, Nothing),
(Data.Time.Calendar.Easter, Nothing), (Data.Time.Clock, Nothing),
(Data.Time.Clock.POSIX, Nothing), (Data.Time.Clock.TAI, Nothing),
(Data.Time.LocalTime, Nothing), (Data.Time.Format, Nothing),
(Data.Time, Nothing)]
hidden-modules: Data.Time.Calendar.Private Data.Time.Calendar.Days
Data.Time.Calendar.Gregorian Data.Time.Calendar.JulianYearDay
Data.Time.Clock.Scale Data.Time.Clock.UTC Data.Time.Clock.CTimeval
Data.Time.Clock.CTimespec Data.Time.Clock.UTCDiff
Data.Time.LocalTime.TimeZone Data.Time.LocalTime.TimeOfDay
Data.Time.LocalTime.LocalTime Data.Time.Format.Parse
Data.Time.Format.Locale
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\time\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\time\dist-install\build
hs-libraries: HStime-1.6
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\time\lib/include
includes:
depends: Win32-2.3.1.0 base-4.9.0.0 deepseq-1.4.2.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\time\dist-install\doc\html\time\time.haddock
haddock-html:
---
name: Win32
version: 2.3.1.0
id: Win32-2.3.1.0
exposed: True
exposed-modules: [(Graphics.Win32.GDI, Nothing),
(Graphics.Win32.GDI.Bitmap, Nothing),
(Graphics.Win32.GDI.Brush, Nothing),
(Graphics.Win32.GDI.Clip, Nothing),
(Graphics.Win32.GDI.Font, Nothing),
(Graphics.Win32.GDI.Graphics2D, Nothing),
(Graphics.Win32.GDI.HDC, Nothing),
(Graphics.Win32.GDI.Palette, Nothing),
(Graphics.Win32.GDI.Path, Nothing),
(Graphics.Win32.GDI.Pen, Nothing),
(Graphics.Win32.GDI.Region, Nothing),
(Graphics.Win32.GDI.Types, Nothing), (Graphics.Win32, Nothing),
(Graphics.Win32.Control, Nothing),
(Graphics.Win32.Dialogue, Nothing), (Graphics.Win32.Icon, Nothing),
(Graphics.Win32.Key, Nothing), (Graphics.Win32.Menu, Nothing),
(Graphics.Win32.Message, Nothing), (Graphics.Win32.Misc, Nothing),
(Graphics.Win32.Resource, Nothing),
(Graphics.Win32.Window, Nothing), (System.Win32, Nothing),
(System.Win32.DebugApi, Nothing), (System.Win32.DLL, Nothing),
(System.Win32.File, Nothing), (System.Win32.FileMapping, Nothing),
(System.Win32.Info, Nothing), (System.Win32.Mem, Nothing),
(System.Win32.NLS, Nothing), (System.Win32.Process, Nothing),
(System.Win32.Registry, Nothing),
(System.Win32.SimpleMAPI, Nothing), (System.Win32.Time, Nothing),
(System.Win32.Console, Nothing), (System.Win32.Security, Nothing),
(System.Win32.Types, Nothing), (System.Win32.Shell, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\Win32\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\Win32\dist-install\build
hs-libraries: HSWin32-2.3.1.0
extra-libraries: user32 gdi32 winmm advapi32 shell32 shfolder
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\Win32\include
includes: HsWin32.h HsGDI.h WndProc.h
depends: base-4.9.0.0 bytestring-0.10.7.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\Win32\dist-install\doc\html\Win32\Win32.haddock
haddock-html:
---
name: containers
version: 0.5.7.1
id: containers-0.5.7.1
exposed: True
exposed-modules: [(Data.IntMap, Nothing),
(Data.IntMap.Lazy, Nothing), (Data.IntMap.Strict, Nothing),
(Data.IntSet, Nothing), (Data.Map, Nothing),
(Data.Map.Lazy, Nothing), (Data.Map.Strict, Nothing),
(Data.Set, Nothing), (Data.Graph, Nothing),
(Data.Sequence, Nothing), (Data.Tree, Nothing)]
hidden-modules: Data.IntMap.Base Data.IntSet.Base Data.Map.Base
Data.Set.Base Data.Utils.BitUtil Data.Utils.StrictFold
Data.Utils.StrictPair
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\containers\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\containers\dist-install\build
hs-libraries: HScontainers-0.5.7.1
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\containers\include
includes:
depends: array-0.5.1.0 base-4.9.0.0 deepseq-1.4.2.0
ghc-prim-0.5.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\containers\dist-install\doc\html\containers\containers.haddock
haddock-html:
---
name: bytestring
version: 0.10.7.0
id: bytestring-0.10.7.0
exposed: True
exposed-modules: [(Data.ByteString, Nothing),
(Data.ByteString.Char8, Nothing),
(Data.ByteString.Unsafe, Nothing),
(Data.ByteString.Internal, Nothing),
(Data.ByteString.Lazy, Nothing),
(Data.ByteString.Lazy.Char8, Nothing),
(Data.ByteString.Lazy.Internal, Nothing),
(Data.ByteString.Short, Nothing),
(Data.ByteString.Short.Internal, Nothing),
(Data.ByteString.Builder, Nothing),
(Data.ByteString.Builder.Extra, Nothing),
(Data.ByteString.Builder.Prim, Nothing),
(Data.ByteString.Builder.Internal, Nothing),
(Data.ByteString.Builder.Prim.Internal, Nothing),
(Data.ByteString.Lazy.Builder, Nothing),
(Data.ByteString.Lazy.Builder.Extras, Nothing),
(Data.ByteString.Lazy.Builder.ASCII, Nothing)]
hidden-modules: Data.ByteString.Builder.ASCII
Data.ByteString.Builder.Prim.Binary
Data.ByteString.Builder.Prim.ASCII
Data.ByteString.Builder.Prim.Internal.Floating
Data.ByteString.Builder.Prim.Internal.UncheckedShifts
Data.ByteString.Builder.Prim.Internal.Base16
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\bytestring\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\bytestring\dist-install\build
hs-libraries: HSbytestring-0.10.7.0
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\bytestring\include
includes: fpstring.h
depends: base-4.9.0.0 deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\bytestring\dist-install\doc\html\bytestring\bytestring.haddock
haddock-html:
---
name: deepseq
version: 1.4.2.0
id: deepseq-1.4.2.0
exposed: True
exposed-modules: [(Control.DeepSeq, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\deepseq\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\deepseq\dist-install\build
hs-libraries: HSdeepseq-1.4.2.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\deepseq\dist-install\doc\html\deepseq\deepseq.haddock
haddock-html:
---
name: array
version: 0.5.1.0
id: array-0.5.1.0
exposed: True
exposed-modules: [(Data.Array, Nothing),
(Data.Array.Base, Nothing), (Data.Array.IArray, Nothing),
(Data.Array.IO, Nothing), (Data.Array.IO.Safe, Nothing),
(Data.Array.IO.Internals, Nothing), (Data.Array.MArray, Nothing),
(Data.Array.MArray.Safe, Nothing), (Data.Array.ST, Nothing),
(Data.Array.ST.Safe, Nothing), (Data.Array.Storable, Nothing),
(Data.Array.Storable.Safe, Nothing),
(Data.Array.Storable.Internals, Nothing),
(Data.Array.Unboxed, Nothing), (Data.Array.Unsafe, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\array\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\array\dist-install\build
hs-libraries: HSarray-0.5.1.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\array\dist-install\doc\html\array\array.haddock
haddock-html:
---
name: filepath
version: 1.4.1.0
id: filepath-1.4.1.0
exposed: True
exposed-modules: [(System.FilePath, Nothing),
(System.FilePath.Posix, Nothing),
(System.FilePath.Windows, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\filepath\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\filepath\dist-install\build
hs-libraries: HSfilepath-1.4.1.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\filepath\dist-install\doc\html\filepath\filepath.haddock
haddock-html:
---
name: rts
version: 1.0
id: rts-1.0
exposed: True
exposed-modules: []
hidden-modules:
trusted: False
import-dirs:
library-dirs: C:/Users/RyanGlScott/Software/ghc/rts/dist/build
hs-libraries: HSrts Cffi-6
extra-libraries: m wsock32 gdi32 winmm mingwex
extra-ghci-libraries:
include-dirs: C:/Users/RyanGlScott/Software/ghc/rts/dist/build
C:/Users/RyanGlScott/Software/ghc/includes
C:/Users/RyanGlScott/Software/ghc/includes/dist-derivedconstants/header
includes: Stg.h
depends:
cc-options:
ld-options: -Wl,-u,ghczmprim_GHCziTypes_Izh_static_info
-Wl,-u,ghczmprim_GHCziTypes_Czh_static_info
-Wl,-u,ghczmprim_GHCziTypes_Fzh_static_info
-Wl,-u,ghczmprim_GHCziTypes_Dzh_static_info
-Wl,-u,base_GHCziPtr_Ptr_static_info
-Wl,-u,ghczmprim_GHCziTypes_Wzh_static_info
-Wl,-u,base_GHCziInt_I8zh_static_info
-Wl,-u,base_GHCziInt_I16zh_static_info
-Wl,-u,base_GHCziInt_I32zh_static_info
-Wl,-u,base_GHCziInt_I64zh_static_info
-Wl,-u,base_GHCziWord_W8zh_static_info
-Wl,-u,base_GHCziWord_W16zh_static_info
-Wl,-u,base_GHCziWord_W32zh_static_info
-Wl,-u,base_GHCziWord_W64zh_static_info
-Wl,-u,base_GHCziStable_StablePtr_static_info
-Wl,-u,ghczmprim_GHCziTypes_Izh_con_info
-Wl,-u,ghczmprim_GHCziTypes_Czh_con_info
-Wl,-u,ghczmprim_GHCziTypes_Fzh_con_info
-Wl,-u,ghczmprim_GHCziTypes_Dzh_con_info
-Wl,-u,base_GHCziPtr_Ptr_con_info
-Wl,-u,base_GHCziPtr_FunPtr_con_info
-Wl,-u,base_GHCziStable_StablePtr_con_info
-Wl,-u,ghczmprim_GHCziTypes_False_closure
-Wl,-u,ghczmprim_GHCziTypes_True_closure
-Wl,-u,base_GHCziPack_unpackCString_closure
-Wl,-u,base_GHCziIOziException_stackOverflow_closure
-Wl,-u,base_GHCziIOziException_heapOverflow_closure
-Wl,-u,base_ControlziExceptionziBase_nonTermination_closure
-Wl,-u,base_GHCziIOziException_blockedIndefinitelyOnMVar_closure
-Wl,-u,base_GHCziIOziException_blockedIndefinitelyOnSTM_closure
-Wl,-u,base_GHCziIOziException_allocationLimitExceeded_closure
-Wl,-u,base_ControlziExceptionziBase_nestedAtomically_closure
-Wl,-u,base_GHCziEventziThread_blockedOnBadFD_closure
-Wl,-u,base_GHCziWeak_runFinalizzerBatch_closure
-Wl,-u,base_GHCziTopHandler_flushStdHandles_closure
-Wl,-u,base_GHCziTopHandler_runIO_closure
-Wl,-u,base_GHCziTopHandler_runNonIO_closure
-Wl,-u,base_GHCziConcziIO_ensureIOManagerIsRunning_closure
-Wl,-u,base_GHCziConcziIO_ioManagerCapabilitiesChanged_closure
-Wl,-u,base_GHCziConcziSync_runSparks_closure
-Wl,-u,base_GHCziConcziSignal_runHandlersPtr_closure
framework-dirs:
frameworks:
haddock-interfaces:
haddock-html:
---
name: GLFW-b
version: 1.4.7.3
id: GLFW-b-1.4.7.3
exposed: True
exposed-modules: [(Graphics.UI.GLFW, Nothing)]
hidden-modules: Graphics.UI.GLFW.C Graphics.UI.GLFW.Types
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2
hs-libraries: HSGLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 bindings-GLFW-3.1.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLFW-b-1.4.7.3\html\GLFW-b.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLFW-b-1.4.7.3\html
---
name: bindings-GLFW
version: 3.1.1.4
id: bindings-GLFW-3.1.1.4
exposed: True
exposed-modules: [(Bindings.GLFW, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bindings-GLFW-3.1.1.4-CO7HDrqm8gIDdpZu4KcqW8
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bindings-GLFW-3.1.1.4-CO7HDrqm8gIDdpZu4KcqW8
hs-libraries: HSbindings-GLFW-3.1.1.4-CO7HDrqm8gIDdpZu4KcqW8
extra-libraries: opengl32 Gdi32
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 bindings-DSL-1.0.23
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bindings-GLFW-3.1.1.4\html\bindings-GLFW.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bindings-GLFW-3.1.1.4\html
---
name: bindings-DSL
version: 1.0.23
id: bindings-DSL-1.0.23
exposed: True
exposed-modules: [(Bindings.Utilities, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bindings-DSL-1.0.23-GUrVdpTUVQC2JWoov2sGwA
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bindings-DSL-1.0.23-GUrVdpTUVQC2JWoov2sGwA
hs-libraries: HSbindings-DSL-1.0.23-GUrVdpTUVQC2JWoov2sGwA
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bindings-DSL-1.0.23-GUrVdpTUVQC2JWoov2sGwA\include
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bindings-DSL-1.0.23\html\bindings-DSL.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bindings-DSL-1.0.23\html
---
name: GLUT
version: 2.7.0.6
id: GLUT-2.7.0.6
exposed: True
exposed-modules: [(Graphics.UI.GLUT, Nothing),
(Graphics.UI.GLUT.Begin, Nothing),
(Graphics.UI.GLUT.Callbacks, Nothing),
(Graphics.UI.GLUT.Callbacks.Global, Nothing),
(Graphics.UI.GLUT.Callbacks.Window, Nothing),
(Graphics.UI.GLUT.Colormap, Nothing),
(Graphics.UI.GLUT.Debugging, Nothing),
(Graphics.UI.GLUT.DeviceControl, Nothing),
(Graphics.UI.GLUT.Fonts, Nothing),
(Graphics.UI.GLUT.GameMode, Nothing),
(Graphics.UI.GLUT.Initialization, Nothing),
(Graphics.UI.GLUT.Menu, Nothing),
(Graphics.UI.GLUT.Objects, Nothing),
(Graphics.UI.GLUT.Overlay, Nothing),
(Graphics.UI.GLUT.State, Nothing),
(Graphics.UI.GLUT.Window, Nothing)]
hidden-modules: Graphics.UI.GLUT.Callbacks.Registration
Graphics.UI.GLUT.QueryUtils Graphics.UI.GLUT.Raw
Graphics.UI.GLUT.Raw.Callbacks Graphics.UI.GLUT.Raw.Fonts
Graphics.UI.GLUT.Raw.Functions Graphics.UI.GLUT.Raw.Tokens
Graphics.UI.GLUT.Types
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLUT-2.7.0.6-Cr2AapXzq2W9CGd46cRPLH
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLUT-2.7.0.6-Cr2AapXzq2W9CGd46cRPLH
hs-libraries: HSGLUT-2.7.0.6-Cr2AapXzq2W9CGd46cRPLH
extra-libraries: freeglut
extra-ghci-libraries:
include-dirs:
includes:
depends: OpenGL-3.0.0.1 StateVar-1.1.0.3 array-0.5.1.0 base-4.9.0.0
containers-0.5.7.1 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLUT-2.7.0.6\html\GLUT.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLUT-2.7.0.6\html
---
name: OpenGL
version: 3.0.0.1
id: OpenGL-3.0.0.1
exposed: True
exposed-modules: [(Graphics.Rendering.OpenGL, Nothing),
(Graphics.Rendering.OpenGL.GL, Nothing),
(Graphics.Rendering.OpenGL.GL.Antialiasing, Nothing),
(Graphics.Rendering.OpenGL.GL.BeginEnd, Nothing),
(Graphics.Rendering.OpenGL.GL.Bitmaps, Nothing),
(Graphics.Rendering.OpenGL.GL.BufferObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.Clipping, Nothing),
(Graphics.Rendering.OpenGL.GL.ColorSum, Nothing),
(Graphics.Rendering.OpenGL.GL.Colors, Nothing),
(Graphics.Rendering.OpenGL.GL.ConditionalRendering, Nothing),
(Graphics.Rendering.OpenGL.GL.CoordTrans, Nothing),
(Graphics.Rendering.OpenGL.GL.DebugOutput, Nothing),
(Graphics.Rendering.OpenGL.GL.DisplayLists, Nothing),
(Graphics.Rendering.OpenGL.GL.Evaluators, Nothing),
(Graphics.Rendering.OpenGL.GL.Feedback, Nothing),
(Graphics.Rendering.OpenGL.GL.FlushFinish, Nothing),
(Graphics.Rendering.OpenGL.GL.Fog, Nothing),
(Graphics.Rendering.OpenGL.GL.Framebuffer, Nothing),
(Graphics.Rendering.OpenGL.GL.FramebufferObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.FramebufferObjects.Attachments,
Nothing),
(Graphics.Rendering.OpenGL.GL.FramebufferObjects.FramebufferObjects,
Nothing),
(Graphics.Rendering.OpenGL.GL.FramebufferObjects.Queries, Nothing),
(Graphics.Rendering.OpenGL.GL.FramebufferObjects.RenderbufferObjects,
Nothing),
(Graphics.Rendering.OpenGL.GL.Hints, Nothing),
(Graphics.Rendering.OpenGL.GL.LineSegments, Nothing),
(Graphics.Rendering.OpenGL.GL.PerFragment, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.ColorTable, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.Convolution,
Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.Histogram, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.Minmax, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.PixelMap, Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.PixelStorage,
Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.PixelTransfer,
Nothing),
(Graphics.Rendering.OpenGL.GL.PixelRectangles.Rasterization,
Nothing),
(Graphics.Rendering.OpenGL.GL.PixellikeObject, Nothing),
(Graphics.Rendering.OpenGL.GL.Points, Nothing),
(Graphics.Rendering.OpenGL.GL.Polygons, Nothing),
(Graphics.Rendering.OpenGL.GL.PrimitiveMode, Nothing),
(Graphics.Rendering.OpenGL.GL.QueryObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.RasterPos, Nothing),
(Graphics.Rendering.OpenGL.GL.ReadCopyPixels, Nothing),
(Graphics.Rendering.OpenGL.GL.Rectangles, Nothing),
(Graphics.Rendering.OpenGL.GL.SavingState, Nothing),
(Graphics.Rendering.OpenGL.GL.Selection, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.Attribs, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.Limits, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.ProgramBinaries, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.ProgramObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.ShaderBinaries, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.ShaderObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.Shaders.Uniform, Nothing),
(Graphics.Rendering.OpenGL.GL.StringQueries, Nothing),
(Graphics.Rendering.OpenGL.GL.SyncObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.Tensor, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Application, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Environments, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Objects, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Parameters, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Queries, Nothing),
(Graphics.Rendering.OpenGL.GL.Texturing.Specification, Nothing),
(Graphics.Rendering.OpenGL.GL.TransformFeedback, Nothing),
(Graphics.Rendering.OpenGL.GL.VertexArrayObjects, Nothing),
(Graphics.Rendering.OpenGL.GL.VertexArrays, Nothing),
(Graphics.Rendering.OpenGL.GL.VertexSpec, Nothing),
(Graphics.Rendering.OpenGL.GLU, Nothing),
(Graphics.Rendering.OpenGL.GLU.Errors, Nothing),
(Graphics.Rendering.OpenGL.GLU.Initialization, Nothing),
(Graphics.Rendering.OpenGL.GLU.Matrix, Nothing),
(Graphics.Rendering.OpenGL.GLU.Mipmapping, Nothing),
(Graphics.Rendering.OpenGL.GLU.NURBS, Nothing),
(Graphics.Rendering.OpenGL.GLU.Quadrics, Nothing),
(Graphics.Rendering.OpenGL.GLU.Tessellation, Nothing)]
hidden-modules: Graphics.Rendering.OpenGL.GL.BlendingFactor
Graphics.Rendering.OpenGL.GL.BufferMode
Graphics.Rendering.OpenGL.GL.ByteString
Graphics.Rendering.OpenGL.GL.Capability
Graphics.Rendering.OpenGL.GL.ComparisonFunction
Graphics.Rendering.OpenGL.GL.ControlPoint
Graphics.Rendering.OpenGL.GL.DataType
Graphics.Rendering.OpenGL.GL.Domain
Graphics.Rendering.OpenGL.GL.EdgeFlag
Graphics.Rendering.OpenGL.GL.Exception
Graphics.Rendering.OpenGL.GL.Face
Graphics.Rendering.OpenGL.GL.FramebufferObjects.FramebufferObject
Graphics.Rendering.OpenGL.GL.FramebufferObjects.FramebufferObjectAttachment
Graphics.Rendering.OpenGL.GL.FramebufferObjects.FramebufferTarget
Graphics.Rendering.OpenGL.GL.FramebufferObjects.RenderbufferObject
Graphics.Rendering.OpenGL.GL.FramebufferObjects.RenderbufferTarget
Graphics.Rendering.OpenGL.GL.GLboolean
Graphics.Rendering.OpenGL.GL.IOState
Graphics.Rendering.OpenGL.GL.PeekPoke
Graphics.Rendering.OpenGL.GL.PixelData
Graphics.Rendering.OpenGL.GL.PixelFormat
Graphics.Rendering.OpenGL.GL.PixelRectangles.Reset
Graphics.Rendering.OpenGL.GL.PixelRectangles.Sink
Graphics.Rendering.OpenGL.GL.PointParameter
Graphics.Rendering.OpenGL.GL.PolygonMode
Graphics.Rendering.OpenGL.GL.PrimitiveModeInternal
Graphics.Rendering.OpenGL.GL.QueryObject
Graphics.Rendering.OpenGL.GL.QueryUtils
Graphics.Rendering.OpenGL.GL.QueryUtils.PName
Graphics.Rendering.OpenGL.GL.QueryUtils.VertexAttrib
Graphics.Rendering.OpenGL.GL.RenderMode
Graphics.Rendering.OpenGL.GL.Shaders.Program
Graphics.Rendering.OpenGL.GL.Shaders.Shader
Graphics.Rendering.OpenGL.GL.Shaders.Variables
Graphics.Rendering.OpenGL.GL.Texturing.Filter
Graphics.Rendering.OpenGL.GL.Texturing.PixelInternalFormat
Graphics.Rendering.OpenGL.GL.Texturing.TexParameter
Graphics.Rendering.OpenGL.GL.Texturing.TextureObject
Graphics.Rendering.OpenGL.GL.Texturing.TextureTarget
Graphics.Rendering.OpenGL.GL.Texturing.TextureUnit
Graphics.Rendering.OpenGL.GL.VertexAttributes
Graphics.Rendering.OpenGL.GLU.ErrorsInternal
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf
hs-libraries: HSOpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: GLURaw-2.0.0.1 ObjectName-1.1.0.1 OpenGLRaw-3.1.0.0
StateVar-1.1.0.3 base-4.9.0.0 bytestring-0.10.7.0
containers-0.5.7.1 text-1.2.2.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\OpenGL-3.0.0.1\html\OpenGL.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\OpenGL-3.0.0.1\html
---
name: GLURaw
version: 2.0.0.1
id: GLURaw-2.0.0.1
exposed: True
exposed-modules: [(Graphics.GLU, Nothing),
(Graphics.GLU.Callbacks, Nothing),
(Graphics.GLU.Functions, Nothing), (Graphics.GLU.Tokens, Nothing),
(Graphics.GLU.Types, Nothing)]
hidden-modules: Graphics.GLU.TypesInternal
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLURaw-2.0.0.1-JWeSFAFA6173PGUSqSBiHE
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\GLURaw-2.0.0.1-JWeSFAFA6173PGUSqSBiHE
hs-libraries: HSGLURaw-2.0.0.1-JWeSFAFA6173PGUSqSBiHE
extra-libraries: glu32
extra-ghci-libraries:
include-dirs:
includes:
depends: OpenGLRaw-3.1.0.0 base-4.9.0.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLURaw-2.0.0.1\html\GLURaw.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\GLURaw-2.0.0.1\html
---
name: OpenGLRaw
version: 3.1.0.0
id: OpenGLRaw-3.1.0.0
exposed: True
exposed-modules: [(Graphics.GL, Nothing),
(Graphics.GL.AMD, Nothing),
(Graphics.GL.AMD.BlendMinmaxFactor, Nothing),
(Graphics.GL.AMD.DebugOutput, Nothing),
(Graphics.GL.AMD.DepthClampSeparate, Nothing),
(Graphics.GL.AMD.DrawBuffersBlend, Nothing),
(Graphics.GL.AMD.GPUShaderInt64, Nothing),
(Graphics.GL.AMD.InterleavedElements, Nothing),
(Graphics.GL.AMD.MultiDrawIndirect, Nothing),
(Graphics.GL.AMD.NameGenDelete, Nothing),
(Graphics.GL.AMD.OcclusionQueryEvent, Nothing),
(Graphics.GL.AMD.PerformanceMonitor, Nothing),
(Graphics.GL.AMD.PinnedMemory, Nothing),
(Graphics.GL.AMD.QueryBufferObject, Nothing),
(Graphics.GL.AMD.SamplePositions, Nothing),
(Graphics.GL.AMD.SeamlessCubemapPerTexture, Nothing),
(Graphics.GL.AMD.SparseTexture, Nothing),
(Graphics.GL.AMD.StencilOperationExtended, Nothing),
(Graphics.GL.AMD.TransformFeedback4, Nothing),
(Graphics.GL.AMD.VertexShaderTessellator, Nothing),
(Graphics.GL.APPLE, Nothing),
(Graphics.GL.APPLE.AuxDepthStencil, Nothing),
(Graphics.GL.APPLE.ClientStorage, Nothing),
(Graphics.GL.APPLE.ElementArray, Nothing),
(Graphics.GL.APPLE.Fence, Nothing),
(Graphics.GL.APPLE.FloatPixels, Nothing),
(Graphics.GL.APPLE.FlushBufferRange, Nothing),
(Graphics.GL.APPLE.ObjectPurgeable, Nothing),
(Graphics.GL.APPLE.RGB422, Nothing),
(Graphics.GL.APPLE.RowBytes, Nothing),
(Graphics.GL.APPLE.SpecularVector, Nothing),
(Graphics.GL.APPLE.TextureRange, Nothing),
(Graphics.GL.APPLE.TransformHint, Nothing),
(Graphics.GL.APPLE.VertexArrayObject, Nothing),
(Graphics.GL.APPLE.VertexArrayRange, Nothing),
(Graphics.GL.APPLE.VertexProgramEvaluators, Nothing),
(Graphics.GL.APPLE.YCbCr422, Nothing), (Graphics.GL.ARB, Nothing),
(Graphics.GL.ARB.BaseInstance, Nothing),
(Graphics.GL.ARB.BindlessTexture, Nothing),
(Graphics.GL.ARB.BlendFuncExtended, Nothing),
(Graphics.GL.ARB.BufferStorage, Nothing),
(Graphics.GL.ARB.CLEvent, Nothing),
(Graphics.GL.ARB.ClearBufferObject, Nothing),
(Graphics.GL.ARB.ClearTexture, Nothing),
(Graphics.GL.ARB.ClipControl, Nothing),
(Graphics.GL.ARB.ColorBufferFloat, Nothing),
(Graphics.GL.ARB.CompressedTexturePixelStorage, Nothing),
(Graphics.GL.ARB.ComputeShader, Nothing),
(Graphics.GL.ARB.ComputeVariableGroupSize, Nothing),
(Graphics.GL.ARB.ConditionalRenderInverted, Nothing),
(Graphics.GL.ARB.CopyBuffer, Nothing),
(Graphics.GL.ARB.CopyImage, Nothing),
(Graphics.GL.ARB.CullDistance, Nothing),
(Graphics.GL.ARB.DebugOutput, Nothing),
(Graphics.GL.ARB.DepthBufferFloat, Nothing),
(Graphics.GL.ARB.DepthClamp, Nothing),
(Graphics.GL.ARB.DepthTexture, Nothing),
(Graphics.GL.ARB.DirectStateAccess, Nothing),
(Graphics.GL.ARB.DrawBuffers, Nothing),
(Graphics.GL.ARB.DrawBuffersBlend, Nothing),
(Graphics.GL.ARB.DrawElementsBaseVertex, Nothing),
(Graphics.GL.ARB.DrawIndirect, Nothing),
(Graphics.GL.ARB.DrawInstanced, Nothing),
(Graphics.GL.ARB.ES2Compatibility, Nothing),
(Graphics.GL.ARB.ES31Compatibility, Nothing),
(Graphics.GL.ARB.ES32Compatibility, Nothing),
(Graphics.GL.ARB.ES3Compatibility, Nothing),
(Graphics.GL.ARB.EnhancedLayouts, Nothing),
(Graphics.GL.ARB.ExplicitUniformLocation, Nothing),
(Graphics.GL.ARB.FragmentProgram, Nothing),
(Graphics.GL.ARB.FragmentShader, Nothing),
(Graphics.GL.ARB.FramebufferNoAttachments, Nothing),
(Graphics.GL.ARB.FramebufferObjectCompatibility, Nothing),
(Graphics.GL.ARB.FramebufferObjectCore, Nothing),
(Graphics.GL.ARB.FramebufferSRGB, Nothing),
(Graphics.GL.ARB.GPUShader5, Nothing),
(Graphics.GL.ARB.GPUShaderFP64, Nothing),
(Graphics.GL.ARB.GPUShaderInt64, Nothing),
(Graphics.GL.ARB.GeometryShader4, Nothing),
(Graphics.GL.ARB.GetProgramBinary, Nothing),
(Graphics.GL.ARB.GetTextureSubImage, Nothing),
(Graphics.GL.ARB.HalfFloatPixel, Nothing),
(Graphics.GL.ARB.HalfFloatVertex, Nothing),
(Graphics.GL.ARB.ImagingCompatibility, Nothing),
(Graphics.GL.ARB.ImagingCore, Nothing),
(Graphics.GL.ARB.IndirectParameters, Nothing),
(Graphics.GL.ARB.InstancedArrays, Nothing),
(Graphics.GL.ARB.InternalformatQuery, Nothing),
(Graphics.GL.ARB.InternalformatQuery2, Nothing),
(Graphics.GL.ARB.InvalidateSubdata, Nothing),
(Graphics.GL.ARB.MapBufferAlignment, Nothing),
(Graphics.GL.ARB.MapBufferRange, Nothing),
(Graphics.GL.ARB.MatrixPalette, Nothing),
(Graphics.GL.ARB.MultiBind, Nothing),
(Graphics.GL.ARB.MultiDrawIndirect, Nothing),
(Graphics.GL.ARB.Multisample, Nothing),
(Graphics.GL.ARB.Multitexture, Nothing),
(Graphics.GL.ARB.OcclusionQuery, Nothing),
(Graphics.GL.ARB.OcclusionQuery2, Nothing),
(Graphics.GL.ARB.ParallelShaderCompile, Nothing),
(Graphics.GL.ARB.PipelineStatisticsQuery, Nothing),
(Graphics.GL.ARB.PixelBufferObject, Nothing),
(Graphics.GL.ARB.PointParameters, Nothing),
(Graphics.GL.ARB.PointSprite, Nothing),
(Graphics.GL.ARB.ProgramInterfaceQuery, Nothing),
(Graphics.GL.ARB.ProvokingVertex, Nothing),
(Graphics.GL.ARB.QueryBufferObject, Nothing),
(Graphics.GL.ARB.RobustnessCompatibility, Nothing),
(Graphics.GL.ARB.RobustnessCore, Nothing),
(Graphics.GL.ARB.SampleLocations, Nothing),
(Graphics.GL.ARB.SampleShading, Nothing),
(Graphics.GL.ARB.SamplerObjects, Nothing),
(Graphics.GL.ARB.SeamlessCubeMap, Nothing),
(Graphics.GL.ARB.SeamlessCubemapPerTexture, Nothing),
(Graphics.GL.ARB.SeparateShaderObjects, Nothing),
(Graphics.GL.ARB.ShaderAtomicCounters, Nothing),
(Graphics.GL.ARB.ShaderImageLoadStore, Nothing),
(Graphics.GL.ARB.ShaderObjects, Nothing),
(Graphics.GL.ARB.ShaderStorageBufferObject, Nothing),
(Graphics.GL.ARB.ShaderSubroutine, Nothing),
(Graphics.GL.ARB.ShadingLanguage100, Nothing),
(Graphics.GL.ARB.ShadingLanguageInclude, Nothing),
(Graphics.GL.ARB.Shadow, Nothing),
(Graphics.GL.ARB.ShadowAmbient, Nothing),
(Graphics.GL.ARB.SparseBuffer, Nothing),
(Graphics.GL.ARB.SparseTexture, Nothing),
(Graphics.GL.ARB.StencilTexturing, Nothing),
(Graphics.GL.ARB.Sync, Nothing),
(Graphics.GL.ARB.TessellationShader, Nothing),
(Graphics.GL.ARB.TextureBarrier, Nothing),
(Graphics.GL.ARB.TextureBorderClamp, Nothing),
(Graphics.GL.ARB.TextureBufferObject, Nothing),
(Graphics.GL.ARB.TextureBufferObjectRGB32, Nothing),
(Graphics.GL.ARB.TextureBufferRange, Nothing),
(Graphics.GL.ARB.TextureCompression, Nothing),
(Graphics.GL.ARB.TextureCompressionBPTC, Nothing),
(Graphics.GL.ARB.TextureCompressionRGTC, Nothing),
(Graphics.GL.ARB.TextureCubeMap, Nothing),
(Graphics.GL.ARB.TextureCubeMapArray, Nothing),
(Graphics.GL.ARB.TextureEnvCombine, Nothing),
(Graphics.GL.ARB.TextureEnvDot3, Nothing),
(Graphics.GL.ARB.TextureFilterMinmax, Nothing),
(Graphics.GL.ARB.TextureFloat, Nothing),
(Graphics.GL.ARB.TextureGather, Nothing),
(Graphics.GL.ARB.TextureMirrorClampToEdge, Nothing),
(Graphics.GL.ARB.TextureMirroredRepeat, Nothing),
(Graphics.GL.ARB.TextureMultisample, Nothing),
(Graphics.GL.ARB.TextureRG, Nothing),
(Graphics.GL.ARB.TextureRGB10A2UI, Nothing),
(Graphics.GL.ARB.TextureRectangle, Nothing),
(Graphics.GL.ARB.TextureStencil8, Nothing),
(Graphics.GL.ARB.TextureStorage, Nothing),
(Graphics.GL.ARB.TextureStorageMultisample, Nothing),
(Graphics.GL.ARB.TextureSwizzle, Nothing),
(Graphics.GL.ARB.TextureView, Nothing),
(Graphics.GL.ARB.TimerQuery, Nothing),
(Graphics.GL.ARB.TransformFeedback2, Nothing),
(Graphics.GL.ARB.TransformFeedback3, Nothing),
(Graphics.GL.ARB.TransformFeedbackInstanced, Nothing),
(Graphics.GL.ARB.TransformFeedbackOverflowQuery, Nothing),
(Graphics.GL.ARB.TransposeMatrix, Nothing),
(Graphics.GL.ARB.UniformBufferObject, Nothing),
(Graphics.GL.ARB.VertexArrayBGRA, Nothing),
(Graphics.GL.ARB.VertexArrayObject, Nothing),
(Graphics.GL.ARB.VertexAttrib64Bit, Nothing),
(Graphics.GL.ARB.VertexAttribBinding, Nothing),
(Graphics.GL.ARB.VertexBlend, Nothing),
(Graphics.GL.ARB.VertexBufferObject, Nothing),
(Graphics.GL.ARB.VertexProgram, Nothing),
(Graphics.GL.ARB.VertexShader, Nothing),
(Graphics.GL.ARB.VertexType10f11f11fRev, Nothing),
(Graphics.GL.ARB.VertexType2101010RevCompatibility, Nothing),
(Graphics.GL.ARB.VertexType2101010RevCore, Nothing),
(Graphics.GL.ARB.ViewportArray, Nothing),
(Graphics.GL.ARB.WindowPos, Nothing), (Graphics.GL.ATI, Nothing),
(Graphics.GL.ATI.DrawBuffers, Nothing),
(Graphics.GL.ATI.ElementArray, Nothing),
(Graphics.GL.ATI.EnvmapBumpmap, Nothing),
(Graphics.GL.ATI.FragmentShader, Nothing),
(Graphics.GL.ATI.MapObjectBuffer, Nothing),
(Graphics.GL.ATI.Meminfo, Nothing),
(Graphics.GL.ATI.PNTriangles, Nothing),
(Graphics.GL.ATI.PixelFormatFloat, Nothing),
(Graphics.GL.ATI.SeparateStencil, Nothing),
(Graphics.GL.ATI.TextFragmentShader, Nothing),
(Graphics.GL.ATI.TextureEnvCombine3, Nothing),
(Graphics.GL.ATI.TextureFloat, Nothing),
(Graphics.GL.ATI.TextureMirrorOnce, Nothing),
(Graphics.GL.ATI.VertexArrayObject, Nothing),
(Graphics.GL.ATI.VertexAttribArrayObject, Nothing),
(Graphics.GL.ATI.VertexStreams, Nothing),
(Graphics.GL.Compatibility30, Nothing),
(Graphics.GL.Compatibility31, Nothing),
(Graphics.GL.Compatibility32, Nothing),
(Graphics.GL.Compatibility33, Nothing),
(Graphics.GL.Compatibility40, Nothing),
(Graphics.GL.Compatibility41, Nothing),
(Graphics.GL.Compatibility42, Nothing),
(Graphics.GL.Compatibility43, Nothing),
(Graphics.GL.Compatibility44, Nothing),
(Graphics.GL.Compatibility45, Nothing),
(Graphics.GL.Core30, Nothing), (Graphics.GL.Core31, Nothing),
(Graphics.GL.Core32, Nothing), (Graphics.GL.Core33, Nothing),
(Graphics.GL.Core40, Nothing), (Graphics.GL.Core41, Nothing),
(Graphics.GL.Core42, Nothing), (Graphics.GL.Core43, Nothing),
(Graphics.GL.Core44, Nothing), (Graphics.GL.Core45, Nothing),
(Graphics.GL.EXT, Nothing), (Graphics.GL.EXT.ABGR, Nothing),
(Graphics.GL.EXT.BGRA, Nothing),
(Graphics.GL.EXT.BindableUniform, Nothing),
(Graphics.GL.EXT.BlendColor, Nothing),
(Graphics.GL.EXT.BlendEquationSeparate, Nothing),
(Graphics.GL.EXT.BlendFuncSeparate, Nothing),
(Graphics.GL.EXT.BlendMinmax, Nothing),
(Graphics.GL.EXT.BlendSubtract, Nothing),
(Graphics.GL.EXT.CMYKA, Nothing),
(Graphics.GL.EXT.ClipVolumeHint, Nothing),
(Graphics.GL.EXT.ColorSubtable, Nothing),
(Graphics.GL.EXT.CompiledVertexArray, Nothing),
(Graphics.GL.EXT.Convolution, Nothing),
(Graphics.GL.EXT.CoordinateFrame, Nothing),
(Graphics.GL.EXT.CopyTexture, Nothing),
(Graphics.GL.EXT.CullVertex, Nothing),
(Graphics.GL.EXT.DebugLabel, Nothing),
(Graphics.GL.EXT.DebugMarker, Nothing),
(Graphics.GL.EXT.DepthBoundsTest, Nothing),
(Graphics.GL.EXT.DirectStateAccess, Nothing),
(Graphics.GL.EXT.DrawBuffers2, Nothing),
(Graphics.GL.EXT.DrawInstanced, Nothing),
(Graphics.GL.EXT.DrawRangeElements, Nothing),
(Graphics.GL.EXT.FogCoord, Nothing),
(Graphics.GL.EXT.FourTwoTwoPixels, Nothing),
(Graphics.GL.EXT.FramebufferBlit, Nothing),
(Graphics.GL.EXT.FramebufferMultisample, Nothing),
(Graphics.GL.EXT.FramebufferMultisampleBlitScaled, Nothing),
(Graphics.GL.EXT.FramebufferObject, Nothing),
(Graphics.GL.EXT.FramebufferSRGB, Nothing),
(Graphics.GL.EXT.GPUProgramParameters, Nothing),
(Graphics.GL.EXT.GPUShader4, Nothing),
(Graphics.GL.EXT.GeometryShader4, Nothing),
(Graphics.GL.EXT.Histogram, Nothing),
(Graphics.GL.EXT.IndexArrayFormats, Nothing),
(Graphics.GL.EXT.IndexFunc, Nothing),
(Graphics.GL.EXT.IndexMaterial, Nothing),
(Graphics.GL.EXT.LightTexture, Nothing),
(Graphics.GL.EXT.MultiDrawArrays, Nothing),
(Graphics.GL.EXT.Multisample, Nothing),
(Graphics.GL.EXT.PackedDepthStencil, Nothing),
(Graphics.GL.EXT.PackedFloat, Nothing),
(Graphics.GL.EXT.PackedPixels, Nothing),
(Graphics.GL.EXT.PalettedTexture, Nothing),
(Graphics.GL.EXT.PixelBufferObject, Nothing),
(Graphics.GL.EXT.PixelTransform, Nothing),
(Graphics.GL.EXT.PointParameters, Nothing),
(Graphics.GL.EXT.PolygonOffset, Nothing),
(Graphics.GL.EXT.PolygonOffsetClamp, Nothing),
(Graphics.GL.EXT.ProvokingVertex, Nothing),
(Graphics.GL.EXT.RasterMultisample, Nothing),
(Graphics.GL.EXT.RescaleNormal, Nothing),
(Graphics.GL.EXT.SecondaryColor, Nothing),
(Graphics.GL.EXT.SeparateShaderObjects, Nothing),
(Graphics.GL.EXT.SeparateSpecularColor, Nothing),
(Graphics.GL.EXT.ShaderImageLoadStore, Nothing),
(Graphics.GL.EXT.SharedTexturePalette, Nothing),
(Graphics.GL.EXT.StencilClearTag, Nothing),
(Graphics.GL.EXT.StencilTwoSide, Nothing),
(Graphics.GL.EXT.StencilWrap, Nothing),
(Graphics.GL.EXT.Subtexture, Nothing),
(Graphics.GL.EXT.Texture, Nothing),
(Graphics.GL.EXT.Texture3D, Nothing),
(Graphics.GL.EXT.TextureArray, Nothing),
(Graphics.GL.EXT.TextureBufferObject, Nothing),
(Graphics.GL.EXT.TextureCompressionLATC, Nothing),
(Graphics.GL.EXT.TextureCompressionRGTC, Nothing),
(Graphics.GL.EXT.TextureCompressionS3TC, Nothing),
(Graphics.GL.EXT.TextureCubeMap, Nothing),
(Graphics.GL.EXT.TextureEnvCombine, Nothing),
(Graphics.GL.EXT.TextureEnvDot3, Nothing),
(Graphics.GL.EXT.TextureFilterAnisotropic, Nothing),
(Graphics.GL.EXT.TextureFilterMinmax, Nothing),
(Graphics.GL.EXT.TextureInteger, Nothing),
(Graphics.GL.EXT.TextureLODBias, Nothing),
(Graphics.GL.EXT.TextureMirrorClamp, Nothing),
(Graphics.GL.EXT.TextureObject, Nothing),
(Graphics.GL.EXT.TexturePerturbNormal, Nothing),
(Graphics.GL.EXT.TextureSNorm, Nothing),
(Graphics.GL.EXT.TextureSRGB, Nothing),
(Graphics.GL.EXT.TextureSRGBDecode, Nothing),
(Graphics.GL.EXT.TextureSharedExponent, Nothing),
(Graphics.GL.EXT.TextureSwizzle, Nothing),
(Graphics.GL.EXT.TimerQuery, Nothing),
(Graphics.GL.EXT.TransformFeedback, Nothing),
(Graphics.GL.EXT.VertexArray, Nothing),
(Graphics.GL.EXT.VertexArrayBGRA, Nothing),
(Graphics.GL.EXT.VertexAttrib64Bit, Nothing),
(Graphics.GL.EXT.VertexShader, Nothing),
(Graphics.GL.EXT.VertexWeighting, Nothing),
(Graphics.GL.EXT.X11SyncObject, Nothing),
(Graphics.GL.Functions, Nothing), (Graphics.GL.GREMEDY, Nothing),
(Graphics.GL.GREMEDY.FrameTerminator, Nothing),
(Graphics.GL.GREMEDY.StringMarker, Nothing),
(Graphics.GL.GetProcAddress, Nothing),
(Graphics.GL.Groups, Nothing), (Graphics.GL.HP, Nothing),
(Graphics.GL.HP.ConvolutionBorderModes, Nothing),
(Graphics.GL.HP.ImageTransform, Nothing),
(Graphics.GL.HP.OcclusionTest, Nothing),
(Graphics.GL.HP.TextureLighting, Nothing),
(Graphics.GL.IBM, Nothing), (Graphics.GL.IBM.CullVertex, Nothing),
(Graphics.GL.IBM.MultimodeDrawArrays, Nothing),
(Graphics.GL.IBM.RasterposClip, Nothing),
(Graphics.GL.IBM.StaticData, Nothing),
(Graphics.GL.IBM.TextureMirroredRepeat, Nothing),
(Graphics.GL.IBM.VertexArrayLists, Nothing),
(Graphics.GL.INGR, Nothing),
(Graphics.GL.INGR.BlendFuncSeparate, Nothing),
(Graphics.GL.INGR.ColorClamp, Nothing),
(Graphics.GL.INGR.InterlaceRead, Nothing),
(Graphics.GL.INTEL, Nothing),
(Graphics.GL.INTEL.FramebufferCmaa, Nothing),
(Graphics.GL.INTEL.MapTexture, Nothing),
(Graphics.GL.INTEL.ParallelArrays, Nothing),
(Graphics.GL.INTEL.PerformanceQuery, Nothing),
(Graphics.GL.KHR, Nothing),
(Graphics.GL.KHR.BlendEquationAdvanced, Nothing),
(Graphics.GL.KHR.BlendEquationAdvancedCoherent, Nothing),
(Graphics.GL.KHR.ContextFlushControl, Nothing),
(Graphics.GL.KHR.DebugCompatibility, Nothing),
(Graphics.GL.KHR.DebugCore, Nothing),
(Graphics.GL.KHR.NoError, Nothing),
(Graphics.GL.KHR.Robustness, Nothing),
(Graphics.GL.KHR.TextureCompressionASTCHDR, Nothing),
(Graphics.GL.KHR.TextureCompressionASTCLDR, Nothing),
(Graphics.GL.MESA, Nothing),
(Graphics.GL.MESA.PackInvert, Nothing),
(Graphics.GL.MESA.ResizeBuffers, Nothing),
(Graphics.GL.MESA.WindowPos, Nothing),
(Graphics.GL.MESA.YCbCrTexture, Nothing),
(Graphics.GL.MESAX, Nothing),
(Graphics.GL.MESAX.TextureStack, Nothing),
(Graphics.GL.NV, Nothing),
(Graphics.GL.NV.BindlessMultiDrawIndirect, Nothing),
(Graphics.GL.NV.BindlessMultiDrawIndirectCount, Nothing),
(Graphics.GL.NV.BindlessTexture, Nothing),
(Graphics.GL.NV.BlendEquationAdvanced, Nothing),
(Graphics.GL.NV.BlendEquationAdvancedCoherent, Nothing),
(Graphics.GL.NV.CommandList, Nothing),
(Graphics.GL.NV.ComputeProgram5, Nothing),
(Graphics.GL.NV.ConditionalRender, Nothing),
(Graphics.GL.NV.ConservativeRaster, Nothing),
(Graphics.GL.NV.ConservativeRasterDilate, Nothing),
(Graphics.GL.NV.CopyDepthToColor, Nothing),
(Graphics.GL.NV.CopyImage, Nothing),
(Graphics.GL.NV.DeepTexture3D, Nothing),
(Graphics.GL.NV.DepthBufferFloat, Nothing),
(Graphics.GL.NV.DepthClamp, Nothing),
(Graphics.GL.NV.DrawTexture, Nothing),
(Graphics.GL.NV.Evaluators, Nothing),
(Graphics.GL.NV.ExplicitMultisample, Nothing),
(Graphics.GL.NV.Fence, Nothing),
(Graphics.GL.NV.FillRectangle, Nothing),
(Graphics.GL.NV.FloatBuffer, Nothing),
(Graphics.GL.NV.FogDistance, Nothing),
(Graphics.GL.NV.FragmentCoverageToColor, Nothing),
(Graphics.GL.NV.FragmentProgram, Nothing),
(Graphics.GL.NV.FragmentProgram2, Nothing),
(Graphics.GL.NV.FramebufferMixedSamples, Nothing),
(Graphics.GL.NV.FramebufferMultisampleCoverage, Nothing),
(Graphics.GL.NV.GPUProgram4, Nothing),
(Graphics.GL.NV.GPUProgram5, Nothing),
(Graphics.GL.NV.GPUShader5, Nothing),
(Graphics.GL.NV.GeometryProgram4, Nothing),
(Graphics.GL.NV.HalfFloat, Nothing),
(Graphics.GL.NV.InternalformatSampleQuery, Nothing),
(Graphics.GL.NV.LightMaxExponent, Nothing),
(Graphics.GL.NV.MultisampleCoverage, Nothing),
(Graphics.GL.NV.MultisampleFilterHint, Nothing),
(Graphics.GL.NV.OcclusionQuery, Nothing),
(Graphics.GL.NV.PackedDepthStencil, Nothing),
(Graphics.GL.NV.ParameterBufferObject, Nothing),
(Graphics.GL.NV.PathRenderingCompatibility, Nothing),
(Graphics.GL.NV.PathRenderingCore, Nothing),
(Graphics.GL.NV.PathRenderingSharedEdge, Nothing),
(Graphics.GL.NV.PixelDataRange, Nothing),
(Graphics.GL.NV.PointSprite, Nothing),
(Graphics.GL.NV.PresentVideo, Nothing),
(Graphics.GL.NV.PrimitiveRestart, Nothing),
(Graphics.GL.NV.RegisterCombiners, Nothing),
(Graphics.GL.NV.RegisterCombiners2, Nothing),
(Graphics.GL.NV.SampleLocations, Nothing),
(Graphics.GL.NV.ShaderBufferLoad, Nothing),
(Graphics.GL.NV.ShaderBufferStore, Nothing),
(Graphics.GL.NV.ShaderThreadGroup, Nothing),
(Graphics.GL.NV.TessellationProgram5, Nothing),
(Graphics.GL.NV.TexgenEmboss, Nothing),
(Graphics.GL.NV.TexgenReflection, Nothing),
(Graphics.GL.NV.TextureBarrier, Nothing),
(Graphics.GL.NV.TextureEnvCombine4, Nothing),
(Graphics.GL.NV.TextureExpandNormal, Nothing),
(Graphics.GL.NV.TextureMultisample, Nothing),
(Graphics.GL.NV.TextureRectangle, Nothing),
(Graphics.GL.NV.TextureShader, Nothing),
(Graphics.GL.NV.TextureShader2, Nothing),
(Graphics.GL.NV.TextureShader3, Nothing),
(Graphics.GL.NV.TransformFeedback, Nothing),
(Graphics.GL.NV.TransformFeedback2, Nothing),
(Graphics.GL.NV.UniformBufferUnifiedMemory, Nothing),
(Graphics.GL.NV.VDPAUInterop, Nothing),
(Graphics.GL.NV.VertexArrayRange, Nothing),
(Graphics.GL.NV.VertexArrayRange2, Nothing),
(Graphics.GL.NV.VertexAttribInteger64Bit, Nothing),
(Graphics.GL.NV.VertexBufferUnifiedMemory, Nothing),
(Graphics.GL.NV.VertexProgram, Nothing),
(Graphics.GL.NV.VertexProgram2Option, Nothing),
(Graphics.GL.NV.VertexProgram3, Nothing),
(Graphics.GL.NV.VertexProgram4, Nothing),
(Graphics.GL.NV.VideoCapture, Nothing), (Graphics.GL.NVX, Nothing),
(Graphics.GL.NVX.ConditionalRender, Nothing),
(Graphics.GL.NVX.GPUMemoryInfo, Nothing),
(Graphics.GL.OES, Nothing),
(Graphics.GL.OES.ByteCoordinates, Nothing),
(Graphics.GL.OES.CompressedPalettedTexture, Nothing),
(Graphics.GL.OES.FixedPoint, Nothing),
(Graphics.GL.OES.QueryMatrix, Nothing),
(Graphics.GL.OES.ReadFormat, Nothing),
(Graphics.GL.OES.SinglePrecision, Nothing),
(Graphics.GL.OML, Nothing), (Graphics.GL.OML.Interlace, Nothing),
(Graphics.GL.OML.Resample, Nothing),
(Graphics.GL.OML.Subsample, Nothing), (Graphics.GL.OVR, Nothing),
(Graphics.GL.OVR.Multiview, Nothing), (Graphics.GL.PGI, Nothing),
(Graphics.GL.PGI.MiscHints, Nothing),
(Graphics.GL.PGI.VertexHints, Nothing),
(Graphics.GL.REND, Nothing),
(Graphics.GL.REND.ScreenCoordinates, Nothing),
(Graphics.GL.S3, Nothing), (Graphics.GL.S3.S3TC, Nothing),
(Graphics.GL.SGI, Nothing), (Graphics.GL.SGI.ColorMatrix, Nothing),
(Graphics.GL.SGI.ColorTable, Nothing),
(Graphics.GL.SGI.TextureColorTable, Nothing),
(Graphics.GL.SGIS, Nothing),
(Graphics.GL.SGIS.DetailTexture, Nothing),
(Graphics.GL.SGIS.FogFunction, Nothing),
(Graphics.GL.SGIS.GenerateMipmap, Nothing),
(Graphics.GL.SGIS.Multisample, Nothing),
(Graphics.GL.SGIS.PixelTexture, Nothing),
(Graphics.GL.SGIS.PointLineTexgen, Nothing),
(Graphics.GL.SGIS.PointParameters, Nothing),
(Graphics.GL.SGIS.SharpenTexture, Nothing),
(Graphics.GL.SGIS.Texture4D, Nothing),
(Graphics.GL.SGIS.TextureBorderClamp, Nothing),
(Graphics.GL.SGIS.TextureColorMask, Nothing),
(Graphics.GL.SGIS.TextureEdgeClamp, Nothing),
(Graphics.GL.SGIS.TextureFilter4, Nothing),
(Graphics.GL.SGIS.TextureLOD, Nothing),
(Graphics.GL.SGIS.TextureSelect, Nothing),
(Graphics.GL.SGIX, Nothing), (Graphics.GL.SGIX.Async, Nothing),
(Graphics.GL.SGIX.AsyncHistogram, Nothing),
(Graphics.GL.SGIX.AsyncPixel, Nothing),
(Graphics.GL.SGIX.BlendAlphaMinmax, Nothing),
(Graphics.GL.SGIX.CalligraphicFragment, Nothing),
(Graphics.GL.SGIX.Clipmap, Nothing),
(Graphics.GL.SGIX.ConvolutionAccuracy, Nothing),
(Graphics.GL.SGIX.DepthTexture, Nothing),
(Graphics.GL.SGIX.FlushRaster, Nothing),
(Graphics.GL.SGIX.FogOffset, Nothing),
(Graphics.GL.SGIX.FragmentLighting, Nothing),
(Graphics.GL.SGIX.Framezoom, Nothing),
(Graphics.GL.SGIX.IglooInterface, Nothing),
(Graphics.GL.SGIX.Instruments, Nothing),
(Graphics.GL.SGIX.Interlace, Nothing),
(Graphics.GL.SGIX.IrInstrument1, Nothing),
(Graphics.GL.SGIX.ListPriority, Nothing),
(Graphics.GL.SGIX.PixelTexture, Nothing),
(Graphics.GL.SGIX.PixelTiles, Nothing),
(Graphics.GL.SGIX.PolynomialFFD, Nothing),
(Graphics.GL.SGIX.ReferencePlane, Nothing),
(Graphics.GL.SGIX.Resample, Nothing),
(Graphics.GL.SGIX.ScalebiasHint, Nothing),
(Graphics.GL.SGIX.Shadow, Nothing),
(Graphics.GL.SGIX.ShadowAmbient, Nothing),
(Graphics.GL.SGIX.Sprite, Nothing),
(Graphics.GL.SGIX.Subsample, Nothing),
(Graphics.GL.SGIX.TagSampleBuffer, Nothing),
(Graphics.GL.SGIX.TextureAddEnv, Nothing),
(Graphics.GL.SGIX.TextureCoordinateClamp, Nothing),
(Graphics.GL.SGIX.TextureLODBias, Nothing),
(Graphics.GL.SGIX.TextureMultiBuffer, Nothing),
(Graphics.GL.SGIX.TextureScaleBias, Nothing),
(Graphics.GL.SGIX.VertexPreclip, Nothing),
(Graphics.GL.SGIX.YCrCb, Nothing),
(Graphics.GL.SGIX.YCrCbA, Nothing), (Graphics.GL.SUN, Nothing),
(Graphics.GL.SUN.ConvolutionBorderModes, Nothing),
(Graphics.GL.SUN.GlobalAlpha, Nothing),
(Graphics.GL.SUN.MeshArray, Nothing),
(Graphics.GL.SUN.SliceAccum, Nothing),
(Graphics.GL.SUN.TriangleList, Nothing),
(Graphics.GL.SUN.Vertex, Nothing), (Graphics.GL.SUNX, Nothing),
(Graphics.GL.SUNX.ConstantData, Nothing),
(Graphics.GL.ThreeDFX, Nothing),
(Graphics.GL.ThreeDFX.Multisample, Nothing),
(Graphics.GL.ThreeDFX.Tbuffer, Nothing),
(Graphics.GL.ThreeDFX.TextureCompressionFXT1, Nothing),
(Graphics.GL.Tokens, Nothing), (Graphics.GL.Types, Nothing),
(Graphics.GL.Version10, Nothing), (Graphics.GL.Version11, Nothing),
(Graphics.GL.Version12, Nothing), (Graphics.GL.Version13, Nothing),
(Graphics.GL.Version14, Nothing), (Graphics.GL.Version15, Nothing),
(Graphics.GL.Version20, Nothing), (Graphics.GL.Version21, Nothing),
(Graphics.GL.WIN, Nothing),
(Graphics.GL.WIN.PhongShading, Nothing),
(Graphics.GL.WIN.SpecularFog, Nothing)]
hidden-modules: Graphics.GL.ExtensionPredicates Graphics.GL.Foreign
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\OpenGLRaw-3.1.0.0-CDJrODBCFss2dZuvkKgGgs
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\OpenGLRaw-3.1.0.0-CDJrODBCFss2dZuvkKgGgs
hs-libraries: HSOpenGLRaw-3.1.0.0-CDJrODBCFss2dZuvkKgGgs
extra-libraries: opengl32
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 bytestring-0.10.7.0 containers-0.5.7.1
fixed-0.2.1.1 half-0.2.2.3 text-1.2.2.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\OpenGLRaw-3.1.0.0\html\OpenGLRaw.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\OpenGLRaw-3.1.0.0\html
---
name: half
version: 0.2.2.3
id: half-0.2.2.3
exposed: True
exposed-modules: [(Numeric.Half, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\half-0.2.2.3-BFHx0LiJemg6baNXrjGThF
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\half-0.2.2.3-BFHx0LiJemg6baNXrjGThF
hs-libraries: HShalf-0.2.2.3-BFHx0LiJemg6baNXrjGThF
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\half-0.2.2.3\html\half.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\half-0.2.2.3\html
---
name: fixed
version: 0.2.1.1
id: fixed-0.2.1.1
exposed: True
exposed-modules: [(Numeric.Fixed, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\fixed-0.2.1.1-21JkkJmr6h52cZo1o8cauA
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\fixed-0.2.1.1-21JkkJmr6h52cZo1o8cauA
hs-libraries: HSfixed-0.2.1.1-21JkkJmr6h52cZo1o8cauA
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\fixed-0.2.1.1\html\fixed.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\fixed-0.2.1.1\html
---
name: ObjectName
version: 1.1.0.1
id: ObjectName-1.1.0.1
exposed: True
exposed-modules: [(Data.ObjectName, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\ObjectName-1.1.0.1-1039jwjM1tGBCpHPmoZU6B
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\ObjectName-1.1.0.1-1039jwjM1tGBCpHPmoZU6B
hs-libraries: HSObjectName-1.1.0.1-1039jwjM1tGBCpHPmoZU6B
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\ObjectName-1.1.0.1\html\ObjectName.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\ObjectName-1.1.0.1\html
---
name: logfloat
version: 0.13.3.3
id: logfloat-0.13.3.3
exposed: True
exposed-modules: [(Data.Number.LogFloat, Nothing),
(Data.Number.RealToFrac, Nothing),
(Data.Number.Transfinite, Nothing),
(Data.Number.PartialOrd, Nothing), (Hugs.RealFloat, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\logfloat-0.13.3.3-CAnbDRG80QrBhb3UKEGnd7
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\logfloat-0.13.3.3-CAnbDRG80QrBhb3UKEGnd7
hs-libraries: HSlogfloat-0.13.3.3-CAnbDRG80QrBhb3UKEGnd7
extra-libraries: m
extra-ghci-libraries:
include-dirs:
includes: math.h
depends: array-0.5.1.0 base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\logfloat-0.13.3.3\html\logfloat.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\logfloat-0.13.3.3\html
---
name: semigroupoids
version: 5.0.1
id: semigroupoids-5.0.1
exposed: True
exposed-modules: [(Data.Bifunctor.Apply, Nothing),
(Data.Functor.Alt, Nothing), (Data.Functor.Apply, Nothing),
(Data.Functor.Bind, Nothing), (Data.Functor.Bind.Class, Nothing),
(Data.Functor.Bind.Trans, Nothing), (Data.Functor.Extend, Nothing),
(Data.Functor.Plus, Nothing), (Data.Groupoid, Nothing),
(Data.Isomorphism, Nothing), (Data.Semigroup.Bifoldable, Nothing),
(Data.Semigroup.Bitraversable, Nothing),
(Data.Semigroup.Foldable, Nothing),
(Data.Semigroup.Foldable.Class, Nothing),
(Data.Semigroup.Traversable, Nothing),
(Data.Semigroup.Traversable.Class, Nothing),
(Data.Semigroupoid, Nothing), (Data.Semigroupoid.Dual, Nothing),
(Data.Semigroupoid.Ob, Nothing),
(Data.Semigroupoid.Static, Nothing),
(Data.Traversable.Instances, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\semigroupoids-5.0.1-3D7s4IrFRX26nMNxOnx1NZ
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\semigroupoids-5.0.1-3D7s4IrFRX26nMNxOnx1NZ
hs-libraries: HSsemigroupoids-5.0.1-3D7s4IrFRX26nMNxOnx1NZ
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 base-orphans-0.5.2 bifunctors-5.2.1 comonad-5
containers-0.5.7.1 contravariant-1.4 distributive-0.5.0.2
semigroups-0.18.1 tagged-0.8.3 transformers-0.5.1.0
transformers-compat-0.5.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\semigroupoids-5.0.1\html\semigroupoids.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\semigroupoids-5.0.1\html
---
name: profunctors
version: 5.2
id: profunctors-5.2
exposed: True
exposed-modules: [(Data.Profunctor, Nothing),
(Data.Profunctor.Adjunction, Nothing),
(Data.Profunctor.Cayley, Nothing),
(Data.Profunctor.Choice, Nothing),
(Data.Profunctor.Closed, Nothing),
(Data.Profunctor.Composition, Nothing),
(Data.Profunctor.Mapping, Nothing),
(Data.Profunctor.Monad, Nothing), (Data.Profunctor.Ran, Nothing),
(Data.Profunctor.Rep, Nothing), (Data.Profunctor.Sieve, Nothing),
(Data.Profunctor.Strong, Nothing),
(Data.Profunctor.Traversing, Nothing),
(Data.Profunctor.Types, Nothing),
(Data.Profunctor.Unsafe, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\profunctors-5.2-EZPNrrsijc7DKP8NrVEXwa
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\profunctors-5.2-EZPNrrsijc7DKP8NrVEXwa
hs-libraries: HSprofunctors-5.2-EZPNrrsijc7DKP8NrVEXwa
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 base-orphans-0.5.2 bifunctors-5.2.1 comonad-5
contravariant-1.4 distributive-0.5.0.2 tagged-0.8.3
transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\profunctors-5.2\html\profunctors.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\profunctors-5.2\html
---
name: scientific
version: 0.3.4.4
id: scientific-0.3.4.4
exposed: True
exposed-modules: [(Data.Scientific, Nothing),
(Data.Text.Lazy.Builder.Scientific, Nothing),
(Data.ByteString.Builder.Scientific, Nothing)]
hidden-modules: Math.NumberTheory.Logarithms
GHC.Integer.Logarithms.Compat GHC.Integer.Compat Utils
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\scientific-0.3.4.4-K0Rwt0gEQUADfY9Uewms0m
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\scientific-0.3.4.4-K0Rwt0gEQUADfY9Uewms0m
hs-libraries: HSscientific-0.3.4.4-K0Rwt0gEQUADfY9Uewms0m
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 binary-0.8.2.0 bytestring-0.10.7.0
containers-0.5.7.1 deepseq-1.4.2.0 ghc-prim-0.5.0.0
hashable-1.2.4.0 integer-gmp-1.0.0.1 text-1.2.2.0 vector-0.11.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\scientific-0.3.4.4\html\scientific.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\scientific-0.3.4.4\html
---
name: bifunctors
version: 5.2.1
id: bifunctors-5.2.1
exposed: True
exposed-modules: [(Data.Biapplicative, Nothing),
(Data.Bifoldable, Nothing), (Data.Bifunctor.Biff, Nothing),
(Data.Bifunctor.Clown, Nothing), (Data.Bifunctor.Fix, Nothing),
(Data.Bifunctor.Flip, Nothing), (Data.Bifunctor.Functor, Nothing),
(Data.Bifunctor.Join, Nothing), (Data.Bifunctor.Joker, Nothing),
(Data.Bifunctor.Product, Nothing), (Data.Bifunctor.Sum, Nothing),
(Data.Bifunctor.Tannen, Nothing), (Data.Bifunctor.TH, Nothing),
(Data.Bifunctor.Wrapped, Nothing), (Data.Bitraversable, Nothing)]
hidden-modules: Data.Bifunctor.TH.Internal Paths_bifunctors
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bifunctors-5.2.1-Hiu4vQpJV8EuLJfqDs3g5
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\bifunctors-5.2.1-Hiu4vQpJV8EuLJfqDs3g5
hs-libraries: HSbifunctors-5.2.1-Hiu4vQpJV8EuLJfqDs3g5
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 comonad-5 containers-0.5.7.1
semigroups-0.18.1 tagged-0.8.3 template-haskell-2.11.0.0
transformers-0.5.1.0 transformers-compat-0.5.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bifunctors-5.2.1\html\bifunctors.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\bifunctors-5.2.1\html
---
name: vector
version: 0.11.0.0
id: vector-0.11.0.0
exposed: True
exposed-modules: [(Data.Vector.Internal.Check, Nothing),
(Data.Vector.Fusion.Util, Nothing),
(Data.Vector.Fusion.Stream.Monadic, Nothing),
(Data.Vector.Fusion.Bundle.Size, Nothing),
(Data.Vector.Fusion.Bundle.Monadic, Nothing),
(Data.Vector.Fusion.Bundle, Nothing),
(Data.Vector.Generic.Mutable.Base, Nothing),
(Data.Vector.Generic.Mutable, Nothing),
(Data.Vector.Generic.Base, Nothing),
(Data.Vector.Generic.New, Nothing), (Data.Vector.Generic, Nothing),
(Data.Vector.Primitive.Mutable, Nothing),
(Data.Vector.Primitive, Nothing),
(Data.Vector.Storable.Internal, Nothing),
(Data.Vector.Storable.Mutable, Nothing),
(Data.Vector.Storable, Nothing),
(Data.Vector.Unboxed.Base, Nothing),
(Data.Vector.Unboxed.Mutable, Nothing),
(Data.Vector.Unboxed, Nothing), (Data.Vector.Mutable, Nothing),
(Data.Vector, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\vector-0.11.0.0-6txzAajQr4K4eMq9LtY64L
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\vector-0.11.0.0-6txzAajQr4K4eMq9LtY64L
hs-libraries: HSvector-0.11.0.0-6txzAajQr4K4eMq9LtY64L
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\vector-0.11.0.0-6txzAajQr4K4eMq9LtY64L\include
includes:
depends: base-4.9.0.0 deepseq-1.4.2.0 ghc-prim-0.5.0.0
primitive-0.6.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\vector-0.11.0.0\html\vector.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\vector-0.11.0.0\html
---
name: unordered-containers
version: 0.2.7.0
id: unordered-containers-0.2.7.0
exposed: True
exposed-modules: [(Data.HashMap.Lazy, Nothing),
(Data.HashMap.Strict, Nothing), (Data.HashSet, Nothing)]
hidden-modules: Data.HashMap.Array Data.HashMap.Base
Data.HashMap.PopCount Data.HashMap.Unsafe Data.HashMap.UnsafeShift
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\unordered-containers-0.2.7.0-A75grv3sdIu4cusF7Waf67
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\unordered-containers-0.2.7.0-A75grv3sdIu4cusF7Waf67
hs-libraries: HSunordered-containers-0.2.7.0-A75grv3sdIu4cusF7Waf67
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 deepseq-1.4.2.0 hashable-1.2.4.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\unordered-containers-0.2.7.0\html\unordered-containers.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\unordered-containers-0.2.7.0\html
---
name: comonad
version: 5
id: comonad-5
exposed: True
exposed-modules: [(Control.Comonad, Nothing),
(Control.Comonad.Env, Nothing),
(Control.Comonad.Env.Class, Nothing),
(Control.Comonad.Hoist.Class, Nothing),
(Control.Comonad.Identity, Nothing),
(Control.Comonad.Store, Nothing),
(Control.Comonad.Store.Class, Nothing),
(Control.Comonad.Traced, Nothing),
(Control.Comonad.Traced.Class, Nothing),
(Control.Comonad.Trans.Class, Nothing),
(Control.Comonad.Trans.Env, Nothing),
(Control.Comonad.Trans.Identity, Nothing),
(Control.Comonad.Trans.Store, Nothing),
(Control.Comonad.Trans.Traced, Nothing),
(Data.Functor.Composition, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\comonad-5-4ANbaZjgGWC3KlqjjOSXz9
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\comonad-5-4ANbaZjgGWC3KlqjjOSXz9
hs-libraries: HScomonad-5-4ANbaZjgGWC3KlqjjOSXz9
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 containers-0.5.7.1 contravariant-1.4
distributive-0.5.0.2 semigroups-0.18.1 tagged-0.8.3
transformers-0.5.1.0 transformers-compat-0.5.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\comonad-5\html\comonad.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\comonad-5\html
---
name: contravariant
version: 1.4
id: contravariant-1.4
exposed: True
exposed-modules: [(Data.Functor.Contravariant, Nothing),
(Data.Functor.Contravariant.Compose, Nothing),
(Data.Functor.Contravariant.Divisible, Nothing),
(Data.Functor.Contravariant.Generic, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\contravariant-1.4-1UiH66qOMFG6wN7id6xPpp
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\contravariant-1.4-1UiH66qOMFG6wN7id6xPpp
hs-libraries: HScontravariant-1.4-1UiH66qOMFG6wN7id6xPpp
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: StateVar-1.1.0.3 base-4.9.0.0 semigroups-0.18.1
transformers-0.5.1.0 transformers-compat-0.5.1.4 void-0.7.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\contravariant-1.4\html\contravariant.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\contravariant-1.4\html
---
name: void
version: 0.7.1
id: void-0.7.1
exposed: True
exposed-modules: [(Data.Void.Unsafe, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\void-0.7.1-JN2xFV06SqGCmtswzL4xwR
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\void-0.7.1-JN2xFV06SqGCmtswzL4xwR
hs-libraries: HSvoid-0.7.1-JN2xFV06SqGCmtswzL4xwR
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 deepseq-1.4.2.0 ghc-prim-0.5.0.0
hashable-1.2.4.0 semigroups-0.18.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\void-0.7.1\html\void.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\void-0.7.1\html
---
name: hashable
version: 1.2.4.0
id: hashable-1.2.4.0
exposed: True
exposed-modules: [(Data.Hashable, Nothing)]
hidden-modules: Data.Hashable.Class Data.Hashable.Generic
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\hashable-1.2.4.0-20J6xWYEcMbHhTD8PmzenQ
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\hashable-1.2.4.0-20J6xWYEcMbHhTD8PmzenQ
hs-libraries: HShashable-1.2.4.0-20J6xWYEcMbHhTD8PmzenQ
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 bytestring-0.10.7.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1 text-1.2.2.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\hashable-1.2.4.0\html\hashable.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\hashable-1.2.4.0\html
---
name: text
version: 1.2.2.0
id: text-1.2.2.0
exposed: True
exposed-modules: [(Data.Text, Nothing), (Data.Text.Array, Nothing),
(Data.Text.Encoding, Nothing), (Data.Text.Encoding.Error, Nothing),
(Data.Text.Foreign, Nothing), (Data.Text.IO, Nothing),
(Data.Text.Internal, Nothing),
(Data.Text.Internal.Builder, Nothing),
(Data.Text.Internal.Builder.Functions, Nothing),
(Data.Text.Internal.Builder.Int.Digits, Nothing),
(Data.Text.Internal.Builder.RealFloat.Functions, Nothing),
(Data.Text.Internal.Encoding.Fusion, Nothing),
(Data.Text.Internal.Encoding.Fusion.Common, Nothing),
(Data.Text.Internal.Encoding.Utf16, Nothing),
(Data.Text.Internal.Encoding.Utf32, Nothing),
(Data.Text.Internal.Encoding.Utf8, Nothing),
(Data.Text.Internal.Functions, Nothing),
(Data.Text.Internal.Fusion, Nothing),
(Data.Text.Internal.Fusion.CaseMapping, Nothing),
(Data.Text.Internal.Fusion.Common, Nothing),
(Data.Text.Internal.Fusion.Size, Nothing),
(Data.Text.Internal.Fusion.Types, Nothing),
(Data.Text.Internal.IO, Nothing),
(Data.Text.Internal.Lazy, Nothing),
(Data.Text.Internal.Lazy.Encoding.Fusion, Nothing),
(Data.Text.Internal.Lazy.Fusion, Nothing),
(Data.Text.Internal.Lazy.Search, Nothing),
(Data.Text.Internal.Private, Nothing),
(Data.Text.Internal.Read, Nothing),
(Data.Text.Internal.Search, Nothing),
(Data.Text.Internal.Unsafe, Nothing),
(Data.Text.Internal.Unsafe.Char, Nothing),
(Data.Text.Internal.Unsafe.Shift, Nothing),
(Data.Text.Lazy, Nothing), (Data.Text.Lazy.Builder, Nothing),
(Data.Text.Lazy.Builder.Int, Nothing),
(Data.Text.Lazy.Builder.RealFloat, Nothing),
(Data.Text.Lazy.Encoding, Nothing), (Data.Text.Lazy.IO, Nothing),
(Data.Text.Lazy.Internal, Nothing), (Data.Text.Lazy.Read, Nothing),
(Data.Text.Read, Nothing), (Data.Text.Unsafe, Nothing)]
hidden-modules: Data.Text.Show
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\text-1.2.2.0-DNPL9j70xW29izEeMAP0sY
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\text-1.2.2.0-DNPL9j70xW29izEeMAP0sY
hs-libraries: HStext-1.2.2.0-DNPL9j70xW29izEeMAP0sY
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0 binary-0.8.2.0
bytestring-0.10.7.0 deepseq-1.4.2.0 ghc-prim-0.5.0.0
integer-gmp-1.0.0.1
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\text-1.2.2.0\html\text.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\text-1.2.2.0\html
---
name: distributive
version: 0.5.0.2
id: distributive-0.5.0.2
exposed: True
exposed-modules: [(Data.Distributive, Nothing),
(Data.Distributive.Generic, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\distributive-0.5.0.2-LnNt0W7TcXFETUYAX7P09r
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\distributive-0.5.0.2-LnNt0W7TcXFETUYAX7P09r
hs-libraries: HSdistributive-0.5.0.2-LnNt0W7TcXFETUYAX7P09r
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 base-orphans-0.5.2 tagged-0.8.3
transformers-0.5.1.0 transformers-compat-0.5.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\distributive-0.5.0.2\html\distributive.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\distributive-0.5.0.2\html
---
name: exceptions
version: 0.8.2.1
id: exceptions-0.8.2.1
exposed: True
exposed-modules: [(Control.Monad.Catch, Nothing),
(Control.Monad.Catch.Pure, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\exceptions-0.8.2.1-Fb9Z2DgfmRa2cC7szK8dbK
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\exceptions-0.8.2.1-Fb9Z2DgfmRa2cC7szK8dbK
hs-libraries: HSexceptions-0.8.2.1-Fb9Z2DgfmRa2cC7szK8dbK
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 mtl-2.2.1 stm-2.4.4.1
template-haskell-2.11.0.0 transformers-0.5.1.0
transformers-compat-0.5.1.4
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\exceptions-0.8.2.1\html\exceptions.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\exceptions-0.8.2.1\html
---
name: StateVar
version: 1.1.0.3
id: StateVar-1.1.0.3
exposed: True
exposed-modules: [(Data.StateVar, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\StateVar-1.1.0.3-6EPAMnRk4ch63iwD17RTYV
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\StateVar-1.1.0.3-6EPAMnRk4ch63iwD17RTYV
hs-libraries: HSStateVar-1.1.0.3-6EPAMnRk4ch63iwD17RTYV
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 stm-2.4.4.1 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\StateVar-1.1.0.3\html\StateVar.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\StateVar-1.1.0.3\html
---
name: cereal
version: 0.5.1.0
id: cereal-0.5.1.0
exposed: True
exposed-modules: [(Data.Serialize, Nothing),
(Data.Serialize.Put, Nothing), (Data.Serialize.Get, Nothing),
(Data.Serialize.IEEE754, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\cereal-0.5.1.0-FXddYdXNF4l1BisnV9ns06
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\cereal-0.5.1.0-FXddYdXNF4l1BisnV9ns06
hs-libraries: HScereal-0.5.1.0-FXddYdXNF4l1BisnV9ns06
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0 bytestring-0.10.7.0
containers-0.5.7.1 ghc-prim-0.5.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\cereal-0.5.1.0\html\cereal.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\cereal-0.5.1.0\html
---
name: tagged
version: 0.8.3
id: tagged-0.8.3
exposed: True
exposed-modules: [(Data.Tagged, Nothing), (Data.Proxy.TH, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\tagged-0.8.3-8b1z2z4BoWI61h7jlWM3yR
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\tagged-0.8.3-8b1z2z4BoWI61h7jlWM3yR
hs-libraries: HStagged-0.8.3-8b1z2z4BoWI61h7jlWM3yR
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 deepseq-1.4.2.0 template-haskell-2.11.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\tagged-0.8.3\html\tagged.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\tagged-0.8.3\html
---
name: reflection
version: 2.1.2
id: reflection-2.1.2
exposed: True
exposed-modules: [(Data.Reflection, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\reflection-2.1.2-Lwt0A3NRHka1hAeW9AOpLq
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\reflection-2.1.2-Lwt0A3NRHka1hAeW9AOpLq
hs-libraries: HSreflection-2.1.2-Lwt0A3NRHka1hAeW9AOpLq
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 template-haskell-2.11.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\reflection-2.1.2\html\reflection.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\reflection-2.1.2\html
---
name: semigroups
version: 0.18.1
id: semigroups-0.18.1
exposed: True
exposed-modules: [(Data.Semigroup.Generic, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\semigroups-0.18.1-2Ug5XAbvLWz4CGDwXtkoXz
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\semigroups-0.18.1-2Ug5XAbvLWz4CGDwXtkoXz
hs-libraries: HSsemigroups-0.18.1-2Ug5XAbvLWz4CGDwXtkoXz
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\semigroups-0.18.1\html\semigroups.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\semigroups-0.18.1\html
---
name: prelude-extras
version: 0.4.0.3
id: prelude-extras-0.4.0.3
exposed: True
exposed-modules: [(Prelude.Extras, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\prelude-extras-0.4.0.3-FAyB4iuuM7cHXdrLMZtdXq
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\prelude-extras-0.4.0.3-FAyB4iuuM7cHXdrLMZtdXq
hs-libraries: HSprelude-extras-0.4.0.3-FAyB4iuuM7cHXdrLMZtdXq
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\prelude-extras-0.4.0.3\html\prelude-extras.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\prelude-extras-0.4.0.3\html
---
name: parallel
version: 3.2.1.0
id: parallel-3.2.1.0
exposed: True
exposed-modules: [(Control.Seq, Nothing),
(Control.Parallel, Nothing),
(Control.Parallel.Strategies, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\parallel-3.2.1.0-INxRNkubWkjDGWu75BM349
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\parallel-3.2.1.0-INxRNkubWkjDGWu75BM349
hs-libraries: HSparallel-3.2.1.0-INxRNkubWkjDGWu75BM349
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0 containers-0.5.7.1
deepseq-1.4.2.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\parallel-3.2.1.0\html\parallel.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\parallel-3.2.1.0\html
---
name: primitive
version: 0.6.1.0
id: primitive-0.6.1.0
exposed: True
exposed-modules: [(Control.Monad.Primitive, Nothing),
(Data.Primitive, Nothing), (Data.Primitive.MachDeps, Nothing),
(Data.Primitive.Types, Nothing), (Data.Primitive.Array, Nothing),
(Data.Primitive.ByteArray, Nothing),
(Data.Primitive.Addr, Nothing), (Data.Primitive.MutVar, Nothing)]
hidden-modules: Data.Primitive.Internal.Compat
Data.Primitive.Internal.Operations
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\primitive-0.6.1.0-HRCr015HHnO8SV8zy4HuYf
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\primitive-0.6.1.0-HRCr015HHnO8SV8zy4HuYf
hs-libraries: HSprimitive-0.6.1.0-HRCr015HHnO8SV8zy4HuYf
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\primitive-0.6.1.0-HRCr015HHnO8SV8zy4HuYf\include
includes: primitive-memops.h
depends: base-4.9.0.0 ghc-prim-0.5.0.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\primitive-0.6.1.0\html\primitive.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\primitive-0.6.1.0\html
---
name: mtl
version: 2.2.1
id: mtl-2.2.1
exposed: True
exposed-modules: [(Control.Monad.Cont, Nothing),
(Control.Monad.Cont.Class, Nothing),
(Control.Monad.Error, Nothing),
(Control.Monad.Error.Class, Nothing),
(Control.Monad.Except, Nothing), (Control.Monad.Identity, Nothing),
(Control.Monad.List, Nothing), (Control.Monad.RWS, Nothing),
(Control.Monad.RWS.Class, Nothing),
(Control.Monad.RWS.Lazy, Nothing),
(Control.Monad.RWS.Strict, Nothing),
(Control.Monad.Reader, Nothing),
(Control.Monad.Reader.Class, Nothing),
(Control.Monad.State, Nothing),
(Control.Monad.State.Class, Nothing),
(Control.Monad.State.Lazy, Nothing),
(Control.Monad.State.Strict, Nothing),
(Control.Monad.Trans, Nothing), (Control.Monad.Writer, Nothing),
(Control.Monad.Writer.Class, Nothing),
(Control.Monad.Writer.Lazy, Nothing),
(Control.Monad.Writer.Strict, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\mtl-2.2.1-L7qmUTUPJEsJIt6aG8wv2H
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\mtl-2.2.1-L7qmUTUPJEsJIt6aG8wv2H
hs-libraries: HSmtl-2.2.1-L7qmUTUPJEsJIt6aG8wv2H
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\mtl-2.2.1\html\mtl.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\mtl-2.2.1\html
---
name: transformers-compat
version: 0.5.1.4
id: transformers-compat-0.5.1.4
exposed: True
exposed-modules: [(Control.Monad.Trans.Instances, Nothing)]
hidden-modules: Paths_transformers_compat
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\transformers-compat-0.5.1.4-1bSAz8D0Tp9EAEIMf0m894
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\transformers-compat-0.5.1.4-1bSAz8D0Tp9EAEIMf0m894
hs-libraries: HStransformers-compat-0.5.1.4-1bSAz8D0Tp9EAEIMf0m894
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 ghc-prim-0.5.0.0 transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\transformers-compat-0.5.1.4\html\transformers-compat.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\transformers-compat-0.5.1.4\html
---
name: stm
version: 2.4.4.1
id: stm-2.4.4.1
exposed: True
exposed-modules: [(Control.Concurrent.STM, Nothing),
(Control.Concurrent.STM.TArray, Nothing),
(Control.Concurrent.STM.TVar, Nothing),
(Control.Concurrent.STM.TChan, Nothing),
(Control.Concurrent.STM.TMVar, Nothing),
(Control.Concurrent.STM.TQueue, Nothing),
(Control.Concurrent.STM.TBQueue, Nothing),
(Control.Concurrent.STM.TSem, Nothing),
(Control.Monad.STM, Nothing)]
hidden-modules: Control.Sequential.STM
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\stm-2.4.4.1-J0CYkiAk6CWEWFlKwm3sio
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\stm-2.4.4.1-J0CYkiAk6CWEWFlKwm3sio
hs-libraries: HSstm-2.4.4.1-J0CYkiAk6CWEWFlKwm3sio
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: array-0.5.1.0 base-4.9.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\stm-2.4.4.1\html\stm.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\stm-2.4.4.1\html
---
name: base-orphans
version: 0.5.2
id: base-orphans-0.5.2
exposed: True
exposed-modules: [(Data.Orphans, Nothing)]
hidden-modules: Data.Orphans.Prelude
trusted: False
import-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\base-orphans-0.5.2-EUifBD61N7F7q0WgsyzKbv
library-dirs: C:\Users\RyanGlScott\AppData\Roaming\cabal\x86_64-windows-ghc-8.1.20160228\base-orphans-0.5.2-EUifBD61N7F7q0WgsyzKbv
hs-libraries: HSbase-orphans-0.5.2-EUifBD61N7F7q0WgsyzKbv
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 ghc-prim-0.5.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\base-orphans-0.5.2\html\base-orphans.haddock
haddock-html: C:\Users\RyanGlScott\AppData\Roaming\cabal\doc\x86_64-windows-ghc-8.1.20160228\base-orphans-0.5.2\html
---
name: ghc
version: 8.1
id: ghc-8.1
exposed: False
exposed-modules: [(Avail, Nothing), (BasicTypes, Nothing),
(ConLike, Nothing), (DataCon, Nothing), (PatSyn, Nothing),
(Demand, Nothing), (Debug, Nothing), (Exception, Nothing),
(FieldLabel, Nothing), (GhcMonad, Nothing), (Hooks, Nothing),
(Id, Nothing), (IdInfo, Nothing), (Lexeme, Nothing),
(Literal, Nothing), (Llvm, Nothing), (Llvm.AbsSyn, Nothing),
(Llvm.MetaData, Nothing), (Llvm.PpLlvm, Nothing),
(Llvm.Types, Nothing), (LlvmCodeGen, Nothing),
(LlvmCodeGen.Base, Nothing), (LlvmCodeGen.CodeGen, Nothing),
(LlvmCodeGen.Data, Nothing), (LlvmCodeGen.Ppr, Nothing),
(LlvmCodeGen.Regs, Nothing), (LlvmMangler, Nothing),
(MkId, Nothing), (Module, Nothing), (Name, Nothing),
(NameEnv, Nothing), (NameSet, Nothing), (OccName, Nothing),
(RdrName, Nothing), (SrcLoc, Nothing), (UniqSupply, Nothing),
(Unique, Nothing), (Var, Nothing), (VarEnv, Nothing),
(VarSet, Nothing), (UnVarGraph, Nothing), (BlockId, Nothing),
(CLabel, Nothing), (Cmm, Nothing), (CmmBuildInfoTables, Nothing),
(CmmPipeline, Nothing), (CmmCallConv, Nothing),
(CmmCommonBlockElim, Nothing), (CmmImplementSwitchPlans, Nothing),
(CmmContFlowOpt, Nothing), (CmmExpr, Nothing), (CmmInfo, Nothing),
(CmmLex, Nothing), (CmmLint, Nothing), (CmmLive, Nothing),
(CmmMachOp, Nothing), (CmmSwitch, Nothing), (CmmNode, Nothing),
(CmmOpt, Nothing), (CmmParse, Nothing), (CmmProcPoint, Nothing),
(CmmSink, Nothing), (CmmType, Nothing), (CmmUtils, Nothing),
(CmmLayoutStack, Nothing), (MkGraph, Nothing), (PprBase, Nothing),
(PprC, Nothing), (PprCmm, Nothing), (PprCmmDecl, Nothing),
(PprCmmExpr, Nothing), (Bitmap, Nothing),
(CodeGen.Platform, Nothing), (CodeGen.Platform.ARM, Nothing),
(CodeGen.Platform.ARM64, Nothing),
(CodeGen.Platform.NoRegs, Nothing),
(CodeGen.Platform.PPC, Nothing),
(CodeGen.Platform.PPC_Darwin, Nothing),
(CodeGen.Platform.SPARC, Nothing), (CodeGen.Platform.X86, Nothing),
(CodeGen.Platform.X86_64, Nothing), (CgUtils, Nothing),
(StgCmm, Nothing), (StgCmmBind, Nothing), (StgCmmClosure, Nothing),
(StgCmmCon, Nothing), (StgCmmEnv, Nothing), (StgCmmExpr, Nothing),
(StgCmmForeign, Nothing), (StgCmmHeap, Nothing),
(StgCmmHpc, Nothing), (StgCmmArgRep, Nothing),
(StgCmmLayout, Nothing), (StgCmmMonad, Nothing),
(StgCmmPrim, Nothing), (StgCmmProf, Nothing),
(StgCmmTicky, Nothing), (StgCmmUtils, Nothing),
(StgCmmExtCode, Nothing), (SMRep, Nothing), (CoreArity, Nothing),
(CoreFVs, Nothing), (CoreLint, Nothing), (CorePrep, Nothing),
(CoreSubst, Nothing), (CoreSyn, Nothing), (TrieMap, Nothing),
(CoreTidy, Nothing), (CoreUnfold, Nothing), (CoreUtils, Nothing),
(CoreSeq, Nothing), (CoreStats, Nothing), (MkCore, Nothing),
(PprCore, Nothing), (PmExpr, Nothing), (TmOracle, Nothing),
(Check, Nothing), (Coverage, Nothing), (Desugar, Nothing),
(DsArrows, Nothing), (DsBinds, Nothing), (DsCCall, Nothing),
(DsExpr, Nothing), (DsForeign, Nothing), (DsGRHSs, Nothing),
(DsListComp, Nothing), (DsMonad, Nothing), (DsUtils, Nothing),
(Match, Nothing), (MatchCon, Nothing), (MatchLit, Nothing),
(HsBinds, Nothing), (HsDecls, Nothing), (HsDoc, Nothing),
(HsExpr, Nothing), (HsImpExp, Nothing), (HsLit, Nothing),
(PlaceHolder, Nothing), (HsPat, Nothing), (HsSyn, Nothing),
(HsTypes, Nothing), (HsUtils, Nothing), (BinIface, Nothing),
(BuildTyCl, Nothing), (IfaceEnv, Nothing), (IfaceSyn, Nothing),
(IfaceType, Nothing), (LoadIface, Nothing), (MkIface, Nothing),
(TcIface, Nothing), (FlagChecker, Nothing), (Annotations, Nothing),
(CmdLineParser, Nothing), (CodeOutput, Nothing), (Config, Nothing),
(Constants, Nothing), (DriverMkDepend, Nothing),
(DriverPhases, Nothing), (PipelineMonad, Nothing),
(DriverPipeline, Nothing), (DynFlags, Nothing),
(ErrUtils, Nothing), (Finder, Nothing), (GHC, Nothing),
(GhcMake, Nothing), (GhcPlugins, Nothing),
(DynamicLoading, Nothing), (HeaderInfo, Nothing),
(HscMain, Nothing), (HscStats, Nothing), (HscTypes, Nothing),
(InteractiveEval, Nothing), (InteractiveEvalTypes, Nothing),
(PackageConfig, Nothing), (Packages, Nothing),
(PlatformConstants, Nothing), (Plugins, Nothing),
(TcPluginM, Nothing), (PprTyThing, Nothing),
(StaticFlags, Nothing), (StaticPtrTable, Nothing),
(SysTools, Nothing), (Elf, Nothing), (TidyPgm, Nothing),
(Ctype, Nothing), (HaddockUtils, Nothing), (Lexer, Nothing),
(OptCoercion, Nothing), (Parser, Nothing), (RdrHsSyn, Nothing),
(ApiAnnotation, Nothing), (ForeignCall, Nothing),
(PrelInfo, Nothing), (PrelNames, Nothing), (PrelRules, Nothing),
(PrimOp, Nothing), (TysPrim, Nothing), (TysWiredIn, Nothing),
(CostCentre, Nothing), (ProfInit, Nothing), (SCCfinal, Nothing),
(RnBinds, Nothing), (RnEnv, Nothing), (RnExpr, Nothing),
(RnHsDoc, Nothing), (RnNames, Nothing), (RnPat, Nothing),
(RnSource, Nothing), (RnSplice, Nothing), (RnTypes, Nothing),
(CoreMonad, Nothing), (CSE, Nothing), (FloatIn, Nothing),
(FloatOut, Nothing), (LiberateCase, Nothing), (OccurAnal, Nothing),
(SAT, Nothing), (SetLevels, Nothing), (SimplCore, Nothing),
(SimplEnv, Nothing), (SimplMonad, Nothing), (SimplUtils, Nothing),
(Simplify, Nothing), (SimplStg, Nothing), (StgStats, Nothing),
(UnariseStg, Nothing), (Rules, Nothing), (SpecConstr, Nothing),
(Specialise, Nothing), (CoreToStg, Nothing), (StgLint, Nothing),
(StgSyn, Nothing), (CallArity, Nothing), (DmdAnal, Nothing),
(WorkWrap, Nothing), (WwLib, Nothing), (FamInst, Nothing),
(Inst, Nothing), (TcAnnotations, Nothing), (TcArrows, Nothing),
(TcBinds, Nothing), (TcClassDcl, Nothing), (TcDefaults, Nothing),
(TcDeriv, Nothing), (TcEnv, Nothing), (TcExpr, Nothing),
(TcForeign, Nothing), (TcGenDeriv, Nothing),
(TcGenGenerics, Nothing), (TcHsSyn, Nothing), (TcHsType, Nothing),
(TcInstDcls, Nothing), (TcMType, Nothing), (TcValidity, Nothing),
(TcMatches, Nothing), (TcPat, Nothing), (TcPatSyn, Nothing),
(TcRnDriver, Nothing), (TcRnMonad, Nothing), (TcRnTypes, Nothing),
(TcRules, Nothing), (TcSimplify, Nothing), (TcErrors, Nothing),
(TcTyClsDecls, Nothing), (TcTyDecls, Nothing),
(TcTypeable, Nothing), (TcType, Nothing), (TcEvidence, Nothing),
(TcUnify, Nothing), (TcInteract, Nothing), (TcCanonical, Nothing),
(TcFlatten, Nothing), (TcSMonad, Nothing), (TcTypeNats, Nothing),
(TcSplice, Nothing), (Class, Nothing), (Coercion, Nothing),
(DsMeta, Nothing), (THNames, Nothing), (FamInstEnv, Nothing),
(FunDeps, Nothing), (InstEnv, Nothing), (TyCon, Nothing),
(CoAxiom, Nothing), (Kind, Nothing), (Type, Nothing),
(TyCoRep, Nothing), (Unify, Nothing), (Bag, Nothing),
(Binary, Nothing), (BooleanFormula, Nothing), (BufWrite, Nothing),
(Digraph, Nothing), (Encoding, Nothing), (FastFunctions, Nothing),
(FastMutInt, Nothing), (FastString, Nothing),
(FastStringEnv, Nothing), (Fingerprint, Nothing),
(FiniteMap, Nothing), (FV, Nothing), (GraphBase, Nothing),
(GraphColor, Nothing), (GraphOps, Nothing), (GraphPpr, Nothing),
(IOEnv, Nothing), (ListSetOps, Nothing), (Maybes, Nothing),
(MonadUtils, Nothing), (OrdList, Nothing), (Outputable, Nothing),
(Pair, Nothing), (Panic, Nothing), (Pretty, Nothing),
(State, Nothing), (Stream, Nothing), (StringBuffer, Nothing),
(UniqDFM, Nothing), (UniqDSet, Nothing), (UniqFM, Nothing),
(UniqSet, Nothing), (Util, Nothing),
(Vectorise.Builtins.Base, Nothing),
(Vectorise.Builtins.Initialise, Nothing),
(Vectorise.Builtins, Nothing), (Vectorise.Monad.Base, Nothing),
(Vectorise.Monad.Naming, Nothing),
(Vectorise.Monad.Local, Nothing),
(Vectorise.Monad.Global, Nothing),
(Vectorise.Monad.InstEnv, Nothing), (Vectorise.Monad, Nothing),
(Vectorise.Utils.Base, Nothing),
(Vectorise.Utils.Closure, Nothing),
(Vectorise.Utils.Hoisting, Nothing),
(Vectorise.Utils.PADict, Nothing), (Vectorise.Utils.Poly, Nothing),
(Vectorise.Utils, Nothing),
(Vectorise.Generic.Description, Nothing),
(Vectorise.Generic.PAMethods, Nothing),
(Vectorise.Generic.PADict, Nothing),
(Vectorise.Generic.PData, Nothing), (Vectorise.Type.Env, Nothing),
(Vectorise.Type.Type, Nothing),
(Vectorise.Type.TyConDecl, Nothing),
(Vectorise.Type.Classify, Nothing), (Vectorise.Convert, Nothing),
(Vectorise.Vect, Nothing), (Vectorise.Var, Nothing),
(Vectorise.Env, Nothing), (Vectorise.Exp, Nothing),
(Vectorise, Nothing), (Hoopl.Dataflow, Nothing), (Hoopl, Nothing),
(AsmCodeGen, Nothing), (TargetReg, Nothing), (NCGMonad, Nothing),
(Instruction, Nothing), (Format, Nothing), (Reg, Nothing),
(RegClass, Nothing), (PIC, Nothing), (Platform, Nothing),
(CPrim, Nothing), (X86.Regs, Nothing), (X86.RegInfo, Nothing),
(X86.Instr, Nothing), (X86.Cond, Nothing), (X86.Ppr, Nothing),
(X86.CodeGen, Nothing), (PPC.Regs, Nothing),
(PPC.RegInfo, Nothing), (PPC.Instr, Nothing), (PPC.Cond, Nothing),
(PPC.Ppr, Nothing), (PPC.CodeGen, Nothing), (SPARC.Base, Nothing),
(SPARC.Regs, Nothing), (SPARC.Imm, Nothing),
(SPARC.AddrMode, Nothing), (SPARC.Cond, Nothing),
(SPARC.Instr, Nothing), (SPARC.Stack, Nothing),
(SPARC.ShortcutJump, Nothing), (SPARC.Ppr, Nothing),
(SPARC.CodeGen, Nothing), (SPARC.CodeGen.Amode, Nothing),
(SPARC.CodeGen.Base, Nothing), (SPARC.CodeGen.CondCode, Nothing),
(SPARC.CodeGen.Gen32, Nothing), (SPARC.CodeGen.Gen64, Nothing),
(SPARC.CodeGen.Sanity, Nothing), (SPARC.CodeGen.Expand, Nothing),
(RegAlloc.Liveness, Nothing), (RegAlloc.Graph.Main, Nothing),
(RegAlloc.Graph.Stats, Nothing),
(RegAlloc.Graph.ArchBase, Nothing),
(RegAlloc.Graph.ArchX86, Nothing),
(RegAlloc.Graph.Coalesce, Nothing),
(RegAlloc.Graph.Spill, Nothing),
(RegAlloc.Graph.SpillClean, Nothing),
(RegAlloc.Graph.SpillCost, Nothing),
(RegAlloc.Graph.TrivColorable, Nothing),
(RegAlloc.Linear.Main, Nothing),
(RegAlloc.Linear.JoinToTargets, Nothing),
(RegAlloc.Linear.State, Nothing), (RegAlloc.Linear.Stats, Nothing),
(RegAlloc.Linear.FreeRegs, Nothing),
(RegAlloc.Linear.StackMap, Nothing),
(RegAlloc.Linear.Base, Nothing),
(RegAlloc.Linear.X86.FreeRegs, Nothing),
(RegAlloc.Linear.X86_64.FreeRegs, Nothing),
(RegAlloc.Linear.PPC.FreeRegs, Nothing),
(RegAlloc.Linear.SPARC.FreeRegs, Nothing), (Dwarf, Nothing),
(Dwarf.Types, Nothing), (Dwarf.Constants, Nothing),
(Convert, Nothing), (ByteCodeTypes, Nothing),
(ByteCodeAsm, Nothing), (ByteCodeGen, Nothing),
(ByteCodeInstr, Nothing), (ByteCodeItbls, Nothing),
(ByteCodeLink, Nothing), (Debugger, Nothing), (Linker, Nothing),
(RtClosureInspect, Nothing), (DebuggerUtils, Nothing),
(GHCi, Nothing), (Serialized, Just GHC.Serialized)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\compiler\stage2\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\compiler\stage2\build
hs-libraries: HSghc-8.1 HSghc-8.1-0
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\compiler\.
C:\Users\RyanGlScott\Software\ghc\compiler\parser
C:\Users\RyanGlScott\Software\ghc\compiler\utils
C:\Users\RyanGlScott\Software\ghc\compiler\../rts/dist/build
C:\Users\RyanGlScott\Software\ghc\compiler\stage2
includes:
depends: Win32-2.3.1.0 array-0.5.1.0 base-4.9.0.0 binary-0.8.2.0
bytestring-0.10.7.0 containers-0.5.7.1 directory-1.2.5.1
filepath-1.4.1.0 ghc-boot-8.1 ghci-8.1 hoopl-3.10.2.1 hpc-0.6.0.3
process-1.4.2.0 template-haskell-2.11.0.0 time-1.6
transformers-0.5.1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\compiler\stage2\doc\html\ghc\ghc.haddock
haddock-html:
---
name: ghc-prim
version: 0.5.0.0
id: ghc-prim-0.5.0.0
exposed: True
exposed-modules: [(GHC.CString, Nothing), (GHC.Classes, Nothing),
(GHC.Debug, Nothing), (GHC.IntWord64, Nothing),
(GHC.Magic, Nothing), (GHC.PrimopWrappers, Nothing),
(GHC.Tuple, Nothing), (GHC.Types, Nothing), (GHC.Prim, Nothing)]
hidden-modules:
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build
hs-libraries: HSghc-prim-0.5.0.0
extra-libraries: User32 mingw32 mingwex
extra-ghci-libraries:
include-dirs:
includes:
depends: rts-1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\doc\html\ghc-prim\ghc-prim.haddock
haddock-html:
---
name: template-haskell
version: 2.11.0.0
id: template-haskell-2.11.0.0
exposed: True
exposed-modules: [(Language.Haskell.TH, Nothing),
(Language.Haskell.TH.Lib, Nothing),
(Language.Haskell.TH.Ppr, Nothing),
(Language.Haskell.TH.PprLib, Nothing),
(Language.Haskell.TH.Quote, Nothing),
(Language.Haskell.TH.Syntax, Nothing),
(Language.Haskell.TH.LanguageExtensions, Nothing)]
hidden-modules: Language.Haskell.TH.Lib.Map
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\template-haskell\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\template-haskell\dist-install\build
hs-libraries: HStemplate-haskell-2.11.0.0
extra-libraries:
extra-ghci-libraries:
include-dirs:
includes:
depends: base-4.9.0.0 ghc-boot-8.1 pretty-1.1.3.2
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\template-haskell\dist-install\doc\html\template-haskell\template-haskell.haddock
haddock-html:
---
name: base
version: 4.9.0.0
id: base-4.9.0.0
exposed: True
exposed-modules: [(Control.Applicative, Nothing),
(Control.Arrow, Nothing), (Control.Category, Nothing),
(Control.Concurrent, Nothing), (Control.Concurrent.Chan, Nothing),
(Control.Concurrent.MVar, Nothing),
(Control.Concurrent.QSem, Nothing),
(Control.Concurrent.QSemN, Nothing), (Control.Exception, Nothing),
(Control.Exception.Base, Nothing), (Control.Monad, Nothing),
(Control.Monad.Fail, Nothing), (Control.Monad.Fix, Nothing),
(Control.Monad.Instances, Nothing),
(Control.Monad.IO.Class, Nothing), (Control.Monad.ST, Nothing),
(Control.Monad.ST.Lazy, Nothing),
(Control.Monad.ST.Lazy.Safe, Nothing),
(Control.Monad.ST.Lazy.Unsafe, Nothing),
(Control.Monad.ST.Safe, Nothing),
(Control.Monad.ST.Strict, Nothing),
(Control.Monad.ST.Unsafe, Nothing), (Control.Monad.Zip, Nothing),
(Data.Bifunctor, Nothing), (Data.Bits, Nothing),
(Data.Bool, Nothing), (Data.Char, Nothing), (Data.Coerce, Nothing),
(Data.Complex, Nothing), (Data.Data, Nothing),
(Data.Dynamic, Nothing), (Data.Either, Nothing),
(Data.Eq, Nothing), (Data.Fixed, Nothing),
(Data.Foldable, Nothing), (Data.Function, Nothing),
(Data.Functor, Nothing), (Data.Functor.Classes, Nothing),
(Data.Functor.Compose, Nothing), (Data.Functor.Const, Nothing),
(Data.Functor.Identity, Nothing), (Data.Functor.Product, Nothing),
(Data.Functor.Sum, Nothing), (Data.IORef, Nothing),
(Data.Int, Nothing), (Data.Ix, Nothing), (Data.Kind, Nothing),
(Data.List, Nothing), (Data.List.NonEmpty, Nothing),
(Data.Maybe, Nothing), (Data.Monoid, Nothing), (Data.Ord, Nothing),
(Data.Proxy, Nothing), (Data.Ratio, Nothing),
(Data.Semigroup, Nothing), (Data.STRef, Nothing),
(Data.STRef.Lazy, Nothing), (Data.STRef.Strict, Nothing),
(Data.String, Nothing), (Data.Traversable, Nothing),
(Data.Tuple, Nothing), (Data.Type.Bool, Nothing),
(Data.Type.Coercion, Nothing), (Data.Type.Equality, Nothing),
(Data.Typeable, Nothing), (Data.Typeable.Internal, Nothing),
(Data.Unique, Nothing), (Data.Version, Nothing),
(Data.Void, Nothing), (Data.Word, Nothing), (Debug.Trace, Nothing),
(Foreign, Nothing), (Foreign.C, Nothing),
(Foreign.C.Error, Nothing), (Foreign.C.String, Nothing),
(Foreign.C.Types, Nothing), (Foreign.Concurrent, Nothing),
(Foreign.ForeignPtr, Nothing), (Foreign.ForeignPtr.Safe, Nothing),
(Foreign.ForeignPtr.Unsafe, Nothing), (Foreign.Marshal, Nothing),
(Foreign.Marshal.Alloc, Nothing), (Foreign.Marshal.Array, Nothing),
(Foreign.Marshal.Error, Nothing), (Foreign.Marshal.Pool, Nothing),
(Foreign.Marshal.Safe, Nothing), (Foreign.Marshal.Unsafe, Nothing),
(Foreign.Marshal.Utils, Nothing), (Foreign.Ptr, Nothing),
(Foreign.Safe, Nothing), (Foreign.StablePtr, Nothing),
(Foreign.Storable, Nothing), (GHC.Arr, Nothing),
(GHC.Base, Nothing), (GHC.Char, Nothing), (GHC.Conc, Nothing),
(GHC.Conc.IO, Nothing), (GHC.Conc.Signal, Nothing),
(GHC.Conc.Sync, Nothing), (GHC.ConsoleHandler, Nothing),
(GHC.Constants, Nothing), (GHC.Desugar, Nothing),
(GHC.Enum, Nothing), (GHC.Environment, Nothing),
(GHC.Err, Nothing), (GHC.Exception, Nothing),
(GHC.ExecutionStack, Nothing),
(GHC.ExecutionStack.Internal, Nothing), (GHC.Exts, Nothing),
(GHC.Fingerprint, Nothing), (GHC.Fingerprint.Type, Nothing),
(GHC.Float, Nothing), (GHC.Float.ConversionUtils, Nothing),
(GHC.Float.RealFracMethods, Nothing), (GHC.Foreign, Nothing),
(GHC.ForeignPtr, Nothing), (GHC.GHCi, Nothing),
(GHC.Generics, Nothing), (GHC.IO, Nothing),
(GHC.IO.Buffer, Nothing), (GHC.IO.BufferedIO, Nothing),
(GHC.IO.Device, Nothing), (GHC.IO.Encoding, Nothing),
(GHC.IO.Encoding.CodePage, Nothing),
(GHC.IO.Encoding.Failure, Nothing),
(GHC.IO.Encoding.Iconv, Nothing),
(GHC.IO.Encoding.Latin1, Nothing),
(GHC.IO.Encoding.Types, Nothing), (GHC.IO.Encoding.UTF16, Nothing),
(GHC.IO.Encoding.UTF32, Nothing), (GHC.IO.Encoding.UTF8, Nothing),
(GHC.IO.Exception, Nothing), (GHC.IO.FD, Nothing),
(GHC.IO.Handle, Nothing), (GHC.IO.Handle.FD, Nothing),
(GHC.IO.Handle.Internals, Nothing), (GHC.IO.Handle.Text, Nothing),
(GHC.IO.Handle.Types, Nothing), (GHC.IO.IOMode, Nothing),
(GHC.IO.Unsafe, Nothing), (GHC.IOArray, Nothing),
(GHC.IORef, Nothing), (GHC.Int, Nothing), (GHC.List, Nothing),
(GHC.MVar, Nothing), (GHC.Natural, Nothing), (GHC.Num, Nothing),
(GHC.OldList, Nothing), (GHC.OverloadedLabels, Nothing),
(GHC.PArr, Nothing), (GHC.Pack, Nothing), (GHC.Profiling, Nothing),
(GHC.Ptr, Nothing), (GHC.Read, Nothing), (GHC.Real, Nothing),
(GHC.RTS.Flags, Nothing), (GHC.ST, Nothing),
(GHC.StaticPtr, Nothing), (GHC.STRef, Nothing),
(GHC.Show, Nothing), (GHC.Stable, Nothing), (GHC.Stack, Nothing),
(GHC.Stack.CCS, Nothing), (GHC.Stack.Types, Nothing),
(GHC.Stats, Nothing), (GHC.Storable, Nothing),
(GHC.TopHandler, Nothing), (GHC.TypeLits, Nothing),
(GHC.Unicode, Nothing), (GHC.Weak, Nothing), (GHC.Word, Nothing),
(Numeric, Nothing), (Numeric.Natural, Nothing), (Prelude, Nothing),
(System.CPUTime, Nothing), (System.Console.GetOpt, Nothing),
(System.Environment, Nothing), (System.Exit, Nothing),
(System.IO, Nothing), (System.IO.Error, Nothing),
(System.IO.Unsafe, Nothing), (System.Info, Nothing),
(System.Mem, Nothing), (System.Mem.StableName, Nothing),
(System.Mem.Weak, Nothing), (System.Posix.Internals, Nothing),
(System.Posix.Types, Nothing), (System.Timeout, Nothing),
(Text.ParserCombinators.ReadP, Nothing),
(Text.ParserCombinators.ReadPrec, Nothing), (Text.Printf, Nothing),
(Text.Read, Nothing), (Text.Read.Lex, Nothing),
(Text.Show, Nothing), (Text.Show.Functions, Nothing),
(Unsafe.Coerce, Nothing), (GHC.IO.Encoding.CodePage.API, Nothing),
(GHC.IO.Encoding.CodePage.Table, Nothing),
(GHC.Conc.Windows, Nothing), (GHC.Windows, Nothing)]
hidden-modules: Control.Monad.ST.Imp Control.Monad.ST.Lazy.Imp
Data.OldList Foreign.ForeignPtr.Imp
System.Environment.ExecutablePath
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build
hs-libraries: HSbase-4.9.0.0
extra-libraries: wsock32 user32 shell32 msvcrt mingw32 mingwex
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\base\include
includes: HsBase.h
depends: ghc-prim-0.5.0.0 integer-gmp-1.0.0.1 rts-1.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\doc\html\base\base.haddock
haddock-html:
---
name: integer-gmp
version: 1.0.0.1
id: integer-gmp-1.0.0.1
exposed: True
exposed-modules: [(GHC.Integer, Nothing),
(GHC.Integer.Logarithms, Nothing),
(GHC.Integer.Logarithms.Internals, Nothing),
(GHC.Integer.GMP.Internals, Nothing)]
hidden-modules: GHC.Integer.Type
trusted: False
import-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\integer-gmp\dist-install\build
library-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\integer-gmp\dist-install\build
hs-libraries: HSinteger-gmp-1.0.0.1
extra-libraries:
extra-ghci-libraries:
include-dirs: C:\Users\RyanGlScott\Software\ghc\libraries\integer-gmp\include
includes:
depends: ghc-prim-0.5.0.0
cc-options:
ld-options:
framework-dirs:
frameworks:
haddock-interfaces: C:\Users\RyanGlScott\Software\ghc\libraries\integer-gmp\dist-install\doc\html\integer-gmp\integer-gmp.haddock
haddock-html:
Hsc static flags:
*** Parser:
==================== Parser ====================
Just do { System.IO.hSetBuffering
System.IO.stdin System.IO.NoBuffering;
System.IO.hSetBuffering System.IO.stdout System.IO.NoBuffering;
System.IO.hSetBuffering System.IO.stderr System.IO.NoBuffering }
*** Desugar:
==================== Desugared ====================
letrec {
_compileParsedExpr_$xY :: GHC.Types.IO ()
[LclId, Str=DmdType]
_compileParsedExpr_$xY =
let {
$dMonad_alU :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_alU = GHC.Base.$fMonadIO } in
let {
$dMonad_azQ :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_azQ = $dMonad_alU } in
letrec {
_compileParsedExpr_azT :: GHC.Types.IO ()
[LclId, Str=DmdType]
_compileParsedExpr_azT =
GHC.Base.>>
@ GHC.Types.IO
$dMonad_alU
@ ()
@ ()
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdin GHC.IO.Handle.Types.NoBuffering)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_azQ
@ ()
@ ()
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdout GHC.IO.Handle.Types.NoBuffering)
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stderr GHC.IO.Handle.Types.NoBuffering)); } in
_compileParsedExpr_azT; } in
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
(GHC.Prim.unsafeCoerce#
@ 'GHC.Types.PtrRepLifted
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ ()
_compileParsedExpr_$xY)
(GHC.Types.[] @ ()))
*** Simplify:
==================== Simplifier statistics ====================
Total ticks: 11
4 PreInlineUnconditionally
1 _compileParsedExpr_$xY
1 tpl_B1
1 $dMonad_azQ
1 _compileParsedExpr_azT
1 PostInlineUnconditionally 1 $dMonad_alU
1 UnfoldingDone 1 unsafeCoerce#
5 BetaReduction
1 a_12
1 b_13
1 q_1i
1 r_1j
1 tpl_B1
==================== Simplified expression ====================
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
((GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdin GHC.IO.Handle.Types.NoBuffering)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdout GHC.IO.Handle.Types.NoBuffering)
(GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stderr GHC.IO.Handle.Types.NoBuffering)))
`cast` (UnsafeCo representational (GHC.Types.IO ()) ()
:: GHC.Types.IO () ~R# ()))
(GHC.Types.[] @ ()))
*** CorePrep:
==================== CorePrep ====================
let {
sat_sQt :: ()
[LclId, Str=DmdType]
sat_sQt =
let {
sat_sQs :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQs =
let {
sat_sQr :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQr =
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stderr GHC.IO.Handle.Types.NoBuffering } in
let {
sat_sQq :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQq =
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdout GHC.IO.Handle.Types.NoBuffering } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sQq sat_sQr } in
let {
sat_sQp :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQp =
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdin GHC.IO.Handle.Types.NoBuffering } in
(GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sQp sat_sQs)
`cast` (UnsafeCo representational (GHC.Types.IO ()) ()
:: GHC.Types.IO () ~R# ()) } in
let {
sat_sQu :: [()]
[LclId, Str=DmdType]
sat_sQu = GHC.Types.: @ () sat_sQt (GHC.Types.[] @ ()) } in
GHC.Base.returnIO @ [()] sat_sQu
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO ExprTopLevel_E0#0 []:
let sat_sQt = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQt#0 []:
let sat_sQs = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQs#0 []:
let sat_sQr = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQr#0 []:
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stderr GHC.IO.Handle.Types.NoBuffering
bitmap: 0 []
PUSH_G GHC.IO.Handle.Types.NoBuffering
PUSH_G GHC.IO.Handle.FD.stderr
PUSH_APPLY_PP
PUSH_G GHC.IO.Handle.hSetBuffering
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQq#0 []:
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdout GHC.IO.Handle.Types.NoBuffering
bitmap: 0 []
PUSH_G GHC.IO.Handle.Types.NoBuffering
PUSH_G GHC.IO.Handle.FD.stdout
PUSH_APPLY_PP
PUSH_G GHC.IO.Handle.hSetBuffering
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQp#0 []:
GHC.IO.Handle.hSetBuffering
GHC.IO.Handle.FD.stdin GHC.IO.Handle.Types.NoBuffering
bitmap: 0 []
PUSH_G GHC.IO.Handle.Types.NoBuffering
PUSH_G GHC.IO.Handle.FD.stdin
PUSH_APPLY_PP
PUSH_G GHC.IO.Handle.hSetBuffering
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
PUSH_G GHC.Types.[]
PUSH_L 1
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.returnIO
SLIDE 3 2
ENTER
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "mingw32.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "libmingw32.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "libmingw32.a"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "mingwex.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "libmingwex.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\ghc-prim\dist-install\build" "--print-file-name" "libmingwex.a"
Loading package ghc-prim-0.5.0.0 ... linking ... done.
Loading package integer-gmp-1.0.0.1 ... linking ... done.
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "mingw32.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "libmingw32.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "libmingw32.a"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "mingwex.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "libmingwex.dll"
*** gcc:
"C:\Users\RyanGlScott\Software\ghc\inplace\lib/../mingw/bin/gcc.exe" "-fno-stack-protector" "-DTABLES_NEXT_TO_CODE" "-BC:\Users\RyanGlScott\Software\ghc\libraries\base\dist-install\build" "--print-file-name" "libmingwex.a"
Loading package base-4.9.0.0 ... linking ... done.
*** Parser:
==================== Parser ====================
Just do { System.IO.hFlush System.IO.stdout;
System.IO.hFlush System.IO.stderr }
*** Desugar:
==================== Desugared ====================
letrec {
_compileParsedExpr_$xY :: GHC.Types.IO ()
[LclId, Str=DmdType]
_compileParsedExpr_$xY =
let {
$dMonad_aQB :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aQB = GHC.Base.$fMonadIO } in
letrec {
_compileParsedExpr_aQE :: GHC.Types.IO ()
[LclId, Str=DmdType]
_compileParsedExpr_aQE =
GHC.Base.>>
@ GHC.Types.IO
$dMonad_aQB
@ ()
@ ()
(GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stdout)
(GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stderr); } in
_compileParsedExpr_aQE; } in
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
(GHC.Prim.unsafeCoerce#
@ 'GHC.Types.PtrRepLifted
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ ()
_compileParsedExpr_$xY)
(GHC.Types.[] @ ()))
*** Simplify:
==================== Simplifier statistics ====================
Total ticks: 10
4 PreInlineUnconditionally
1 _compileParsedExpr_$xY
1 tpl_B1
1 $dMonad_aQB
1 _compileParsedExpr_aQE
1 UnfoldingDone 1 unsafeCoerce#
5 BetaReduction
1 a_12
1 b_13
1 q_1i
1 r_1j
1 tpl_B1
==================== Simplified expression ====================
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
((GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stdout)
(GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stderr))
`cast` (UnsafeCo representational (GHC.Types.IO ()) ()
:: GHC.Types.IO () ~R# ()))
(GHC.Types.[] @ ()))
*** CorePrep:
==================== CorePrep ====================
let {
sat_sQN :: ()
[LclId, Str=DmdType]
sat_sQN =
let {
sat_sQM :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQM = GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stderr } in
let {
sat_sQL :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sQL = GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stdout } in
(GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sQL sat_sQM)
`cast` (UnsafeCo representational (GHC.Types.IO ()) ()
:: GHC.Types.IO () ~R# ()) } in
let {
sat_sQO :: [()]
[LclId, Str=DmdType]
sat_sQO = GHC.Types.: @ () sat_sQN (GHC.Types.[] @ ()) } in
GHC.Base.returnIO @ [()] sat_sQO
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO ExprTopLevel_E0#0 []:
let sat_sQN = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQN#0 []:
let sat_sQM = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQM#0 []:
GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stderr
bitmap: 0 []
PUSH_G GHC.IO.Handle.FD.stderr
PUSH_APPLY_P
PUSH_G GHC.IO.Handle.hFlush
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sQL#0 []:
GHC.IO.Handle.hFlush GHC.IO.Handle.FD.stdout
bitmap: 0 []
PUSH_G GHC.IO.Handle.FD.stdout
PUSH_APPLY_P
PUSH_G GHC.IO.Handle.hFlush
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
PUSH_G GHC.Types.[]
PUSH_L 1
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.returnIO
SLIDE 3 2
ENTER
loading package database C:\Users\RyanGlScott\Software\ghc\inplace\lib\package.conf.d
loading package database C:\Users\RyanGlScott\AppData\Roaming\ghc\x86_64-mingw32-8.1.20160228\package.conf.d
wired-in package ghc-prim mapped to ghc-prim-0.5.0.0
wired-in package integer-gmp mapped to integer-gmp-1.0.0.1
wired-in package base mapped to base-4.9.0.0
wired-in package rts mapped to rts-1.0
wired-in package template-haskell mapped to template-haskell-2.11.0.0
wired-in package ghc mapped to ghc-8.1
wired-in package dph-seq not found.
wired-in package dph-par not found.
*** Parser:
==================== Parser ====================
Just \ m
-> System.Environment.withProgName
"<interactive>" (System.Environment.withArgs [] m)
*** Desugar:
==================== Desugared ====================
letrec {
_compileParsedExpr_$xY
:: forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI
[LclId, Str=DmdType]
_compileParsedExpr_$xY =
\ (@ a_aSI) ->
letrec {
_compileParsedExpr_aSL :: GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI
[LclId, Str=DmdType]
_compileParsedExpr_aSL =
\ (m_aQP :: GHC.Types.IO a_aSI) ->
System.Environment.withProgName
@ a_aSI
(GHC.CString.unpackCString# "<interactive>"#)
(System.Environment.withArgs
@ a_aSI (GHC.Types.[] @ GHC.Base.String) m_aQP); } in
_compileParsedExpr_aSL; } in
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
(GHC.Prim.unsafeCoerce#
@ 'GHC.Types.PtrRepLifted
@ 'GHC.Types.PtrRepLifted
@ (forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI)
@ ()
_compileParsedExpr_$xY)
(GHC.Types.[] @ ()))
*** Simplify:
==================== Simplifier statistics ====================
Total ticks: 9
3 PreInlineUnconditionally
1 _compileParsedExpr_$xY
1 tpl_B1
1 _compileParsedExpr_aSL
1 UnfoldingDone 1 unsafeCoerce#
5 BetaReduction
1 a_12
1 b_13
1 q_1i
1 r_1j
1 tpl_B1
==================== Simplified expression ====================
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
((\ (@ a_aSI) (m_aQP :: GHC.Types.IO a_aSI) ->
System.Environment.withProgName
@ a_aSI
(GHC.CString.unpackCString# "<interactive>"#)
(System.Environment.withArgs
@ a_aSI (GHC.Types.[] @ GHC.Base.String) m_aQP))
`cast` (UnsafeCo representational
(forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI) ()
:: (forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI)
~R# ()))
(GHC.Types.[] @ ()))
*** CorePrep:
==================== CorePrep ====================
let {
sat_sT8 :: ()
[LclId, Str=DmdType]
sat_sT8 =
(\ (@ a_aSI) (m_sT5 :: GHC.Types.IO a_aSI) ->
let {
sat_sT7 :: GHC.Types.IO a_aSI
[LclId, Str=DmdType]
sat_sT7 =
System.Environment.withArgs
@ a_aSI (GHC.Types.[] @ GHC.Base.String) m_sT5 } in
let {
sat_sT6 :: GHC.Base.String
[LclId, Str=DmdType]
sat_sT6 = GHC.CString.unpackCString# "<interactive>"# } in
System.Environment.withProgName @ a_aSI sat_sT6 sat_sT7)
`cast` (UnsafeCo representational
(forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI) ()
:: (forall a_aSI. GHC.Types.IO a_aSI -> GHC.Types.IO a_aSI)
~R# ()) } in
let {
sat_sT9 :: [()]
[LclId, Str=DmdType]
sat_sT9 = GHC.Types.: @ () sat_sT8 (GHC.Types.[] @ ()) } in
GHC.Base.returnIO @ [()] sat_sT9
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO ExprTopLevel_E0#0 []:
let sat_sT8 = ... in ...
bitmap: 0 []
ALLOC_PAP 1 0
PUSH_BCO
ProtoBCO sat_sT8#1 []:
\ (@ a_aSI) (m_sT5 :: GHC.Types.IO a_aSI) -> ... `cast` T
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sT7#1 []:
System.Environment.withArgs
@ a_aSI (GHC.Types.[] @ GHC.Base.String) m_sT5
bitmap: 1 [0]
PUSH_L 0
PUSH_G GHC.Types.[]
PUSH_APPLY_PP
PUSH_G System.Environment.withArgs
SLIDE 4 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sT6#0 []:
GHC.CString.unpackCString# "<interactive>"#
bitmap: 0 []
PUSH_UBX (1) "<interactive>"#
PUSH_APPLY_N
PUSH_G GHC.CString.unpackCString#
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_APPLY_PP
PUSH_G System.Environment.withProgName
SLIDE 4 3
ENTER
MKPAP 0 words, 1 stkoff
PUSH_G GHC.Types.[]
PUSH_L 1
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.returnIO
SLIDE 3 2
ENTER
*** Chasing dependencies:
Chasing modules from:
Stable obj: []
Stable BCO: []
unload: retaining objs []
unload: retaining bcos []
Ready for upsweep []
Upsweep completely successful.
*** Deleting temp files:
Deleting:
*** Chasing dependencies:
Chasing modules from: *ExampleGLFW.hs
Running the pipeline
Running phase Cpp HsSrcFile
Running phase HsPp HsSrcFile
Stable obj: []
Stable BCO: []
unload: retaining objs []
unload: retaining bcos []
Ready for upsweep
[NONREC
ModSummary {
ms_hs_date = 2016-02-28 04:49:45.0055245 UTC
ms_mod = Main,
ms_textual_imps = [(Nothing, Prelude), (Nothing, System.IO),
(Nothing, System.Exit), (Nothing, Graphics.UI.GLFW),
(Nothing, Graphics.Rendering.OpenGL), (Nothing, Control.Monad)]
ms_srcimps = []
}]
*** Deleting temp files:
Deleting:
compiling mod: Main
compile: input file ExampleGLFW.hs
*** Checking old interface for Main:
[1 of 1] Compiling Main ( ExampleGLFW.hs, interpreted )
*** Parser:
==================== Parser ====================
module Main where
import Control.Monad ( unless, when )
import Graphics.Rendering.OpenGL
import qualified Graphics.UI.GLFW as G
import System.Exit
import System.IO
bool :: Bool -> a -> a -> a
bool b falseRes trueRes = if b then trueRes else falseRes
unless' :: Monad m => m Bool -> m () -> m ()
unless' action falseAction
= do { b <- action;
unless b falseAction }
maybe' :: Maybe a -> b -> (a -> b) -> b
maybe' m nothingRes f
= case m of {
Nothing -> nothingRes
Just x -> f x }
errorCallback :: G.ErrorCallback
errorCallback err description = hPutStrLn stderr description
keyCallback :: G.KeyCallback
keyCallback window key scancode action mods
= when (key == G.Key'Escape && action == G.KeyState'Pressed)
$ G.setWindowShouldClose window True
main :: IO ()
main
= do { G.setErrorCallback (Just errorCallback);
successfulInit <- G.init;
bool successfulInit exitFailure
$ do { mw <- G.createWindow
640 480 "Simple example, haskell style" Nothing Nothing;
maybe' mw (G.terminate >> exitFailure)
$ \ window
-> do { G.makeContextCurrent mw;
G.setKeyCallback window (Just keyCallback);
mainLoop window;
G.destroyWindow window;
G.terminate;
exitSuccess } } }
mainLoop :: G.Window -> IO ()
mainLoop w
= unless' (G.windowShouldClose w)
$ do { (width, height) <- G.getFramebufferSize w;
let ratio = fromIntegral width / fromIntegral height;
viewport
$= (Position 0 0, Size (fromIntegral width) (fromIntegral height));
clear [ColorBuffer];
matrixMode $= Projection;
loadIdentity;
ortho (negate ratio) ratio (negate 1.0) 1.0 1.0 (negate 1.0);
matrixMode $= Modelview 0;
loadIdentity;
Just t <- G.getTime;
rotate ((realToFrac t) * 50) $ (Vector3 0 0 1 :: Vector3 GLdouble);
renderPrimitive Triangles
$ do { color (Color3 1 0 0 :: Color3 GLdouble);
vertex (Vertex3 (negate 0.6) (negate 0.4) 0 :: Vertex3 GLdouble);
color (Color3 0 1 0 :: Color3 GLdouble);
vertex (Vertex3 0.6 (negate 0.4) 0 :: Vertex3 GLdouble);
color (Color3 0 0 1 :: Color3 GLdouble);
vertex (Vertex3 0 0.6 0 :: Vertex3 GLdouble) };
G.swapBuffers w;
G.pollEvents;
mainLoop w }
==================== Source Statistics ====================
ExportAll 1
Imports 5
ImpQual 1
ImpAs 1
ImpAll 4
ImpPartial 1
TypeSigs 7
FunBinds 7
*** Renamer/typechecker:
*** Desugar:
==================== Occurrence analysis ====================
Main.bool
:: forall a_a79N. GHC.Types.Bool -> a_a79N -> a_a79N -> a_a79N
[LclIdX, Str=DmdType]
Main.bool =
\ (@ a_aasj)
(b_a79O :: GHC.Types.Bool)
(falseRes_a79P :: a_aasj)
(trueRes_a79Q :: a_aasj) ->
case b_a79O of _ [Occ=Dead] {
GHC.Types.False -> falseRes_a79P;
GHC.Types.True -> trueRes_a79Q
}
Main.unless'
:: forall (m_a79M :: * -> *).
GHC.Base.Monad m_a79M =>
m_a79M GHC.Types.Bool -> m_a79M () -> m_a79M ()
[LclIdX, Str=DmdType]
Main.unless' =
\ (@ (m_aas5 :: * -> *)) ($dMonad_aasD :: GHC.Base.Monad m_aas5) ->
let {
$dMonad_aasG [Occ=OnceL] :: GHC.Base.Monad m_aas5
[LclId, Str=DmdType]
$dMonad_aasG = $dMonad_aasD } in
let {
$dApplicative_abZq [Occ=Once] :: GHC.Base.Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_abZq = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
let {
$dApplicative_aasL [Occ=OnceL] :: GHC.Base.Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_aasL = $dApplicative_abZq } in
\ (action_a79R :: m_aas5 GHC.Types.Bool)
(falseAction_a79S :: m_aas5 ()) ->
GHC.Base.>>=
@ m_aas5
$dMonad_aasG
@ GHC.Types.Bool
@ ()
action_a79R
(\ (b_a79T :: GHC.Types.Bool) ->
Control.Monad.unless
@ m_aas5 $dApplicative_aasL b_a79T falseAction_a79S)
Main.maybe'
:: forall a_a79K b_a79L.
GHC.Base.Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[LclIdX, Str=DmdType]
Main.maybe' =
\ (@ a_aaro)
(@ b_aarp)
(m_a79U :: GHC.Base.Maybe a_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a_aaro -> b_aarp) ->
let {
ds_dbZw [Occ=Once!] :: GHC.Base.Maybe a_aaro
[LclId, Str=DmdType]
ds_dbZw = m_a79U } in
case ds_dbZw of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
}
Main.errorCallback :: Graphics.UI.GLFW.ErrorCallback
[LclIdX, Str=DmdType]
Main.errorCallback =
\ _ [Occ=Dead] (description_a79Z :: GHC.Base.String) ->
GHC.IO.Handle.Text.hPutStrLn
GHC.IO.Handle.FD.stderr description_a79Z
Main.$trModule :: GHC.Types.Module
[LclIdX, Str=DmdType]
Main.$trModule =
GHC.Types.Module
(GHC.Types.TrNameS "main"#) (GHC.Types.TrNameS "Main"#)
$dVertexComponent_abZp
:: Graphics.Rendering.OpenGL.GL.VertexSpec.VertexComponent
GHC.Types.Double
[LclId, Str=DmdType]
$dVertexComponent_abZp =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
$dVertex_abAO
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dVertex_abAO =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double $dVertexComponent_abZp
$dVertex_abBu [Occ=OnceL]
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dVertex_abBu = $dVertex_abAO
$dVertex_abBY [Occ=OnceL]
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dVertex_abBY = $dVertex_abAO
$dColorComponent_abZc
:: Graphics.Rendering.OpenGL.GL.VertexSpec.ColorComponent
GHC.Types.Double
[LclId, Str=DmdType]
$dColorComponent_abZc =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
$dColor_abAn
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dColor_abAn =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double $dColorComponent_abZc
$dColor_abBe [Occ=OnceL]
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dColor_abBe = $dColor_abAn
$dColor_abBM [Occ=OnceL]
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dColor_abBM = $dColor_abAn
$dReal_abzh [Occ=OnceL] :: GHC.Real.Real GHC.Types.Double
[LclId, Str=DmdType]
$dReal_abzh = GHC.Float.$fRealDouble
$dMatrixComponent_abz1 [Occ=OnceL]
:: Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixComponent
Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dMatrixComponent_abz1 =
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
$dFractional_aaL0 :: GHC.Real.Fractional Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dFractional_aaL0 = GHC.Float.$fFractionalDouble
$dFractional_abzi [Occ=OnceL]
:: GHC.Real.Fractional Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dFractional_abzi = $dFractional_aaL0
$dNum_aaKV :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_aaKV = GHC.Float.$fNumDouble
$dNum_aaKX [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_aaKX = $dNum_aaKV
$dNum_aaL2 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_aaL2 = $dNum_aaKV
$dNum_abz6 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_abz6 = $dNum_aaKV
$dNum_abB0 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_abB0 = $dNum_aaKV
$dNum_abB4 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_abB4 = $dNum_aaKV
$dNum_abBC [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_abBC = $dNum_aaKV
$dHasSetter_aaKt
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
[LclId, Str=DmdType]
$dHasSetter_aaKt =
Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
$dHasSetter_aaLb [Occ=OnceL]
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
[LclId, Str=DmdType]
$dHasSetter_aaLb = $dHasSetter_aaKt
$dIntegral_aaK1 :: GHC.Real.Integral GHC.Types.Int
[LclId, Str=DmdType]
$dIntegral_aaK1 = GHC.Real.$fIntegralInt
$dIntegral_aaK5 [Occ=OnceL] :: GHC.Real.Integral GHC.Types.Int
[LclId, Str=DmdType]
$dIntegral_aaK5 = $dIntegral_aaK1
$dNum_aaJR :: GHC.Num.Num Graphics.GL.Types.GLint
[LclId, Str=DmdType]
$dNum_aaJR = GHC.Int.$fNumInt32
$dNum_aaJT [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLint
[LclId, Str=DmdType]
$dNum_aaJT = $dNum_aaJR
$dNum_aaK2 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLsizei
[LclId, Str=DmdType]
$dNum_aaK2 = $dNum_aaJR
$dNum_aaK6 [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLsizei
[LclId, Str=DmdType]
$dNum_aaK6 = $dNum_aaJR
$dNum_aaLf [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLsizei
[LclId, Str=DmdType]
$dNum_aaLf = $dNum_aaJR
$dMonadIO_aauE :: Control.Monad.IO.Class.MonadIO GHC.Types.IO
[LclId, Str=DmdType]
$dMonadIO_aauE = Control.Monad.IO.Class.$fMonadIOIO
$dMonadIO_aaKv [Occ=OnceL]
:: Control.Monad.IO.Class.MonadIO GHC.Types.IO
[LclId, Str=DmdType]
$dMonadIO_aaKv = $dMonadIO_aauE
$dMonadIO_aaLd [Occ=OnceL]
:: Control.Monad.IO.Class.MonadIO GHC.Types.IO
[LclId, Str=DmdType]
$dMonadIO_aaLd = $dMonadIO_aauE
$dHasSetter_aauw [Occ=OnceL]
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
[LclId, Str=DmdType]
$dHasSetter_aauw =
Data.StateVar.$fHasSetterStateVara
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
$dMonad_aasR :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aasR = GHC.Base.$fMonadIO
$dMonad_aasT [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aasT = $dMonad_aasR
$dMonad_aau1 [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aau1 = $dMonad_aasR
$dMonad_aaK8 [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaK8 = $dMonad_aasR
$dMonad_aaKo [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaKo = $dMonad_aasR
$dMonad_aaKM [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaKM = $dMonad_aasR
$dMonad_aaKQ [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaKQ = $dMonad_aasR
$dMonad_aaL6 [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaL6 = $dMonad_aasR
$dMonad_aaLh [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaLh = $dMonad_aasR
$dMonad_aaLl [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaLl = $dMonad_aasR
$dMonad_aaLp [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_aaLp = $dMonad_aasR
$dMonad_abzz [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abzz = $dMonad_aasR
$dMonad_abAe [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abAe = $dMonad_aasR
$dMonad_abAF [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abAF = $dMonad_aasR
$dMonad_abBa [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abBa = $dMonad_aasR
$dMonad_abBq [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abBq = $dMonad_aasR
$dMonad_abBI [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abBI = $dMonad_aasR
$dMonad_abCa [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCa = $dMonad_aasR
$dMonad_abCe [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCe = $dMonad_aasR
$dMonad_abCi [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCi = $dMonad_aasR
Rec {
Main.mainLoop [Occ=LoopBreaker]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclIdX, Str=DmdType]
Main.mainLoop =
\ (w_a86B :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.unless'
@ GHC.Types.IO
$dMonad_aasR
(Graphics.UI.GLFW.windowShouldClose w_a86B))
(GHC.Base.>>=
@ GHC.Types.IO
$dMonad_aasT
@ (GHC.Types.Int, GHC.Types.Int)
@ ()
(Graphics.UI.GLFW.getFramebufferSize w_a86B)
(\ (ds_dbZQ [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
ratio_a86E =
let {
$dNum_aatA :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_aatA = $dNum_aaKV } in
let {
$dFractional_aat8 [Occ=OnceL]
:: GHC.Real.Fractional Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dFractional_aat8 = $dFractional_aaL0 } in
let {
$dNum_aatE [Occ=OnceL] :: GHC.Num.Num Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
$dNum_aatE = $dNum_aatA } in
let {
$dIntegral_aatz :: GHC.Real.Integral GHC.Types.Int
[LclId, Str=DmdType]
$dIntegral_aatz = GHC.Real.$fIntegralInt } in
let {
$dIntegral_aatD [Occ=OnceL] :: GHC.Real.Integral GHC.Types.Int
[LclId, Str=DmdType]
$dIntegral_aatD = $dIntegral_aatz } in
let {
ratio_aatF [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
ratio_aatF =
GHC.Real./
@ Graphics.GL.Types.GLdouble
$dFractional_aat8
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
$dIntegral_aatz
$dNum_aatA
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
$dIntegral_aatD
$dNum_aatE
height_a86D) } in
ratio_aatF } in
GHC.Base.>>
@ GHC.Types.IO
$dMonad_aau1
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
$dHasSetter_aauw
@ GHC.Types.IO
$dMonadIO_aauE
Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
(Graphics.Rendering.OpenGL.GL.CoordTrans.$WPosition
(GHC.Num.fromInteger @ Graphics.GL.Types.GLint $dNum_aaJR 0)
(GHC.Num.fromInteger @ Graphics.GL.Types.GLint $dNum_aaJT 0),
Graphics.Rendering.OpenGL.GL.CoordTrans.$WSize
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
$dIntegral_aaK1
$dNum_aaK2
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
$dIntegral_aaK5
$dNum_aaK6
height_a86D)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaK8
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.Framebuffer.clear
(GHC.Types.:
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[]
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaKo
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
$dHasSetter_aaKt
@ GHC.Types.IO
$dMonadIO_aaKv
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaKM
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaKQ
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
(GHC.Num.negate @ Graphics.GL.Types.GLdouble $dNum_aaKV ratio_a86E)
ratio_a86E
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble $dNum_aaKX (GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble $dNum_aaL2 (GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaL6
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
$dHasSetter_aaLb
@ GHC.Types.IO
$dMonadIO_aaLd
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(GHC.Num.fromInteger @ Graphics.GL.Types.GLsizei $dNum_aaLf 0)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaLh
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>=
@ GHC.Types.IO
$dMonad_aaLl
@ (GHC.Base.Maybe GHC.Types.Double)
@ ()
Graphics.UI.GLFW.getTime
(\ (ds_dbZI [Occ=Once!] :: GHC.Base.Maybe GHC.Types.Double) ->
let {
fail_dbZN [Occ=Once!] :: GHC.Prim.Void# -> GHC.Types.IO ()
[LclId, Str=DmdType]
fail_dbZN =
\ _ [Occ=Dead, OS=OneShot] ->
GHC.Base.fail
@ GHC.Types.IO
$dMonad_abCi
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#) } in
case ds_dbZI of _ [Occ=Dead] {
__DEFAULT -> fail_dbZN GHC.Prim.void#;
GHC.Base.Just t_a8FS ->
GHC.Base.>>
@ GHC.Types.IO
$dMonad_aaLp
@ ()
@ ()
(GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vector3
Graphics.GL.Types.GLdouble)
@ (GHC.Types.IO ())
(Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
@ Graphics.GL.Types.GLdouble
$dMatrixComponent_abz1
(GHC.Num.*
@ Graphics.GL.Types.GLdouble
$dNum_abz6
(GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
$dReal_abzh
$dFractional_abzi
t_a8FS)
(GHC.Types.D# 50.0##)))
(Graphics.Rendering.OpenGL.GL.Tensor.$WVector3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abzz
@ ()
@ ()
(GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abAe
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abAF
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
$dNum_abB0
(GHC.Types.D# 0.6##))
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
$dNum_abB4
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abBa
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abBe
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abBq
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abBu
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.6##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
$dNum_abBC
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abBI
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abBM
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abBY
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.6##)
(GHC.Types.D# 0.0##)))))))))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCa
@ ()
@ ()
(Graphics.UI.GLFW.swapBuffers w_a86B)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCe
@ ()
@ ()
Graphics.UI.GLFW.pollEvents
(Main.mainLoop w_a86B))))
}))))))))
}))
end Rec }
$dMonad_abCn [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCn = $dMonad_aasR
$dMonad_abCs [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCs = $dMonad_aasR
$dMonad_abCC [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCC = $dMonad_aasR
$dMonad_abCP [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCP = $dMonad_aasR
$dMonad_abCU [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCU = $dMonad_aasR
$dMonad_abCY [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abCY = $dMonad_aasR
$dMonad_abD3 [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abD3 = $dMonad_aasR
$dMonad_abD7 [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abD7 = $dMonad_aasR
$dMonad_abDb [Occ=OnceL] :: GHC.Base.Monad GHC.Types.IO
[LclId, Str=DmdType]
$dMonad_abDb = $dMonad_aasR
$dEq_aasy [Occ=OnceL]
:: GHC.Classes.Eq Graphics.UI.GLFW.Types.KeyState
[LclId, Str=DmdType]
$dEq_aasy = Graphics.UI.GLFW.Types.$fEqKeyState
$dEq_aasw [Occ=OnceL] :: GHC.Classes.Eq Graphics.UI.GLFW.Types.Key
[LclId, Str=DmdType]
$dEq_aasw = Graphics.UI.GLFW.Types.$fEqKey
$dApplicative_aasp [Occ=OnceL] :: GHC.Base.Applicative GHC.Types.IO
[LclId, Str=DmdType]
$dApplicative_aasp = GHC.Base.$fApplicativeIO
Main.keyCallback :: Graphics.UI.GLFW.KeyCallback
[LclIdX, Str=DmdType]
Main.keyCallback =
\ (window_a7bM :: Graphics.UI.GLFW.Types.Window)
(key_a7bN :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_a7bP :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(GHC.Base.when
@ GHC.Types.IO
$dApplicative_aasp
(GHC.Classes.&&
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
$dEq_aasw
key_a7bN
Graphics.UI.GLFW.Types.Key'Escape)
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
$dEq_aasy
action_a7bP
Graphics.UI.GLFW.Types.KeyState'Pressed)))
(Graphics.UI.GLFW.setWindowShouldClose window_a7bM GHC.Types.True)
Main.main :: GHC.Types.IO ()
[LclIdX, Str=DmdType]
Main.main =
GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCn
@ ()
@ ()
(Graphics.UI.GLFW.setErrorCallback
(GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback))
(GHC.Base.>>=
@ GHC.Types.IO
$dMonad_abCs
@ GHC.Types.Bool
@ ()
Graphics.UI.GLFW.init
(\ (successfulInit_a86y :: GHC.Types.Bool) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.bool
@ (GHC.Types.IO ())
successfulInit_a86y
(System.Exit.exitFailure @ ()))
(GHC.Base.>>=
@ GHC.Types.IO
$dMonad_abCC
@ (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
@ ()
(Graphics.UI.GLFW.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Monitor)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Window))
(\ (mw_a86z :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.maybe'
@ Graphics.UI.GLFW.Types.Window
@ (GHC.Types.IO ())
mw_a86z
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCP
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ())))
(\ (window_a86A :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCU
@ ()
@ ()
(Graphics.UI.GLFW.makeContextCurrent mw_a86z)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abCY
@ ()
@ ()
(Graphics.UI.GLFW.setKeyCallback
window_a86A
(GHC.Base.Just @ Graphics.UI.GLFW.KeyCallback Main.keyCallback))
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abD3
@ ()
@ ()
(Main.mainLoop window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abD7
@ ()
@ ()
(Graphics.UI.GLFW.destroyWindow window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
$dMonad_abDb
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitSuccess @ ()))))))))))
:Main.main :: GHC.Types.IO ()
[LclIdX, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () Main.main
==================== Desugar (after optimization) ====================
Result size of Desugar (after optimization)
= {terms: 353, types: 311, coercions: 0}
-- RHS size: {terms: 10, types: 6, coercions: 0}
bool :: forall a_a79N. Bool -> a_a79N -> a_a79N -> a_a79N
[LclIdX, Str=DmdType]
bool =
\ (@ a_aasj)
(b_a79O :: Bool)
(falseRes_a79P :: a_aasj)
(trueRes_a79Q :: a_aasj) ->
case b_a79O of _ [Occ=Dead] {
False -> falseRes_a79P;
True -> trueRes_a79Q
}
-- RHS size: {terms: 15, types: 18, coercions: 0}
unless'
:: forall (m_a79M :: * -> *).
Monad m_a79M =>
m_a79M Bool -> m_a79M () -> m_a79M ()
[LclIdX, Str=DmdType]
unless' =
\ (@ (m_aas5 :: * -> *)) ($dMonad_aasD :: Monad m_aas5) ->
let {
$dApplicative_aasL :: Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_aasL = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
\ (action_a79R :: m_aas5 Bool) (falseAction_a79S :: m_aas5 ()) ->
>>=
@ m_aas5
$dMonad_aasD
@ Bool
@ ()
action_a79R
(\ (b_a79T :: Bool) ->
unless @ m_aas5 $dApplicative_aasL b_a79T falseAction_a79S)
-- RHS size: {terms: 12, types: 12, coercions: 0}
maybe'
:: forall a_a79K b_a79L.
Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[LclIdX, Str=DmdType]
maybe' =
\ (@ a_aaro)
(@ b_aarp)
(m_a79U :: Maybe a_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a_aaro -> b_aarp) ->
case m_a79U of _ [Occ=Dead] {
Nothing -> nothingRes_a79V;
Just x_a79X -> f_a79W x_a79X
}
-- RHS size: {terms: 5, types: 2, coercions: 0}
errorCallback :: G.ErrorCallback
[LclIdX, Str=DmdType]
errorCallback =
\ _ [Occ=Dead] (description_a79Z :: String) ->
hPutStrLn stderr description_a79Z
-- RHS size: {terms: 5, types: 0, coercions: 0}
Main.$trModule :: GHC.Types.Module
[LclIdX, Str=DmdType]
Main.$trModule =
GHC.Types.Module
(GHC.Types.TrNameS "main"#) (GHC.Types.TrNameS "Main"#)
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dVertex_abAO :: Vertex (Vertex3 GLdouble)
[LclId, Str=DmdType]
$dVertex_abAO =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dColor_abAn :: Color (Color3 GLdouble)
[LclId, Str=DmdType]
$dColor_abAn =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
Rec {
-- RHS size: {terms: 214, types: 158, coercions: 0}
mainLoop [Occ=LoopBreaker] :: G.Window -> IO ()
[LclIdX, Str=DmdType]
mainLoop =
\ (w_a86B :: G.Window) ->
$ @ 'GHC.Types.PtrRepLifted
@ (IO ())
@ (IO ())
(unless' @ IO GHC.Base.$fMonadIO (G.windowShouldClose w_a86B))
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Int, Int)
@ ()
(G.getFramebufferSize w_a86B)
(\ (ds_dbZQ :: (Int, Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: GLdouble
[LclId, Str=DmdType]
ratio_a86E =
/ @ GLdouble
GHC.Float.$fFractionalDouble
(fromIntegral
@ Int
@ GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_a86C)
(fromIntegral
@ Int
@ GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_a86D) } in
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
($=
@ (StateVar (Position, Size))
@ (Position, Size)
(Data.StateVar.$fHasSetterStateVara @ (Position, Size))
@ IO
Control.Monad.IO.Class.$fMonadIOIO
viewport
(Graphics.Rendering.OpenGL.GL.CoordTrans.$WPosition
(fromInteger @ GLint GHC.Int.$fNumInt32 0)
(fromInteger @ GLint GHC.Int.$fNumInt32 0),
Graphics.Rendering.OpenGL.GL.CoordTrans.$WSize
(fromIntegral
@ Int
@ GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_a86C)
(fromIntegral
@ Int
@ GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_a86D)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(clear
(GHC.Types.:
@ ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[] @ ClearBuffer)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
($=
@ (StateVar MatrixMode)
@ MatrixMode
(Data.StateVar.$fHasSetterStateVara @ MatrixMode)
@ IO
Control.Monad.IO.Class.$fMonadIOIO
matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
loadIdentity
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(ortho
(negate @ GLdouble GHC.Float.$fNumDouble ratio_a86E)
ratio_a86E
(negate @ GLdouble GHC.Float.$fNumDouble (GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(negate @ GLdouble GHC.Float.$fNumDouble (GHC.Types.D# 1.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
($=
@ (StateVar MatrixMode)
@ MatrixMode
(Data.StateVar.$fHasSetterStateVara @ MatrixMode)
@ IO
Control.Monad.IO.Class.$fMonadIOIO
matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(fromInteger @ GLsizei GHC.Int.$fNumInt32 0)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
loadIdentity
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Maybe Double)
@ ()
G.getTime
(\ (ds_dbZI :: Maybe Double) ->
case ds_dbZI of _ [Occ=Dead] {
__DEFAULT ->
(\ _ [Occ=Dead, OS=OneShot] ->
fail
@ IO
GHC.Base.$fMonadIO
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#))
GHC.Prim.void#;
Just t_a8FS ->
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
($ @ 'GHC.Types.PtrRepLifted
@ (Vector3 GLdouble)
@ (IO ())
(rotate
@ GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
(* @ GLdouble
GHC.Float.$fNumDouble
(realToFrac
@ Double
@ GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_a8FS)
(GHC.Types.D# 50.0##)))
(Graphics.Rendering.OpenGL.GL.Tensor.$WVector3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
($ @ 'GHC.Types.PtrRepLifted
@ (IO ())
@ (IO ())
(renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_abAn
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ GLdouble
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(vertex
@ (Vertex3 GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ GLdouble
(negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.6##))
(negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_abAn
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(vertex
@ (Vertex3 GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ GLdouble
(GHC.Types.D# 0.6##)
(negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_abAn
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(vertex
@ (Vertex3 GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.6##)
(GHC.Types.D# 0.0##)))))))))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.swapBuffers w_a86B)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
G.pollEvents
(mainLoop w_a86B))))
}))))))))
}))
end Rec }
-- RHS size: {terms: 20, types: 13, coercions: 0}
keyCallback :: G.KeyCallback
[LclIdX, Str=DmdType]
keyCallback =
\ (window_a7bM :: G.Window)
(key_a7bN :: G.Key)
_ [Occ=Dead]
(action_a7bP :: G.KeyState)
_ [Occ=Dead] ->
$ @ 'GHC.Types.PtrRepLifted
@ (IO ())
@ (IO ())
(when
@ IO
GHC.Base.$fApplicativeIO
(&&
(==
@ G.Key
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.$fEqKey
key_a7bN
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.Key'Escape)
(==
@ G.KeyState
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.$fEqKeyState
action_a7bP
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.KeyState'Pressed)))
(G.setWindowShouldClose window_a7bM GHC.Types.True)
-- RHS size: {terms: 55, types: 55, coercions: 0}
main :: IO ()
[LclIdX, Str=DmdType]
main =
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.setErrorCallback
(GHC.Base.Just @ G.ErrorCallback errorCallback))
(>>=
@ IO
GHC.Base.$fMonadIO
@ Bool
@ ()
G.init
(\ (successfulInit_a86y :: Bool) ->
$ @ 'GHC.Types.PtrRepLifted
@ (IO ())
@ (IO ())
(bool @ (IO ()) successfulInit_a86y (exitFailure @ ()))
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Maybe G.Window)
@ ()
(G.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ G.Monitor)
(GHC.Base.Nothing @ G.Window))
(\ (mw_a86z :: Maybe G.Window) ->
$ @ 'GHC.Types.PtrRepLifted
@ (G.Window -> IO ())
@ (IO ())
(maybe'
@ G.Window
@ (IO ())
mw_a86z
(>>
@ IO GHC.Base.$fMonadIO @ () @ () G.terminate (exitFailure @ ())))
(\ (window_a86A :: G.Window) ->
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.makeContextCurrent mw_a86z)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.setKeyCallback
window_a86A (GHC.Base.Just @ G.KeyCallback keyCallback))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(mainLoop window_a86A)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.destroyWindow window_a86A)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
G.terminate
(exitSuccess @ ()))))))))))
-- RHS size: {terms: 2, types: 1, coercions: 0}
:Main.main :: IO ()
[LclIdX, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () main
*** Simplifier:
==================== Occurrence analysis ====================
Main.bool
:: forall a_a79N. GHC.Types.Bool -> a_a79N -> a_a79N -> a_a79N
[LclIdX, Str=DmdType]
Main.bool =
\ (@ a_aasj)
(b_a79O :: GHC.Types.Bool)
(falseRes_a79P :: a_aasj)
(trueRes_a79Q :: a_aasj) ->
case b_a79O of _ [Occ=Dead] {
GHC.Types.False -> falseRes_a79P;
GHC.Types.True -> trueRes_a79Q
}
Main.unless'
:: forall (m_a79M :: * -> *).
GHC.Base.Monad m_a79M =>
m_a79M GHC.Types.Bool -> m_a79M () -> m_a79M ()
[LclIdX, Str=DmdType]
Main.unless' =
\ (@ (m_aas5 :: * -> *)) ($dMonad_aasD :: GHC.Base.Monad m_aas5) ->
let {
$dApplicative_aasL [Occ=OnceL] :: GHC.Base.Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_aasL = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
\ (action_a79R :: m_aas5 GHC.Types.Bool)
(falseAction_a79S :: m_aas5 ()) ->
GHC.Base.>>=
@ m_aas5
$dMonad_aasD
@ GHC.Types.Bool
@ ()
action_a79R
(\ (b_a79T :: GHC.Types.Bool) ->
Control.Monad.unless
@ m_aas5 $dApplicative_aasL b_a79T falseAction_a79S)
Main.maybe'
:: forall a_a79K b_a79L.
GHC.Base.Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[LclIdX, Str=DmdType]
Main.maybe' =
\ (@ a_aaro)
(@ b_aarp)
(m_a79U :: GHC.Base.Maybe a_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a_aaro -> b_aarp) ->
case m_a79U of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
}
Main.errorCallback :: Graphics.UI.GLFW.ErrorCallback
[LclIdX, Str=DmdType]
Main.errorCallback =
\ _ [Occ=Dead] (description_a79Z :: GHC.Base.String) ->
GHC.IO.Handle.Text.hPutStrLn
GHC.IO.Handle.FD.stderr description_a79Z
Main.$trModule :: GHC.Types.Module
[LclIdX, Str=DmdType]
Main.$trModule =
GHC.Types.Module
(GHC.Types.TrNameS "main"#) (GHC.Types.TrNameS "Main"#)
$dVertex_abAO
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dVertex_abAO =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
$dColor_abAn
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId, Str=DmdType]
$dColor_abAn =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
Rec {
Main.mainLoop [Occ=LoopBreaker]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclIdX, Str=DmdType]
Main.mainLoop =
\ (w_a86B :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.unless'
@ GHC.Types.IO
GHC.Base.$fMonadIO
(Graphics.UI.GLFW.windowShouldClose w_a86B))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Types.Int, GHC.Types.Int)
@ ()
(Graphics.UI.GLFW.getFramebufferSize w_a86B)
(\ (ds_dbZQ [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
ratio_a86E =
GHC.Real./
@ Graphics.GL.Types.GLdouble
GHC.Float.$fFractionalDouble
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_a86D) } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
(Data.StateVar.$fHasSetterStateVara
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
(Graphics.Rendering.OpenGL.GL.CoordTrans.$WPosition
(GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0)
(GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0),
Graphics.Rendering.OpenGL.GL.CoordTrans.$WSize
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_a86D)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.Framebuffer.clear
(GHC.Types.:
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[]
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
(Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble GHC.Float.$fNumDouble ratio_a86E)
ratio_a86E
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Data.StateVar.$=
@ (Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
(Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(GHC.Num.fromInteger
@ Graphics.GL.Types.GLsizei GHC.Int.$fNumInt32 0)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe GHC.Types.Double)
@ ()
Graphics.UI.GLFW.getTime
(\ (ds_dbZI [Occ=Once!] :: GHC.Base.Maybe GHC.Types.Double) ->
case ds_dbZI of _ [Occ=Dead] {
__DEFAULT ->
(\ _ [Occ=Dead, OS=OneShot] ->
GHC.Base.fail
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#))
GHC.Prim.void#;
GHC.Base.Just t_a8FS ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vector3
Graphics.GL.Types.GLdouble)
@ (GHC.Types.IO ())
(Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
@ Graphics.GL.Types.GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
(GHC.Num.*
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_a8FS)
(GHC.Types.D# 50.0##)))
(Graphics.Rendering.OpenGL.GL.Tensor.$WVector3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.6##))
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.6##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##))
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.6##)
(GHC.Types.D# 0.0##)))))))))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.swapBuffers w_a86B)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.pollEvents
(Main.mainLoop w_a86B))))
}))))))))
}))
end Rec }
Main.keyCallback :: Graphics.UI.GLFW.KeyCallback
[LclIdX, Str=DmdType]
Main.keyCallback =
\ (window_a7bM :: Graphics.UI.GLFW.Types.Window)
(key_a7bN :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_a7bP :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(GHC.Base.when
@ GHC.Types.IO
GHC.Base.$fApplicativeIO
(GHC.Classes.&&
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
Graphics.UI.GLFW.Types.$fEqKey
key_a7bN
Graphics.UI.GLFW.Types.Key'Escape)
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
Graphics.UI.GLFW.Types.$fEqKeyState
action_a7bP
Graphics.UI.GLFW.Types.KeyState'Pressed)))
(Graphics.UI.GLFW.setWindowShouldClose window_a7bM GHC.Types.True)
Main.main :: GHC.Types.IO ()
[LclIdX, Str=DmdType]
Main.main =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setErrorCallback
(GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ GHC.Types.Bool
@ ()
Graphics.UI.GLFW.init
(\ (successfulInit_a86y :: GHC.Types.Bool) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.bool
@ (GHC.Types.IO ())
successfulInit_a86y
(System.Exit.exitFailure @ ()))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
@ ()
(Graphics.UI.GLFW.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Monitor)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Window))
(\ (mw_a86z :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) ->
GHC.Base.$
@ 'GHC.Types.PtrRepLifted
@ (Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ())
@ (GHC.Types.IO ())
(Main.maybe'
@ Graphics.UI.GLFW.Types.Window
@ (GHC.Types.IO ())
mw_a86z
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ())))
(\ (window_a86A :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.makeContextCurrent mw_a86z)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setKeyCallback
window_a86A
(GHC.Base.Just @ Graphics.UI.GLFW.KeyCallback Main.keyCallback))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Main.mainLoop window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.destroyWindow window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitSuccess @ ()))))))))))
:Main.main :: GHC.Types.IO ()
[LclIdX, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () Main.main
Result size of Simplifier iteration=1
= {terms: 414, types: 306, coercions: 16}
==================== Occurrence analysis ====================
Main.keyCallback :: Graphics.UI.GLFW.KeyCallback
[LclIdX,
Arity=5,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0] 180 0}]
Main.keyCallback =
\ (window_a7bM :: Graphics.UI.GLFW.Types.Window)
(key_a7bN :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_a7bP :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] ->
(GHC.Base.when
@ GHC.Types.IO
GHC.Base.$fApplicativeIO
(GHC.Classes.&&
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
Graphics.UI.GLFW.Types.$fEqKey
key_a7bN
Graphics.UI.GLFW.Types.Key'Escape)
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
Graphics.UI.GLFW.Types.$fEqKeyState
action_a7bP
Graphics.UI.GLFW.Types.KeyState'Pressed)))
(Graphics.UI.GLFW.setWindowShouldClose window_a7bM GHC.Types.True)
$dColor_abAn
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}]
$dColor_abAn =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
$dVertex_abAO
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}]
$dVertex_abAO =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
a_sc06 :: GHC.Types.TrName
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
a_sc06 = GHC.Types.TrNameS "Main"#
a_sc05 :: GHC.Types.TrName
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
a_sc05 = GHC.Types.TrNameS "main"#
Main.$trModule :: GHC.Types.Module
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
Main.$trModule = GHC.Types.Module a_sc05 a_sc06
Main.errorCallback :: Graphics.UI.GLFW.ErrorCallback
[LclIdX,
Arity=2,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=True)}]
Main.errorCallback =
\ _ [Occ=Dead] (description_a79Z :: GHC.Base.String) ->
GHC.IO.Handle.Text.hPutStrLn
GHC.IO.Handle.FD.stderr description_a79Z
Main.maybe'
:: forall a_a79K b_a79L.
GHC.Base.Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)}]
Main.maybe' =
\ (@ a_aaro)
(@ b_aarp)
(m_a79U :: GHC.Base.Maybe a_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a_aaro -> b_aarp) ->
case m_a79U of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
}
Main.unless'
:: forall (m_a79M :: * -> *).
GHC.Base.Monad m_a79M =>
m_a79M GHC.Types.Bool -> m_a79M () -> m_a79M ()
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 0 0] 120 0}]
Main.unless' =
\ (@ (m_aas5 :: * -> *))
($dMonad_aasD :: GHC.Base.Monad m_aas5)
(eta_B2 :: m_aas5 GHC.Types.Bool)
(eta_B1 :: m_aas5 ()) ->
let {
$dApplicative_aasL [Occ=OnceL] :: GHC.Base.Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_aasL = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
GHC.Base.>>=
@ m_aas5
$dMonad_aasD
@ GHC.Types.Bool
@ ()
eta_B2
(\ (b_a79T :: GHC.Types.Bool) ->
Control.Monad.unless @ m_aas5 $dApplicative_aasL b_a79T eta_B1)
Rec {
Main.mainLoop [Occ=LoopBreaker]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclIdX,
Arity=1,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=NEVER}]
Main.mainLoop =
\ (w_a86B :: Graphics.UI.GLFW.Types.Window) ->
(Main.unless'
@ GHC.Types.IO
GHC.Base.$fMonadIO
(Graphics.UI.GLFW.windowShouldClose w_a86B))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Types.Int, GHC.Types.Int)
@ ()
(Graphics.UI.GLFW.getFramebufferSize w_a86B)
(\ (ds_dbZQ [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 120 0}]
ratio_a86E =
GHC.Real./
@ Graphics.GL.Types.GLdouble
GHC.Float.$fFractionalDouble
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_a86D) } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
<(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
(case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJO [Occ=Once] ->
case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJP [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Position dt_aaJO dt_aaJP
}
},
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_a86C
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJX [Occ=Once] ->
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_a86D
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJY [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Size dt_aaJX dt_aaJY
}
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.Framebuffer.clear
(GHC.Types.:
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[]
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble GHC.Float.$fNumDouble ratio_a86E)
ratio_a86E
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(GHC.Num.fromInteger
@ Graphics.GL.Types.GLsizei GHC.Int.$fNumInt32 0)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe GHC.Types.Double)
@ ()
Graphics.UI.GLFW.getTime
(\ (ds_dbZI [Occ=Once!] :: GHC.Base.Maybe GHC.Types.Double) ->
case ds_dbZI of _ [Occ=Dead] {
GHC.Base.Nothing ->
GHC.Base.fail
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#);
GHC.Base.Just t_a8FS ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
((Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
@ Graphics.GL.Types.GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
(GHC.Num.*
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_a8FS)
(GHC.Types.D# 50.0##)))
(let {
dt_Xbzt [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=True,
ConLike=True, WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_Xbzt = GHC.Types.D# 0.0## } in
let {
dt_Xbzv [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=True,
ConLike=True, WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_Xbzv = GHC.Types.D# 0.0## } in
let {
dt_Xbzx [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=True,
ConLike=True, WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_Xbzx = GHC.Types.D# 1.0## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vector3
@ Graphics.GL.Types.GLdouble
dt_Xbzt
dt_Xbzv
dt_Xbzx))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
((Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(let {
dt_XbAz [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False,
Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAz = GHC.Types.D# 1.0## } in
let {
dt_XbAB [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False,
Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAB = GHC.Types.D# 0.0## } in
let {
dt_XbAD [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False,
Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAD = GHC.Types.D# 0.0## } in
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
dt_XbAz
dt_XbAB
dt_XbAD))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.6##)
of dt_XbB0
{ GHC.Types.D# _ [Occ=Dead] ->
case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt_XbB2
{ GHC.Types.D# _ [Occ=Dead] ->
let {
dt_XbB4 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False,
Value=True, ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB4 = GHC.Types.D# 0.0## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
dt_XbB0
dt_XbB2
dt_XbB4
}
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(let {
dt_XbAz [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False, Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAz = GHC.Types.D# 0.0## } in
let {
dt_XbAB [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False, Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAB = GHC.Types.D# 1.0## } in
let {
dt_XbAD [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False, Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAD = GHC.Types.D# 0.0## } in
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
dt_XbAz
dt_XbAB
dt_XbAD))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(let {
dt_XbB0 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB0 =
GHC.Types.D# 0.6## } in
case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt_XbB2
{ GHC.Types.D# _ [Occ=Dead] ->
let {
dt_XbB4 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB4 =
GHC.Types.D# 0.0## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
dt_XbB0
dt_XbB2
dt_XbB4
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(let {
dt_XbAz [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAz =
GHC.Types.D# 0.0## } in
let {
dt_XbAB [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAB =
GHC.Types.D# 0.0## } in
let {
dt_XbAD [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbAD =
GHC.Types.D# 1.0## } in
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
dt_XbAz
dt_XbAB
dt_XbAD))
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(let {
dt_XbB0 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB0 =
GHC.Types.D# 0.0## } in
let {
dt_XbB2 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB2 =
GHC.Types.D# 0.6## } in
let {
dt_XbB4 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>,
TopLvl=False,
Value=True,
ConLike=True,
WorkFree=True,
Expandable=True,
Guidance=IF_ARGS [] 10 20}]
dt_XbB4 =
GHC.Types.D# 0.0## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
dt_XbB0
dt_XbB2
dt_XbB4))))))))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.swapBuffers w_a86B)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.pollEvents
(Main.mainLoop w_a86B))))
}))))))))
}))
end Rec }
Main.main :: GHC.Types.IO ()
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=NEVER}]
Main.main =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setErrorCallback
(GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ GHC.Types.Bool
@ ()
Graphics.UI.GLFW.init
(\ (successfulInit_a86y :: GHC.Types.Bool) ->
(\ (trueRes_a79Q [OS=OneShot] :: GHC.Types.IO ()) ->
case successfulInit_a86y of _ [Occ=Dead] {
GHC.Types.False -> System.Exit.exitFailure @ ();
GHC.Types.True -> trueRes_a79Q
})
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
@ ()
(Graphics.UI.GLFW.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Monitor)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Window))
(\ (mw_a86z :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) ->
(let {
nothingRes_a79V :: GHC.Types.IO ()
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 0}]
nothingRes_a79V =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ()) } in
\ (f_a79W [OS=OneShot]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()) ->
case mw_a86z of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
})
(\ (window_a86A :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.makeContextCurrent mw_a86z)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setKeyCallback
window_a86A
(GHC.Base.Just @ Graphics.UI.GLFW.KeyCallback Main.keyCallback))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Main.mainLoop window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.destroyWindow window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitSuccess @ ()))))))))))
:Main.main :: GHC.Types.IO ()
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 20 0}]
:Main.main = GHC.TopHandler.runMainIO @ () Main.main
Main.bool
:: forall a_a79N. GHC.Types.Bool -> a_a79N -> a_a79N -> a_a79N
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)}]
Main.bool =
\ (@ a_aasj)
(b_a79O :: GHC.Types.Bool)
(falseRes_a79P :: a_aasj)
(trueRes_a79Q :: a_aasj) ->
case b_a79O of _ [Occ=Dead] {
GHC.Types.False -> falseRes_a79P;
GHC.Types.True -> trueRes_a79Q
}
Result size of Simplifier iteration=2
= {terms: 378, types: 288, coercions: 16}
==================== Occurrence analysis ====================
Main.bool
:: forall a_a79N. GHC.Types.Bool -> a_a79N -> a_a79N -> a_a79N
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)}]
Main.bool =
\ (@ a_aasj)
(b_a79O :: GHC.Types.Bool)
(falseRes_a79P :: a_aasj)
(trueRes_a79Q :: a_aasj) ->
case b_a79O of _ [Occ=Dead] {
GHC.Types.False -> falseRes_a79P;
GHC.Types.True -> trueRes_a79Q
}
Main.unless'
:: forall (m_a79M :: * -> *).
GHC.Base.Monad m_a79M =>
m_a79M GHC.Types.Bool -> m_a79M () -> m_a79M ()
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [60 0 0] 120 0}]
Main.unless' =
\ (@ (m_aas5 :: * -> *))
($dMonad_aasD :: GHC.Base.Monad m_aas5)
(eta_B2 :: m_aas5 GHC.Types.Bool)
(eta_B1 :: m_aas5 ()) ->
let {
$dApplicative_aasL [Occ=OnceL] :: GHC.Base.Applicative m_aas5
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=False, ConLike=False,
WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}]
$dApplicative_aasL = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
GHC.Base.>>=
@ m_aas5
$dMonad_aasD
@ GHC.Types.Bool
@ ()
eta_B2
(\ (b_a79T :: GHC.Types.Bool) ->
Control.Monad.unless @ m_aas5 $dApplicative_aasL b_a79T eta_B1)
Main.maybe'
:: forall a_a79K b_a79L.
GHC.Base.Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[LclIdX,
Arity=3,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=True,boring_ok=True)}]
Main.maybe' =
\ (@ a_aaro)
(@ b_aarp)
(m_a79U :: GHC.Base.Maybe a_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a_aaro -> b_aarp) ->
case m_a79U of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
}
Main.errorCallback :: Graphics.UI.GLFW.ErrorCallback
[LclIdX,
Arity=2,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=True)}]
Main.errorCallback =
\ _ [Occ=Dead] (description_a79Z :: GHC.Base.String) ->
GHC.IO.Handle.Text.hPutStrLn
GHC.IO.Handle.FD.stderr description_a79Z
a_sc05 :: GHC.Types.TrName
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
a_sc05 = GHC.Types.TrNameS "main"#
a_sc06 :: GHC.Types.TrName
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
a_sc06 = GHC.Types.TrNameS "Main"#
Main.$trModule :: GHC.Types.Module
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
Main.$trModule = GHC.Types.Module a_sc05 a_sc06
$dVertex_abAO
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}]
$dVertex_abAO =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
$dColor_abAn
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=True, Guidance=IF_ARGS [] 20 0}]
$dColor_abAn =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
Rec {
Main.mainLoop [Occ=LoopBreaker]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclIdX,
Arity=1,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=NEVER}]
Main.mainLoop =
\ (w_a86B :: Graphics.UI.GLFW.Types.Window) ->
(Main.unless'
@ GHC.Types.IO
GHC.Base.$fMonadIO
(Graphics.UI.GLFW.windowShouldClose w_a86B))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Types.Int, GHC.Types.Int)
@ ()
(Graphics.UI.GLFW.getFramebufferSize w_a86B)
(\ (ds_dbZQ [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 120 0}]
ratio_a86E =
GHC.Real./
@ Graphics.GL.Types.GLdouble
GHC.Float.$fFractionalDouble
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_a86C)
(GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_a86D) } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
<(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
(case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJO [Occ=Once] ->
case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJP [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Position dt_aaJO dt_aaJP
}
},
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_a86C
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJX [Occ=Once] ->
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_a86D
of _ [Occ=Dead] { GHC.Int.I32# dt_aaJY [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Size dt_aaJX dt_aaJY
}
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.Framebuffer.clear
(GHC.Types.:
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[]
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble GHC.Float.$fNumDouble ratio_a86E)
ratio_a86E
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(GHC.Num.fromInteger
@ Graphics.GL.Types.GLsizei GHC.Int.$fNumInt32 0)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe GHC.Types.Double)
@ ()
Graphics.UI.GLFW.getTime
(\ (ds_dbZI [Occ=Once!] :: GHC.Base.Maybe GHC.Types.Double) ->
case ds_dbZI of _ [Occ=Dead] {
GHC.Base.Nothing ->
GHC.Base.fail
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#);
GHC.Base.Just t_a8FS ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
((Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
@ Graphics.GL.Types.GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
(GHC.Num.*
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_a8FS)
(GHC.Types.D# 50.0##)))
(Graphics.Rendering.OpenGL.GL.Tensor.Vector3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
((Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.6##)
of dt_XbB0
{ GHC.Types.D# _ [Occ=Dead] ->
case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt_XbB2
{ GHC.Types.D# _ [Occ=Dead] ->
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
dt_XbB0
dt_XbB2
(GHC.Types.D# 0.0##)
}
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(case GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt_XbB2
{ GHC.Types.D# _ [Occ=Dead] ->
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.6##)
dt_XbB2
(GHC.Types.D# 0.0##)
}))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_abAn
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_abAO
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.6##)
(GHC.Types.D# 0.0##)))))))))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.swapBuffers w_a86B)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.pollEvents
(Main.mainLoop w_a86B))))
}))))))))
}))
end Rec }
Main.keyCallback :: Graphics.UI.GLFW.KeyCallback
[LclIdX,
Arity=5,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=IF_ARGS [0 0 0 0 0] 180 0}]
Main.keyCallback =
\ (window_a7bM :: Graphics.UI.GLFW.Types.Window)
(key_a7bN :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_a7bP :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] ->
(GHC.Base.when
@ GHC.Types.IO
GHC.Base.$fApplicativeIO
(GHC.Classes.&&
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
Graphics.UI.GLFW.Types.$fEqKey
key_a7bN
Graphics.UI.GLFW.Types.Key'Escape)
(GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
Graphics.UI.GLFW.Types.$fEqKeyState
action_a7bP
Graphics.UI.GLFW.Types.KeyState'Pressed)))
(Graphics.UI.GLFW.setWindowShouldClose window_a7bM GHC.Types.True)
Main.main :: GHC.Types.IO ()
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=NEVER}]
Main.main =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setErrorCallback
(GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback))
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ GHC.Types.Bool
@ ()
Graphics.UI.GLFW.init
(\ (successfulInit_a86y :: GHC.Types.Bool) ->
(\ (trueRes_a79Q [OS=OneShot] :: GHC.Types.IO ()) ->
case successfulInit_a86y of _ [Occ=Dead] {
GHC.Types.False -> System.Exit.exitFailure @ ();
GHC.Types.True -> trueRes_a79Q
})
(GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
@ ()
(Graphics.UI.GLFW.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Monitor)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Window))
(\ (mw_a86z :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) ->
(let {
nothingRes_a79V :: GHC.Types.IO ()
[LclId,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=False, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 40 0}]
nothingRes_a79V =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ()) } in
\ (f_a79W [OS=OneShot]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()) ->
case mw_a86z of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_a79V;
GHC.Base.Just x_a79X -> f_a79W x_a79X
})
(\ (window_a86A :: Graphics.UI.GLFW.Types.Window) ->
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.makeContextCurrent mw_a86z)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.setKeyCallback
window_a86A
(GHC.Base.Just @ Graphics.UI.GLFW.KeyCallback Main.keyCallback))
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Main.mainLoop window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
(Graphics.UI.GLFW.destroyWindow window_a86A)
(GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitSuccess @ ()))))))))))
:Main.main :: GHC.Types.IO ()
[LclIdX,
Str=DmdType,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=False, ConLike=False,
WorkFree=False, Expandable=False, Guidance=IF_ARGS [] 20 0}]
:Main.main = GHC.TopHandler.runMainIO @ () Main.main
Result size of Simplifier = {terms: 378, types: 288, coercions: 16}
==================== Grand total simplifier statistics ====================
Total ticks: 185
59 PreInlineUnconditionally
9 tpl_B1
6 tpl_B2
3 dt_XbAz
3 dt_XbAB
3 dt_XbAD
3 dt_XbB4
3 dt_abAu
3 dt_abAv
3 dt_abAw
3 dt_abAV
3 dt_abAW
3 dt_abAX
2 dt_XbB0
1 dt_Xbzt
1 dt_Xbzv
1 dt_Xbzx
1 dt_XbB2
1 dt_aauP
1 dt_aauQ
1 dt_aaJU
1 dt_aaJV
1 dt_abzo
1 dt_abzp
1 dt_abzq
1 ds_dbZO
3 PostInlineUnconditionally
1 b_a79O
1 falseRes_a79P
1 m_a79U
20 UnfoldingDone
6 GHC.Base.$
3 Data.StateVar.$=
3 Graphics.Rendering.OpenGL.GL.Tensor.$WVertex3
3 Graphics.Rendering.OpenGL.GL.VertexAttributes.$WColor3
1 Main.bool
1 Main.maybe'
1 Graphics.Rendering.OpenGL.GL.CoordTrans.$WPosition
1 Graphics.Rendering.OpenGL.GL.CoordTrans.$WSize
1 Graphics.Rendering.OpenGL.GL.Tensor.$WVector3
1 LetFloatFromLet 1
1 EtaExpansion 1 Main.unless'
79 BetaReduction
9 tpl_B1
6 a_12
6 b_13
6 r_1j
6 tpl_B2
3 t_aau4
3 a_aau5
3 a_abAp
3 dt_abAu
3 dt_abAv
3 dt_abAw
3 a_abAQ
3 dt_abAV
3 dt_abAW
3 dt_abAX
1 b_a79O
1 falseRes_a79P
1 m_a79U
1 nothingRes_a79V
1 a_aaro
1 b_aarp
1 a_aasj
1 dt_aauP
1 dt_aauQ
1 dt_aaJU
1 dt_aaJV
1 a_abz2
1 dt_abzo
1 dt_abzp
1 dt_abzq
1 ds_dbZO
18 KnownBranch
3 dt_XbAz
3 dt_XbAB
3 dt_XbAD
3 dt_XbB4
2 dt_XbB0
1 dt_Xbzt
1 dt_Xbzv
1 dt_Xbzx
1 dt_XbB2
4 FillInCaseDefault
2 dt_XbB2
1 wild_Xg
1 dt_XbB0
3 SimplifierDone 3
*** Tidy Core:
==================== Tidy Core ====================
Result size of Tidy Core = {terms: 378, types: 288, coercions: 16}
-- RHS size: {terms: 10, types: 6, coercions: 0}
bool :: forall a_a79N. Bool -> a_a79N -> a_a79N -> a_a79N
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType]
bool =
\ (@ a2_aasj)
(b_a79O :: Bool)
(falseRes_a79P :: a2_aasj)
(trueRes_a79Q :: a2_aasj) ->
case b_a79O of _ [Occ=Dead] {
False -> falseRes_a79P;
True -> trueRes_a79Q
}
-- RHS size: {terms: 15, types: 18, coercions: 0}
unless'
:: forall (m_a79M :: * -> *).
Monad m_a79M =>
m_a79M Bool -> m_a79M () -> m_a79M ()
[GblId, Arity=3, Str=DmdType]
unless' =
\ (@ (m_aas5 :: * -> *))
($dMonad_aasD :: Monad m_aas5)
(eta_B2 :: m_aas5 Bool)
(eta1_B1 :: m_aas5 ()) ->
let {
$dApplicative_aasL :: Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_aasL = GHC.Base.$p1Monad @ m_aas5 $dMonad_aasD } in
>>=
@ m_aas5
$dMonad_aasD
@ Bool
@ ()
eta_B2
(\ (b_a79T :: Bool) ->
unless @ m_aas5 $dApplicative_aasL b_a79T eta1_B1)
-- RHS size: {terms: 12, types: 12, coercions: 0}
maybe'
:: forall a_a79K b_a79L.
Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType]
maybe' =
\ (@ a2_aaro)
(@ b_aarp)
(m_a79U :: Maybe a2_aaro)
(nothingRes_a79V :: b_aarp)
(f_a79W :: a2_aaro -> b_aarp) ->
case m_a79U of _ [Occ=Dead] {
Nothing -> nothingRes_a79V;
Just x_a79X -> f_a79W x_a79X
}
-- RHS size: {terms: 5, types: 2, coercions: 0}
errorCallback :: G.ErrorCallback
[GblId, Arity=2, Str=DmdType]
errorCallback =
\ _ [Occ=Dead] (description_a79Z :: String) ->
hPutStrLn stderr description_a79Z
-- RHS size: {terms: 2, types: 0, coercions: 0}
a_rbZn :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType]
a_rbZn = GHC.Types.TrNameS "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0}
a1_rc0R :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType]
a1_rc0R = GHC.Types.TrNameS "Main"#
-- RHS size: {terms: 3, types: 0, coercions: 0}
Main.$trModule :: GHC.Types.Module
[GblId, Caf=NoCafRefs, Str=DmdType]
Main.$trModule = GHC.Types.Module a_rbZn a1_rc0R
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dVertex_rc0S :: Vertex (Vertex3 GLdouble)
[GblId, Str=DmdType]
$dVertex_rc0S =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dColor_rc0T :: Color (Color3 GLdouble)
[GblId, Str=DmdType]
$dColor_rc0T =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
Rec {
-- RHS size: {terms: 227, types: 143, coercions: 16}
mainLoop [Occ=LoopBreaker] :: G.Window -> IO ()
[GblId, Arity=1, Str=DmdType]
mainLoop =
\ (w_a86B :: G.Window) ->
(unless' @ IO GHC.Base.$fMonadIO (G.windowShouldClose w_a86B))
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Int, Int)
@ ()
(G.getFramebufferSize w_a86B)
(\ (ds_dbZQ :: (Int, Int)) ->
case ds_dbZQ of _ [Occ=Dead] { (width_a86C, height_a86D) ->
let {
ratio_a86E :: GLdouble
[LclId, Str=DmdType]
ratio_a86E =
/ @ GLdouble
GHC.Float.$fFractionalDouble
(fromIntegral
@ Int
@ GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_a86C)
(fromIntegral
@ Int
@ GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_a86D) } in
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara @ (Position, Size))
`cast` (Data.StateVar.N:HasSetter[0]
<StateVar (Position, Size)>_N <(Position, Size)>_N
:: HasSetter (StateVar (Position, Size)) (Position, Size)
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
StateVar (Position, Size) -> (Position, Size) -> m_aau7 ())))
@ IO
Control.Monad.IO.Class.$fMonadIOIO
viewport
(case fromInteger @ GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt1_aaJO ->
case fromInteger @ GLint GHC.Int.$fNumInt32 0
of _ [Occ=Dead] { GHC.Int.I32# dt3_aaJP ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Position dt1_aaJO dt3_aaJP
}
},
case fromIntegral
@ Int
@ GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_a86C
of _ [Occ=Dead] { GHC.Int.I32# dt1_aaJX ->
case fromIntegral
@ Int
@ GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_a86D
of _ [Occ=Dead] { GHC.Int.I32# dt3_aaJY ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Size dt1_aaJX dt3_aaJY
}
}))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(clear
(GHC.Types.:
@ ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[] @ ClearBuffer)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara @ MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<StateVar MatrixMode>_N <MatrixMode>_N
:: HasSetter (StateVar MatrixMode) MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
StateVar MatrixMode -> MatrixMode -> m_aau7 ())))
@ IO
Control.Monad.IO.Class.$fMonadIOIO
matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
loadIdentity
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(ortho
(negate @ GLdouble GHC.Float.$fNumDouble ratio_a86E)
ratio_a86E
(negate @ GLdouble GHC.Float.$fNumDouble (GHC.Types.D# 1.0##))
(GHC.Types.D# 1.0##)
(GHC.Types.D# 1.0##)
(negate @ GLdouble GHC.Float.$fNumDouble (GHC.Types.D# 1.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(((Data.StateVar.$fHasSetterStateVara @ MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<StateVar MatrixMode>_N <MatrixMode>_N
:: HasSetter (StateVar MatrixMode) MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
StateVar MatrixMode -> MatrixMode -> m_aau7 ())))
@ IO
Control.Monad.IO.Class.$fMonadIOIO
matrixMode
(Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
(fromInteger @ GLsizei GHC.Int.$fNumInt32 0)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
loadIdentity
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Maybe Double)
@ ()
G.getTime
(\ (ds1_dbZI :: Maybe Double) ->
case ds1_dbZI of _ [Occ=Dead] {
Nothing ->
fail
@ IO
GHC.Base.$fMonadIO
@ ()
(GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#);
Just t_a8FS ->
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
((rotate
@ GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
(* @ GLdouble
GHC.Float.$fNumDouble
(realToFrac
@ Double
@ GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_a8FS)
(GHC.Types.D# 50.0##)))
(Graphics.Rendering.OpenGL.GL.Tensor.Vector3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
((renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_rc0T
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ GLdouble
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(vertex
@ (Vertex3 GLdouble)
$dVertex_rc0S
(case negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.6##)
of dt_XbB0 { GHC.Types.D# ipv_sc0f ->
case negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt1_XbB2 { GHC.Types.D# ipv1_sc0i ->
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ GLdouble
dt_XbB0
dt1_XbB2
(GHC.Types.D# 0.0##)
}
}))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_rc0T
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)
(GHC.Types.D# 0.0##)))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(vertex
@ (Vertex3 GLdouble)
$dVertex_rc0S
(case negate
@ GLdouble
GHC.Float.$fNumDouble
(GHC.Types.D# 0.4##)
of dt_XbB2
{ GHC.Types.D# ipv_sc0l ->
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ GLdouble
(GHC.Types.D# 0.6##)
dt_XbB2
(GHC.Types.D# 0.0##)
}))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(color
@ (Color3 GLdouble)
$dColor_rc0T
(OpenGL-3.0.0.1:Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.0##)
(GHC.Types.D# 1.0##)))
(vertex
@ (Vertex3 GLdouble)
$dVertex_rc0S
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ GLdouble
(GHC.Types.D# 0.0##)
(GHC.Types.D# 0.6##)
(GHC.Types.D# 0.0##)))))))))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.swapBuffers w_a86B)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
G.pollEvents
(mainLoop w_a86B))))
}))))))))
}))
end Rec }
-- RHS size: {terms: 19, types: 8, coercions: 0}
keyCallback :: G.KeyCallback
[GblId, Arity=5, Str=DmdType]
keyCallback =
\ (window_a7bM :: G.Window)
(key_a7bN :: G.Key)
_ [Occ=Dead]
(action_a7bP :: G.KeyState)
_ [Occ=Dead] ->
(when
@ IO
GHC.Base.$fApplicativeIO
(&&
(==
@ G.Key
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.$fEqKey
key_a7bN
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.Key'Escape)
(==
@ G.KeyState
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.$fEqKeyState
action_a7bP
GLFW-b-1.4.7.3:Graphics.UI.GLFW.Types.KeyState'Pressed)))
(G.setWindowShouldClose window_a7bM GHC.Types.True)
-- RHS size: {terms: 64, types: 50, coercions: 0}
main :: IO ()
[GblId, Str=DmdType]
main =
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.setErrorCallback
(GHC.Base.Just @ G.ErrorCallback errorCallback))
(>>=
@ IO
GHC.Base.$fMonadIO
@ Bool
@ ()
G.init
(\ (successfulInit_a86y :: Bool) ->
(\ (trueRes_a79Q [OS=OneShot] :: IO ()) ->
case successfulInit_a86y of _ [Occ=Dead] {
False -> exitFailure @ ();
True -> trueRes_a79Q
})
(>>=
@ IO
GHC.Base.$fMonadIO
@ (Maybe G.Window)
@ ()
(G.createWindow
(GHC.Types.I# 640#)
(GHC.Types.I# 480#)
(GHC.CString.unpackCString# "Simple example, haskell style"#)
(GHC.Base.Nothing @ G.Monitor)
(GHC.Base.Nothing @ G.Window))
(\ (mw_a86z :: Maybe G.Window) ->
(let {
nothingRes_a79V :: IO ()
[LclId, Str=DmdType]
nothingRes_a79V =
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
G.terminate
(exitFailure @ ()) } in
\ (f_a79W [OS=OneShot] :: G.Window -> IO ()) ->
case mw_a86z of _ [Occ=Dead] {
Nothing -> nothingRes_a79V;
Just x_a79X -> f_a79W x_a79X
})
(\ (window_a86A :: G.Window) ->
>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.makeContextCurrent mw_a86z)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.setKeyCallback
window_a86A (GHC.Base.Just @ G.KeyCallback keyCallback))
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(mainLoop window_a86A)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
(G.destroyWindow window_a86A)
(>>
@ IO
GHC.Base.$fMonadIO
@ ()
@ ()
G.terminate
(exitSuccess @ ()))))))))))
-- RHS size: {terms: 2, types: 1, coercions: 0}
:Main.main :: IO ()
[GblId, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () main
==================== FINAL INTERFACE ====================
interface main@main:Main [hpc] 80120160228
interface hash: 4ffb16b5494028ab63b3b119b677e02f
ABI hash: 2f949f86ecf7df847daedc1c85063ab4
export-list hash: 59ca1ed2d0bf47709243d06ef8999fc1
orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e
flag hash: 8e18ede7b917a48c56115be62a24fbeb
sig of: Nothing
used TH splices: False
where
exports:
Main.bool
Main.errorCallback
Main.keyCallback
Main.main
Main.mainLoop
Main.maybe'
Main.unless'
module dependencies:
package dependencies: GLFW-b-1.4.7.3@GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2
GLURaw-2.0.0.1@GLURaw-2.0.0.1-JWeSFAFA6173PGUSqSBiHE
ObjectName-1.1.0.1@ObjectName-1.1.0.1-1039jwjM1tGBCpHPmoZU6B
OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf
OpenGLRaw-3.1.0.0@OpenGLRaw-3.1.0.0-CDJrODBCFss2dZuvkKgGgs
StateVar-1.1.0.3@StateVar-1.1.0.3-6EPAMnRk4ch63iwD17RTYV
array-0.5.1.0@array-0.5.1.0 base-4.9.0.0
binary-0.8.2.0@binary-0.8.2.0
bindings-GLFW-3.1.1.4@bindings-GLFW-3.1.1.4-CO7HDrqm8gIDdpZu4KcqW8
bytestring-0.10.7.0@bytestring-0.10.7.0
containers-0.5.7.1@containers-0.5.7.1
deepseq-1.4.2.0@deepseq-1.4.2.0
fixed-0.2.1.1@fixed-0.2.1.1-21JkkJmr6h52cZo1o8cauA ghc-prim-0.5.0.0
half-0.2.2.3@half-0.2.2.3-BFHx0LiJemg6baNXrjGThF
integer-gmp-1.0.0.1 stm-2.4.4.1@stm-2.4.4.1-J0CYkiAk6CWEWFlKwm3sio
text-1.2.2.0@text-1.2.2.0-DNPL9j70xW29izEeMAP0sY
orphans: base-4.9.0.0:GHC.Base base-4.9.0.0:GHC.Float
binary-0.8.2.0@binary-0.8.2.0:Data.Binary.Generic
bytestring-0.10.7.0@bytestring-0.10.7.0:Data.ByteString.Builder
stm-2.4.4.1@stm-2.4.4.1-J0CYkiAk6CWEWFlKwm3sio:Control.Monad.STM
text-1.2.2.0@text-1.2.2.0-DNPL9j70xW29izEeMAP0sY:Data.Text
text-1.2.2.0@text-1.2.2.0-DNPL9j70xW29izEeMAP0sY:Data.Text.Show
family instance modules: GLFW-b-1.4.7.3@GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2:Graphics.UI.GLFW.Types
base-4.9.0.0:Control.Applicative base-4.9.0.0:Data.Complex
base-4.9.0.0:Data.Either base-4.9.0.0:Data.Functor.Const
base-4.9.0.0:Data.Functor.Identity base-4.9.0.0:Data.List.NonEmpty
base-4.9.0.0:Data.Monoid base-4.9.0.0:Data.Semigroup
base-4.9.0.0:Data.Type.Equality base-4.9.0.0:Data.Version
base-4.9.0.0:Data.Void base-4.9.0.0:GHC.Exts
base-4.9.0.0:GHC.Generics base-4.9.0.0:GHC.IO.Exception
base-4.9.0.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
text-1.2.2.0@text-1.2.2.0-DNPL9j70xW29izEeMAP0sY:Data.Text
import -/ GLFW-b-1.4.7.3@GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2:Graphics.UI.GLFW 9ca16f68bfbee0ee1eccafd8c50b812d
import -/ GLFW-b-1.4.7.3@GLFW-b-1.4.7.3-66thIuD7JdR47cL2oP7jy2:Graphics.UI.GLFW.Types aa8fb2a9f6f7dbd1260f014ed6554c5d
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL 029a7da07655bf63b76725f774e9273d
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.BeginEnd dccac98fe0e798e96936b809d3037362
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.CoordTrans 31bb173003c1e36b823c91bb77bf7756
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.Framebuffer 030b9b3139821553cd1e7ed1fe6ac1f3
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.PrimitiveMode 31e4cda08e735a82a117317d831f0bc6
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.Tensor 8de2573241f5d8a8c85a44339234ce72
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.VertexAttributes 30d1cfc844abad5164844c2bba9403ec
import -/ OpenGL-3.0.0.1@OpenGL-3.0.0.1-76VeiPRbveAzwQti0fuUf:Graphics.Rendering.OpenGL.GL.VertexSpec af8551e0b8679e1b070671450404c7b9
import -/ OpenGLRaw-3.1.0.0@OpenGLRaw-3.1.0.0-CDJrODBCFss2dZuvkKgGgs:Graphics.GL.Types 5dd7c6529ccba06d321a11fa1047c114
import -/ StateVar-1.1.0.3@StateVar-1.1.0.3-6EPAMnRk4ch63iwD17RTYV:Data.StateVar 3644d287f2e402d46acc08134457c00e
import -/ base-4.9.0.0:Control.Monad e0790542184d5501ce58d95641505f15
import -/ base-4.9.0.0:GHC.Base f34cfd1f66022a45074570d1cbd202b1
import -/ base-4.9.0.0:GHC.IO.Handle.FD 0318510d4f0eb183fad4b5c84b2ac0db
import -/ base-4.9.0.0:GHC.IO.Handle.Text 9a73e665034831e0538ddccf17780120
import -/ base-4.9.0.0:GHC.Num 53cf06fdbf4374f7f531301b8e254959
import -/ base-4.9.0.0:GHC.Real 8350d3c151411198e6fadbf314f41439
import -/ base-4.9.0.0:Prelude df479fda9c9dbb4ea92d5751cdd89afa
import -/ base-4.9.0.0:System.Exit 611a648d5547a72d809c05981f5c9b23
import -/ base-4.9.0.0:System.IO 378ff55cbcb1c7446862fdb0e8d94b79
import -/ ghc-prim-0.5.0.0:GHC.Classes 891137013bc0b30b16accd3cc4a5ba45
import -/ ghc-prim-0.5.0.0:GHC.Types dd353765ec948307ea8cc8fee0fd9050
83f529351410271e83fed952c86159e1
$trModule :: GHC.Types.Module
9ebb604be5f90b0956f57e3593d04e05
bool :: GHC.Types.Bool -> a -> a -> a
212b3f7d1b4d577459a0acc894927c5a
errorCallback :: Graphics.UI.GLFW.ErrorCallback
7d71f63fc968cfe8b6e9e6f073fd14af
keyCallback :: Graphics.UI.GLFW.KeyCallback
0d166822e21f7182ece26123ea2cf341
main :: GHC.Types.IO ()
49e1dcb1f3d9449208ee412c8e75ed6f
mainLoop :: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
1794d985c722be9b9f6901d1e37bc56d
maybe' :: GHC.Base.Maybe a -> b -> (a -> b) -> b
dd0ee7c755e1cc5310d0d104d1257f48
unless' :: GHC.Base.Monad m => m GHC.Types.Bool -> m () -> m ()
vectorised variables:
vectorised tycons:
vectorised reused tycons:
parallel variables:
parallel tycons:
trusted: none
require own pkg trusted: False
*** CorePrep:
==================== CorePrep ====================
Result size of CorePrep = {terms: 637, types: 524, coercions: 16}
-- RHS size: {terms: 10, types: 6, coercions: 0}
Main.bool
:: forall a_a79N. GHC.Types.Bool -> a_a79N -> a_a79N -> a_a79N
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
Main.bool =
\ (@ a2_aasj)
(b_sc0V :: GHC.Types.Bool)
(falseRes_sc0W :: a2_aasj)
(trueRes_sc0X :: a2_aasj) ->
case b_sc0V of _ [Occ=Dead] {
GHC.Types.False -> falseRes_sc0W;
GHC.Types.True -> trueRes_sc0X
}
-- RHS size: {terms: 19, types: 23, coercions: 0}
Main.unless'
:: forall (m_a79M :: * -> *).
GHC.Base.Monad m_a79M =>
m_a79M GHC.Types.Bool -> m_a79M () -> m_a79M ()
[GblId, Arity=3, Str=DmdType, Unf=OtherCon []]
Main.unless' =
\ (@ (m_aas5 :: * -> *))
($dMonad_sc0Z :: GHC.Base.Monad m_aas5)
(eta_sc10 :: m_aas5 GHC.Types.Bool)
(eta1_sc11 :: m_aas5 ()) ->
let {
$dApplicative_sc12 [Occ=OnceL] :: GHC.Base.Applicative m_aas5
[LclId, Str=DmdType]
$dApplicative_sc12 = GHC.Base.$p1Monad @ m_aas5 $dMonad_sc0Z } in
let {
sat_sc15 [Occ=Once] :: GHC.Types.Bool -> m_aas5 ()
[LclId, Str=DmdType]
sat_sc15 =
\ (b_sc14 :: GHC.Types.Bool) ->
Control.Monad.unless
@ m_aas5 $dApplicative_sc12 b_sc14 eta1_sc11 } in
let {
sat_sc13 [Occ=Once] :: m_aas5 GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc13 = eta_sc10 } in
GHC.Base.>>=
@ m_aas5 $dMonad_sc0Z @ GHC.Types.Bool @ () sat_sc13 sat_sc15
-- RHS size: {terms: 12, types: 12, coercions: 0}
Main.maybe'
:: forall a_a79K b_a79L.
GHC.Base.Maybe a_a79K -> b_a79L -> (a_a79K -> b_a79L) -> b_a79L
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
Main.maybe' =
\ (@ a2_aaro)
(@ b_aarp)
(m_sc16 :: GHC.Base.Maybe a2_aaro)
(nothingRes_sc17 :: b_aarp)
(f_sc18 :: a2_aaro -> b_aarp) ->
case m_sc16 of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_sc17;
GHC.Base.Just x_sc1a -> f_sc18 x_sc1a
}
-- RHS size: {terms: 5, types: 2, coercions: 0}
Main.errorCallback :: Graphics.UI.GLFW.ErrorCallback
[GblId, Arity=2, Str=DmdType, Unf=OtherCon []]
Main.errorCallback =
\ _ [Occ=Dead] (description_sc1c :: GHC.Base.String) ->
GHC.IO.Handle.Text.hPutStrLn
GHC.IO.Handle.FD.stderr description_sc1c
-- RHS size: {terms: 2, types: 0, coercions: 0}
a_rbZn :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
a_rbZn = GHC.Types.TrNameS "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0}
a1_rc0R :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
a1_rc0R = GHC.Types.TrNameS "Main"#
-- RHS size: {terms: 3, types: 0, coercions: 0}
Main.$trModule :: GHC.Types.Module
[GblId, Caf=NoCafRefs, Str=DmdType, Unf=OtherCon []]
Main.$trModule = GHC.Types.Module a_rbZn a1_rc0R
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dVertex_rc0S
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Vertex
(Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
[GblId, Str=DmdType]
$dVertex_rc0S =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
-- RHS size: {terms: 2, types: 1, coercions: 0}
$dColor_rc0T
:: Graphics.Rendering.OpenGL.GL.VertexSpec.Color
(Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
[GblId, Str=DmdType]
$dColor_rc0T =
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
Rec {
-- RHS size: {terms: 417, types: 301, coercions: 16}
Main.mainLoop [Occ=LoopBreaker]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[GblId, Arity=1, Str=DmdType, Unf=OtherCon []]
Main.mainLoop =
\ (w_sc1d :: Graphics.UI.GLFW.Types.Window) ->
let {
sat_sc3b [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3b =
let {
sat_sc3a [Occ=Once]
:: (GHC.Types.Int, GHC.Types.Int) -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3a =
\ (ds_sc1h [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) ->
case ds_sc1h of _ [Occ=Dead] { (width_sc1j, height_sc1k) ->
let {
ratio_sc1l :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
ratio_sc1l =
let {
sat_sc1n [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1n =
GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_sc1k } in
let {
sat_sc1m [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1m =
GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_sc1j } in
GHC.Real./
@ Graphics.GL.Types.GLdouble
GHC.Float.$fFractionalDouble
sat_sc1m
sat_sc1n } in
let {
sat_sc39 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc39 =
let {
sat_sc38 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc38 =
let {
sat_sc37 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc37 =
let {
sat_sc36 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc36 =
let {
sat_sc35 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc35 =
let {
sat_sc34 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc34 =
let {
sat_sc33 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc33 =
let {
sat_sc32 [Occ=Once]
:: GHC.Base.Maybe GHC.Types.Double -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc32 =
\ (ds1_sc22 [Occ=Once!]
:: GHC.Base.Maybe GHC.Types.Double) ->
case ds1_sc22 of _ [Occ=Dead] {
GHC.Base.Nothing ->
let {
sat_sc24 [Occ=Once] :: GHC.Base.String
[LclId, Str=DmdType]
sat_sc24 =
GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"# } in
GHC.Base.fail
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
sat_sc24;
GHC.Base.Just t_sc25 ->
let {
sat_sc31 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc31 =
let {
sat_sc30 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc30 =
let {
sat_sc2Z [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2Z =
let {
sat_sc2Y [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2Y =
Main.mainLoop w_sc1d } in
let {
sat_sc2X [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2X =
Graphics.UI.GLFW.pollEvents } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2X
sat_sc2Y } in
let {
sat_sc2W [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2W =
Graphics.UI.GLFW.swapBuffers
w_sc1d } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2W
sat_sc2Z } in
let {
sat_sc2V [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2V =
let {
sat_sc2U [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2U =
let {
sat_sc2T [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2T =
let {
sat_sc2S [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2S =
let {
sat_sc2R [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2R =
let {
sat_sc2Q [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2Q =
let {
sat_sc2P [Occ=Once]
:: GHC.Types.IO
()
[LclId,
Str=DmdType]
sat_sc2P =
let {
sat_sc2N [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2N =
GHC.Types.D#
0.0## } in
let {
sat_sc2M [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2M =
GHC.Types.D#
0.6## } in
let {
sat_sc2L [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2L =
GHC.Types.D#
0.0## } in
let {
sat_sc2O [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2O =
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
sat_sc2L
sat_sc2M
sat_sc2N } in
Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_rc0S
sat_sc2O } in
let {
sat_sc2K [Occ=Once]
:: GHC.Types.IO
()
[LclId,
Str=DmdType]
sat_sc2K =
let {
sat_sc2I [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2I =
GHC.Types.D#
1.0## } in
let {
sat_sc2H [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2H =
GHC.Types.D#
0.0## } in
let {
sat_sc2G [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2G =
GHC.Types.D#
0.0## } in
let {
sat_sc2J [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2J =
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
sat_sc2G
sat_sc2H
sat_sc2I } in
Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_rc0T
sat_sc2J } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2K
sat_sc2P } in
let {
sat_sc2F [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2F =
let {
sat_sc2E [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2E =
case let {
sat_sc2z [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2z =
GHC.Types.D#
0.4## } in
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc2z
of dt_sc2A
{ GHC.Types.D# _ [Occ=Dead] ->
let {
sat_sc2D [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2D =
GHC.Types.D#
0.0## } in
let {
sat_sc2C [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2C =
GHC.Types.D#
0.6## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
sat_sc2C
dt_sc2A
sat_sc2D
} } in
Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_rc0S
sat_sc2E } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2F
sat_sc2Q } in
let {
sat_sc2y [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2y =
let {
sat_sc2w [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2w =
GHC.Types.D#
0.0## } in
let {
sat_sc2v [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2v =
GHC.Types.D#
1.0## } in
let {
sat_sc2u [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2u =
GHC.Types.D#
0.0## } in
let {
sat_sc2x [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2x =
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
sat_sc2u
sat_sc2v
sat_sc2w } in
Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_rc0T
sat_sc2x } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2y
sat_sc2R } in
let {
sat_sc2t [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2t =
let {
sat_sc2s [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2s =
case let {
sat_sc2l [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2l =
GHC.Types.D#
0.6## } in
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc2l
of dt_sc2m
{ GHC.Types.D# _ [Occ=Dead] ->
case let {
sat_sc2o [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId,
Str=DmdType]
sat_sc2o =
GHC.Types.D#
0.4## } in
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc2o
of dt1_sc2p
{ GHC.Types.D# _ [Occ=Dead] ->
let {
sat_sc2r [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2r =
GHC.Types.D#
0.0## } in
Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
@ Graphics.GL.Types.GLdouble
dt_sc2m
dt1_sc2p
sat_sc2r
}
} } in
Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
@ (Graphics.Rendering.OpenGL.GL.Tensor.Vertex3
Graphics.GL.Types.GLdouble)
$dVertex_rc0S
sat_sc2s } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2t
sat_sc2S } in
let {
sat_sc2k [Occ=Once]
:: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2k =
let {
sat_sc2i [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2i =
GHC.Types.D# 0.0## } in
let {
sat_sc2h [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2h =
GHC.Types.D# 0.0## } in
let {
sat_sc2g [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2g =
GHC.Types.D# 1.0## } in
let {
sat_sc2j [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2j =
Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
@ Graphics.GL.Types.GLdouble
sat_sc2g
sat_sc2h
sat_sc2i } in
Graphics.Rendering.OpenGL.GL.VertexSpec.color
@ (Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3
Graphics.GL.Types.GLdouble)
$dColor_rc0T
sat_sc2j } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2k
sat_sc2T } in
case Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles
of sat_sc2f { __DEFAULT ->
sat_sc2f sat_sc2U
} } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2V
sat_sc30 } in
let {
sat_sc2e [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc2e =
let {
sat_sc2c [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2c = GHC.Types.D# 1.0## } in
let {
sat_sc2b [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2b = GHC.Types.D# 0.0## } in
let {
sat_sc2a [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2a = GHC.Types.D# 0.0## } in
let {
sat_sc2d [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.Tensor.Vector3
Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc2d =
Graphics.Rendering.OpenGL.GL.Tensor.Vector3
@ Graphics.GL.Types.GLdouble
sat_sc2a
sat_sc2b
sat_sc2c } in
case let {
sat_sc28 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc28 =
let {
sat_sc27 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc27 =
GHC.Types.D# 50.0## } in
let {
sat_sc26 [Occ=Once]
:: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc26 =
GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_sc25 } in
GHC.Num.*
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc26
sat_sc27 } in
Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
@ Graphics.GL.Types.GLdouble
Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
sat_sc28
of sat_sc29 { __DEFAULT ->
sat_sc29 sat_sc2d
} } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc2e
sat_sc31
} } in
let {
sat_sc21 [Occ=Once]
:: GHC.Types.IO (GHC.Base.Maybe GHC.Types.Double)
[LclId, Str=DmdType]
sat_sc21 = Graphics.UI.GLFW.getTime } in
GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe GHC.Types.Double)
@ ()
sat_sc21
sat_sc32 } in
let {
sat_sc20 [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc20 =
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc20
sat_sc33 } in
let {
sat_sc1Z [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1Z =
let {
sat_sc1Y [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
[LclId, Str=DmdType]
sat_sc1Y =
let {
sat_sc1X [Occ=Once] :: Graphics.GL.Types.GLsizei
[LclId, Str=DmdType]
sat_sc1X =
let {
sat_sc1W [Occ=Once] :: GHC.Integer.Type.Integer
[LclId, Str=DmdType]
sat_sc1W = GHC.Integer.Type.S# 0# } in
GHC.Num.fromInteger
@ Graphics.GL.Types.GLsizei
GHC.Int.$fNumInt32
sat_sc1W } in
Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview
sat_sc1X } in
((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
sat_sc1Y } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc1Z
sat_sc34 } in
let {
sat_sc1V [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1V =
let {
sat_sc1U [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1U =
let {
sat_sc1T [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1T = GHC.Types.D# 1.0## } in
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc1T } in
let {
sat_sc1S [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1S = GHC.Types.D# 1.0## } in
let {
sat_sc1R [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1R = GHC.Types.D# 1.0## } in
let {
sat_sc1Q [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1Q =
let {
sat_sc1P [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1P = GHC.Types.D# 1.0## } in
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
sat_sc1P } in
let {
sat_sc1O [Occ=Once] :: Graphics.GL.Types.GLdouble
[LclId, Str=DmdType]
sat_sc1O =
GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
ratio_sc1l } in
Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
sat_sc1O ratio_sc1l sat_sc1Q sat_sc1R sat_sc1S sat_sc1U } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc1V sat_sc35 } in
let {
sat_sc1N [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1N =
Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc1N sat_sc36 } in
let {
sat_sc1M [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1M =
((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc1M sat_sc37 } in
let {
sat_sc1L [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1L =
let {
sat_sc1K [Occ=Once]
:: [Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer]
[LclId, Str=DmdType]
sat_sc1K =
GHC.Types.:
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer
Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
(GHC.Types.[]
@ Graphics.Rendering.OpenGL.GL.Framebuffer.ClearBuffer) } in
Graphics.Rendering.OpenGL.GL.Framebuffer.clear sat_sc1K } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc1L sat_sc38 } in
let {
sat_sc1J [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc1J =
let {
sat_sc1H [Occ=Once] :: Graphics.Rendering.OpenGL.GL.CoordTrans.Size
[LclId, Str=DmdType]
sat_sc1H =
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_sc1j
of _ [Occ=Dead] { GHC.Int.I32# dt1_sc1E [Occ=Once] ->
case GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_sc1k
of _ [Occ=Dead] { GHC.Int.I32# dt3_sc1G [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Size dt1_sc1E dt3_sc1G
}
} } in
let {
sat_sc1C [Occ=Once]
:: Graphics.Rendering.OpenGL.GL.CoordTrans.Position
[LclId, Str=DmdType]
sat_sc1C =
let {
sat_sc1w [Occ=Once] :: GHC.Integer.Type.Integer
[LclId, Str=DmdType]
sat_sc1w = GHC.Integer.Type.S# 0# } in
case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 sat_sc1w
of _ [Occ=Dead] { GHC.Int.I32# dt1_sc1y [Occ=Once] ->
let {
sat_sc1z [Occ=Once] :: GHC.Integer.Type.Integer
[LclId, Str=DmdType]
sat_sc1z = GHC.Integer.Type.S# 0# } in
case GHC.Num.fromInteger
@ Graphics.GL.Types.GLint GHC.Int.$fNumInt32 sat_sc1z
of _ [Occ=Dead] { GHC.Int.I32# dt3_sc1B [Occ=Once] ->
Graphics.Rendering.OpenGL.GL.CoordTrans.Position dt1_sc1y dt3_sc1B
}
} } in
let {
sat_sc1I [Occ=Once]
:: (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
[LclId, Str=DmdType]
sat_sc1I = (sat_sc1C, sat_sc1H) } in
((Data.StateVar.$fHasSetterStateVara
@ (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
<(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size))
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO m_aau7 =>
Data.StateVar.StateVar
(Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> (Graphics.Rendering.OpenGL.GL.CoordTrans.Position,
Graphics.Rendering.OpenGL.GL.CoordTrans.Size)
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
sat_sc1I } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc1J sat_sc39
} } in
let {
sat_sc1g [Occ=Once] :: GHC.Types.IO (GHC.Types.Int, GHC.Types.Int)
[LclId, Str=DmdType]
sat_sc1g = Graphics.UI.GLFW.getFramebufferSize w_sc1d } in
GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Types.Int, GHC.Types.Int)
@ ()
sat_sc1g
sat_sc3a } in
case let {
sat_sc1e [Occ=Once] :: GHC.Types.IO GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc1e = Graphics.UI.GLFW.windowShouldClose w_sc1d } in
Main.unless' @ GHC.Types.IO GHC.Base.$fMonadIO sat_sc1e
of sat_sc1f { __DEFAULT ->
sat_sc1f sat_sc3b
}
end Rec }
-- RHS size: {terms: 30, types: 17, coercions: 0}
Main.keyCallback :: Graphics.UI.GLFW.KeyCallback
[GblId, Arity=5, Str=DmdType, Unf=OtherCon []]
Main.keyCallback =
\ (window_sc3c :: Graphics.UI.GLFW.Types.Window)
(key_sc3d :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_sc3f :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] ->
let {
sat_sc3l [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3l =
Graphics.UI.GLFW.setWindowShouldClose
window_sc3c GHC.Types.True } in
case let {
sat_sc3j [Occ=Once] :: GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc3j =
let {
sat_sc3i [Occ=Once] :: GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc3i =
GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
Graphics.UI.GLFW.Types.$fEqKeyState
action_sc3f
Graphics.UI.GLFW.Types.KeyState'Pressed } in
let {
sat_sc3h [Occ=Once] :: GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc3h =
GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
Graphics.UI.GLFW.Types.$fEqKey
key_sc3d
Graphics.UI.GLFW.Types.Key'Escape } in
GHC.Classes.&& sat_sc3h sat_sc3i } in
GHC.Base.when @ GHC.Types.IO GHC.Base.$fApplicativeIO sat_sc3j
of sat_sc3k { __DEFAULT ->
sat_sc3k sat_sc3l
}
-- RHS size: {terms: 118, types: 114, coercions: 0}
Main.main :: GHC.Types.IO ()
[GblId, Str=DmdType]
Main.main =
let {
sat_sc3U [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3U =
let {
sat_sc3T [Occ=Once] :: GHC.Types.Bool -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3T =
\ (successfulInit_sc3p :: GHC.Types.Bool) ->
let {
sat_sc3S [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3S =
let {
sat_sc3R [Occ=Once]
:: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3R =
\ (mw_sc3y :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) ->
let {
sat_sc3Q [Occ=Once]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3Q =
\ (window_sc3F :: Graphics.UI.GLFW.Types.Window) ->
let {
sat_sc3P [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3P =
let {
sat_sc3O [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3O =
let {
sat_sc3N [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3N =
let {
sat_sc3M [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3M =
let {
sat_sc3L [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3L = Graphics.UI.GLFW.terminate } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc3L
(System.Exit.exitSuccess @ ()) } in
let {
sat_sc3K [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3K = Graphics.UI.GLFW.destroyWindow window_sc3F } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc3K
sat_sc3M } in
let {
sat_sc3J [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3J = Main.mainLoop window_sc3F } in
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
sat_sc3J
sat_sc3N } in
let {
sat_sc3I [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3I =
let {
sat_sc3H [Occ=Once]
:: GHC.Base.Maybe Graphics.UI.GLFW.KeyCallback
[LclId, Str=DmdType]
sat_sc3H =
GHC.Base.Just
@ Graphics.UI.GLFW.KeyCallback Main.keyCallback } in
Graphics.UI.GLFW.setKeyCallback window_sc3F sat_sc3H } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc3I sat_sc3O } in
let {
sat_sc3G [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3G = Graphics.UI.GLFW.makeContextCurrent mw_sc3y } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc3G sat_sc3P } in
case let {
nothingRes_sc3z :: GHC.Types.IO ()
[LclId, Str=DmdType]
nothingRes_sc3z =
GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ()) } in
let {
sat_sc3D [Occ=Once]
:: (Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ())
-> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3D =
\ (f_sc3A [OS=OneShot]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()) ->
case mw_sc3y of _ [Occ=Dead] {
GHC.Base.Nothing -> nothingRes_sc3z;
GHC.Base.Just x_sc3C -> f_sc3A x_sc3C
} } in
sat_sc3D
of sat_sc3E { __DEFAULT ->
sat_sc3E sat_sc3Q
} } in
let {
sat_sc3x [Occ=Once]
:: GHC.Types.IO (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
[LclId, Str=DmdType]
sat_sc3x =
let {
sat_sc3w [Occ=Once] :: GHC.Base.String
[LclId, Str=DmdType]
sat_sc3w =
GHC.CString.unpackCString# "Simple example, haskell style"# } in
let {
sat_sc3v [Occ=Once] :: GHC.Types.Int
[LclId, Str=DmdType]
sat_sc3v = GHC.Types.I# 480# } in
let {
sat_sc3u [Occ=Once] :: GHC.Types.Int
[LclId, Str=DmdType]
sat_sc3u = GHC.Types.I# 640# } in
Graphics.UI.GLFW.createWindow
sat_sc3u
sat_sc3v
sat_sc3w
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Monitor)
(GHC.Base.Nothing @ Graphics.UI.GLFW.Types.Window) } in
GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ (GHC.Base.Maybe Graphics.UI.GLFW.Types.Window)
@ ()
sat_sc3x
sat_sc3R } in
case let {
sat_sc3s [Occ=Once] :: GHC.Types.IO () -> GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3s =
\ (trueRes_sc3q [OS=OneShot] :: GHC.Types.IO ()) ->
case successfulInit_sc3p of _ [Occ=Dead] {
GHC.Types.False -> System.Exit.exitFailure @ ();
GHC.Types.True -> trueRes_sc3q
} } in
sat_sc3s
of sat_sc3t { __DEFAULT ->
sat_sc3t sat_sc3S
} } in
let {
sat_sc3o [Occ=Once] :: GHC.Types.IO GHC.Types.Bool
[LclId, Str=DmdType]
sat_sc3o = Graphics.UI.GLFW.init } in
GHC.Base.>>=
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ GHC.Types.Bool
@ ()
sat_sc3o
sat_sc3T } in
let {
sat_sc3n [Occ=Once] :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_sc3n =
let {
sat_sc3m [Occ=Once]
:: GHC.Base.Maybe Graphics.UI.GLFW.ErrorCallback
[LclId, Str=DmdType]
sat_sc3m =
GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback } in
Graphics.UI.GLFW.setErrorCallback sat_sc3m } in
GHC.Base.>>
@ GHC.Types.IO GHC.Base.$fMonadIO @ () @ () sat_sc3n sat_sc3U
-- RHS size: {terms: 2, types: 1, coercions: 0}
:Main.main :: GHC.Types.IO ()
[GblId, Str=DmdType]
:Main.main = GHC.TopHandler.runMainIO @ () Main.main
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO Main.bool#3 []:
\ (@ a2_aasj)
(b_sc0V :: GHC.Types.Bool)
(falseRes_sc0W :: a2_aasj)
(trueRes_sc0X :: a2_aasj) -> ...
bitmap: 3 [0]
BRK_FUN 54 $1L1 <cc>
PUSH_ALTS
ProtoBCO wild_sc0Y#0 []:
{ GHC.Types.False -> falseRes_sc0W
; GHC.Types.True -> trueRes_sc0X }
bitmap: 3 [0]
TESTLT_P 1 __1
PUSH_L 4
SLIDE 1 6
ENTER
__1:
PUSH_L 5
SLIDE 1 6
ENTER
PUSH_L 2
ENTER
ProtoBCO Main.unless'#3 []:
\ (@ (m_aas5 :: * -> *))
($dMonad_sc0Z :: GHC.Base.Monad m_aas5)
(eta_sc10 :: m_aas5 GHC.Types.Bool)
(eta1_sc11 :: m_aas5 ()) -> ...
bitmap: 3 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO $dApplicative_sc12#1 []:
GHC.Base.$p1Monad @ m_aas5 $dMonad_sc0Z
bitmap: 1 [0]
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.$p1Monad
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP_NOUPD 4
PUSH_LLL 1 4 3
PUSH_L 5
PUSH_BCO
ProtoBCO ticked_yc3V#4 []:
break<12>(eta_sc10,eta1_sc11) let sat_sc15 = ... in ...
bitmap: 4 [0]
BRK_FUN 12 $1L1 <cc>
ALLOC_PAP 1 2
PUSH_LL 4 3
PUSH_BCO
ProtoBCO sat_sc15#3 []:
\ (b_sc14 :: GHC.Types.Bool) -> ...
bitmap: 3 [0]
BRK_FUN 11 $1L1 <cc>
PUSH_LLL 0 2 1
PUSH_APPLY_PPP
PUSH_G Control.Monad.unless
SLIDE 5 3
ENTER
MKPAP 2 words, 3 stkoff
ALLOC_AP 1
PUSH_L 3
PUSH_BCO
ProtoBCO sat_sc13#1 []:
break<10>(eta_sc10) eta_sc10
bitmap: 1 [0]
BRK_FUN 10 $1L1 <cc>
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LLL 1 0 2
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>=
SLIDE 5 6
ENTER
MKAP 4 words, 5 stkoff
PUSH_L 0
SLIDE 1 5
ENTER
ProtoBCO Main.maybe'#3 []:
\ (@ a2_aaro)
(@ b_aarp)
(m_sc16 :: GHC.Base.Maybe a2_aaro)
(nothingRes_sc17 :: b_aarp)
(f_sc18 :: a2_aaro -> b_aarp) -> ...
bitmap: 3 [0]
BRK_FUN 9 $1L1 <cc>
PUSH_ALTS
ProtoBCO wild_sc19#0 []:
{ GHC.Base.Nothing -> break<7>(nothingRes_sc17) nothingRes_sc17
; GHC.Base.Just x_sc1a -> break<8>(f_sc18,x_sc1a) f_sc18 x_sc1a }
bitmap: 3 [0]
TESTLT_P 1 __3
ALLOC_AP_NOUPD 1
PUSH_L 5
PUSH_BCO
ProtoBCO ticked_yc3W#1 []:
break<7>(nothingRes_sc17) nothingRes_sc17
bitmap: 1 [0]
BRK_FUN 7 $1L1 <cc>
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 7
ENTER
__3:
UNPACK 1
ALLOC_AP_NOUPD 2
PUSH_LL 7 1
PUSH_BCO
ProtoBCO ticked_yc3X#2 []:
break<8>(f_sc18,x_sc1a) f_sc18 x_sc1a
bitmap: 2 [0]
BRK_FUN 8 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_L 3
SLIDE 3 2
ENTER
MKAP 2 words, 3 stkoff
PUSH_L 0
SLIDE 1 8
ENTER
PUSH_L 2
ENTER
ProtoBCO Main.errorCallback#2 []:
\ _ [Occ=Dead] (description_sc1c :: GHC.Base.String) -> ...
bitmap: 2 [0]
BRK_FUN 6 $1L1 <cc>
PUSH_L 1
PUSH_G GHC.IO.Handle.FD.stderr
PUSH_APPLY_PP
PUSH_G GHC.IO.Handle.Text.hPutStrLn
SLIDE 4 2
ENTER
ProtoBCO a_rbZn#0 []:
GHC.Types.TrNameS "main"#
bitmap: 0 []
PUSH_UBX (1) "main"#
PACK GHC.Types.TrNameS 1
ENTER
ProtoBCO a1_rc0R#0 []:
GHC.Types.TrNameS "Main"#
bitmap: 0 []
PUSH_UBX (1) "Main"#
PACK GHC.Types.TrNameS 1
ENTER
ProtoBCO Main.$trModule#0 []:
GHC.Types.Module a_rbZn a1_rc0R
bitmap: 0 []
PUSH_G a1_rc0R
PUSH_G a_rbZn
PACK GHC.Types.Module 2
ENTER
ProtoBCO $dVertex_rc0S#0 []:
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
bitmap: 0 []
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexComponentDouble
PUSH_APPLY_P
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.$fVertexVertex3
ENTER
ProtoBCO $dColor_rc0T#0 []:
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
@ GHC.Types.Double
Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
bitmap: 0 []
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorComponentDouble
PUSH_APPLY_P
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.$fColorColor3
ENTER
ProtoBCO Main.mainLoop#1 []:
\ (w_sc1d :: Graphics.UI.GLFW.Types.Window) -> ...
bitmap: 1 [0]
BRK_FUN 53 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3b#1 []:
let sat_sc3a = ... in ...
bitmap: 1 [0]
ALLOC_PAP 1 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3a#2 []:
\ (ds_sc1h [Occ=Once!] :: (GHC.Types.Int, GHC.Types.Int)) -> ...
bitmap: 2 [0]
PUSH_ALTS
ProtoBCO wild_sc1i#0 []:
{ (,) width_sc1j height_sc1k -> let ratio_sc1l = ... in ... }
bitmap: 2 [0]
UNPACK 2
ALLOC_AP 2
PUSH_LL 1 2
PUSH_BCO
ProtoBCO ratio_sc1l#2 []:
break<18>(width_sc1j,height_sc1k) let sat_sc1n = ... in ...
bitmap: 2 [0]
BRK_FUN 18 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc1n#1 []:
break<17>(height_sc1k) GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
height_sc1k
bitmap: 1 [0]
BRK_FUN 17 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_G GHC.Real.$fIntegralInt
PUSH_APPLY_PPP
PUSH_G GHC.Real.fromIntegral
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 3
PUSH_BCO
ProtoBCO sat_sc1m#1 []:
break<16>(width_sc1j) GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLdouble
GHC.Real.$fIntegralInt
GHC.Float.$fNumDouble
width_sc1j
bitmap: 1 [0]
BRK_FUN 16 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_G GHC.Real.$fIntegralInt
PUSH_APPLY_PPP
PUSH_G GHC.Real.fromIntegral
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Float.$fFractionalDouble
PUSH_APPLY_PPP
PUSH_G GHC.Real./
SLIDE 5 4
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 2
PUSH_LL 7 1
PUSH_BCO
ProtoBCO sat_sc39#2 []:
let sat_sc38 = ... in ...
bitmap: 2 [0]
ALLOC_AP 2
PUSH_LL 2 1
PUSH_BCO
ProtoBCO sat_sc38#2 []:
let sat_sc37 = ... in ...
bitmap: 2 [0]
ALLOC_AP 2
PUSH_LL 2 1
PUSH_BCO
ProtoBCO sat_sc37#2 []:
let sat_sc36 = ... in ...
bitmap: 2 [0]
ALLOC_AP 2
PUSH_LL 2 1
PUSH_BCO
ProtoBCO sat_sc36#2 []:
let sat_sc35 = ... in ...
bitmap: 2 [0]
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc35#1 []:
let sat_sc34 = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc34#1 []:
let sat_sc33 = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc33#1 []:
let sat_sc32 = ... in ...
bitmap: 1 [0]
ALLOC_PAP 1 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc32#2 []:
\ (ds1_sc22 [Occ=Once!]
:: GHC.Base.Maybe
GHC.Types.Double) -> ...
bitmap: 2 [0]
PUSH_ALTS
ProtoBCO wild1_sc23#0 []:
{ GHC.Base.Nothing -> let sat_sc24 = ... in ...
; GHC.Base.Just t_sc25 -> let sat_sc31 = ... in ... }
bitmap: 2 [0]
TESTLT_P 1 __15
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc24#0 []:
GHC.CString.unpackCString#
"Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#
bitmap: 0 []
PUSH_UBX (1) "Pattern match failure in do expression at ExampleGLFW.hs:63:5-10"#
PUSH_APPLY_N
PUSH_G GHC.CString.unpackCString#
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PP
PUSH_G GHC.Base.fail
SLIDE 4 6
ENTER
__15:
UNPACK 1
ALLOC_AP 1
PUSH_L 5
PUSH_BCO
ProtoBCO sat_sc31#1 []:
let sat_sc30 = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc30#1 []:
let sat_sc2Z = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc2Z#1 []:
let sat_sc2Y = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc2Y#1 []:
break<52>(w_sc1d) Main.mainLoop
w_sc1d
bitmap: 1 [0]
BRK_FUN 52 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Main.mainLoop
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2X#0 []:
break<51>() Graphics.UI.GLFW.pollEvents
bitmap: 0 []
BRK_FUN 51 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.pollEvents
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc2W#1 []:
break<50>(w_sc1d) Graphics.UI.GLFW.swapBuffers
w_sc1d
bitmap: 1 [0]
BRK_FUN 50 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.swapBuffers
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2V#0 []:
break<49>() let sat_sc2U = ... in ...
bitmap: 0 []
BRK_FUN 49 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2U#0 []:
let sat_sc2T = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2T#0 []:
let sat_sc2S = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2S#0 []:
let sat_sc2R = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2R#0 []:
let sat_sc2Q = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2Q#0 []:
let sat_sc2P = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2P#0 []:
break<48>() let sat_sc2N = ... in ...
bitmap: 0 []
BRK_FUN 48 $1L1 <cc>
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.6##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_LLL 2 1 0
PACK Graphics.Rendering.OpenGL.GL.Tensor.Vertex3 3
PUSH_L 0
PUSH_G $dVertex_rc0S
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
SLIDE 4 4
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2K#0 []:
break<47>() let sat_sc2I = ... in ...
bitmap: 0 []
BRK_FUN 47 $1L1 <cc>
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_LLL 2 1 0
PACK Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3 3
PUSH_L 0
PUSH_G $dColor_rc0T
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.color
SLIDE 4 4
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2F#0 []:
break<46>() let sat_sc2E = ... in ...
bitmap: 0 []
BRK_FUN 46 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2E#0 []:
case of dt_sc2A
bitmap: 0 []
PUSH_ALTS
ProtoBCO dt_sc2A#0 []:
{ GHC.Types.D# ipv_sc2B -> let sat_sc2D = ... in ... }
bitmap: 0 []
UNPACK 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.6##
PACK GHC.Types.D# 1
PUSH_LLL 1 3 0
PACK Graphics.Rendering.OpenGL.GL.Tensor.Vertex3 3
SLIDE 1 6
ENTER
ALLOC_AP_NOUPD 0
PUSH_BCO
ProtoBCO ticked_yctk#0 []:
break<45>() let sat_sc2z = ... in ...
bitmap: 0 []
BRK_FUN 45 $1L1 <cc>
PUSH_UBX (1) 0.4##
PACK GHC.Types.D# 1
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G $dVertex_rc0S
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2y#0 []:
break<44>() let sat_sc2w = ... in ...
bitmap: 0 []
BRK_FUN 44 $1L1 <cc>
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_LLL 2 1 0
PACK Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3 3
PUSH_L 0
PUSH_G $dColor_rc0T
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.color
SLIDE 4 4
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2t#0 []:
break<43>() let sat_sc2s = ... in ...
bitmap: 0 []
BRK_FUN 43 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2s#0 []:
case of dt_sc2m
bitmap: 0 []
PUSH_ALTS
ProtoBCO dt_sc2m#0 []:
{ GHC.Types.D# ipv_sc2n -> case of dt1_sc2p }
bitmap: 0 []
UNPACK 1
PUSH_ALTS
ProtoBCO dt1_sc2p#0 []:
{ GHC.Types.D# ipv1_sc2q -> let sat_sc2r = ... in ... }
bitmap: 4 [13]
UNPACK 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_LLL 0 2 6
PACK Graphics.Rendering.OpenGL.GL.Tensor.Vertex3 3
SLIDE 1 9
ENTER
ALLOC_AP_NOUPD 0
PUSH_BCO
ProtoBCO ticked_ycti#0 []:
break<42>() let sat_sc2o = ... in ...
bitmap: 0 []
BRK_FUN 42 $1L1 <cc>
PUSH_UBX (1) 0.4##
PACK GHC.Types.D# 1
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
ALLOC_AP_NOUPD 0
PUSH_BCO
ProtoBCO ticked_yctj#0 []:
break<41>() let sat_sc2l = ... in ...
bitmap: 0 []
BRK_FUN 41 $1L1 <cc>
PUSH_UBX (1) 0.6##
PACK GHC.Types.D# 1
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G $dVertex_rc0S
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.vertex
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc2k#0 []:
break<40>() let sat_sc2i = ... in ...
bitmap: 0 []
BRK_FUN 40 $1L1 <cc>
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_LLL 2 1 0
PACK Graphics.Rendering.OpenGL.GL.VertexAttributes.Color3 3
PUSH_L 0
PUSH_G $dColor_rc0T
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.VertexSpec.color
SLIDE 4 4
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
PUSH_ALTS
ProtoBCO sat_sc2f#0 []:
{ __DEFAULT -> sat_sc2f
sat_sc2U }
bitmap: 1 [0]
JMP 10
__10:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 4
ENTER
ALLOC_AP_NOUPD 0
PUSH_BCO
ProtoBCO ticked_ycth#0 []:
break<39>() Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
@ ()
Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles
bitmap: 0 []
BRK_FUN 39 $1L1 <cc>
PUSH_G Graphics.Rendering.OpenGL.GL.PrimitiveMode.Triangles
PUSH_APPLY_P
PUSH_G Graphics.Rendering.OpenGL.GL.BeginEnd.renderPrimitive
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc2e#1 []:
break<38>(t_sc25) let sat_sc2c = ... in ...
bitmap: 1 [0]
BRK_FUN 38 $1L1 <cc>
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 0.0##
PACK GHC.Types.D# 1
PUSH_LLL 2 1 0
PACK Graphics.Rendering.OpenGL.GL.Tensor.Vector3 3
PUSH_ALTS
ProtoBCO sat_sc29#0 []:
{ __DEFAULT -> sat_sc29
sat_sc2d }
bitmap: 5 [0]
JMP 9
__9:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 8
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 7
PUSH_BCO
ProtoBCO ticked_yctg#1 []:
break<37>(t_sc25) let sat_sc28 = ... in ...
bitmap: 1 [0]
BRK_FUN 37 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc28#1 []:
break<36>(t_sc25) let sat_sc27 = ... in ...
bitmap: 1 [0]
BRK_FUN 36 $1L1 <cc>
PUSH_UBX (1) 50.0##
PACK GHC.Types.D# 1
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc26#1 []:
break<35>(t_sc25) GHC.Real.realToFrac
@ GHC.Types.Double
@ Graphics.GL.Types.GLdouble
GHC.Float.$fRealDouble
GHC.Float.$fFractionalDouble
t_sc25
bitmap: 1 [0]
BRK_FUN 35 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Float.$fFractionalDouble
PUSH_G GHC.Float.$fRealDouble
PUSH_APPLY_PPP
PUSH_G GHC.Real.realToFrac
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PPP
PUSH_G GHC.Num.*
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.$fMatrixComponentDouble
PUSH_APPLY_PP
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.rotate
SLIDE 4 2
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 8
ENTER
PUSH_L 3
ENTER
MKPAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc21#0 []:
break<34>() Graphics.UI.GLFW.getTime
bitmap: 0 []
BRK_FUN 34 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.getTime
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>=
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc20#0 []:
break<33>() Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
bitmap: 0 []
BRK_FUN 33 $1L1 <cc>
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1Z#0 []:
break<32>() let sat_sc1Y = ... in ...
bitmap: 0 []
BRK_FUN 32 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1Y#0 []:
break<31>() let sat_sc1X = ... in ...
bitmap: 0 []
BRK_FUN 31 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1X#0 []:
let sat_sc1W = ... in ...
bitmap: 0 []
PUSH_UBX (1) 0#
PACK GHC.Integer.Type.S# 1
PUSH_L 0
PUSH_G GHC.Int.$fNumInt32
PUSH_APPLY_PP
PUSH_G GHC.Num.fromInteger
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PACK Graphics.Rendering.OpenGL.GL.CoordTrans.Modelview 1
SLIDE 1 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
PUSH_G Control.Monad.IO.Class.$fMonadIOIO
PUSH_APPLY_PPP
PUSH_G Data.StateVar.$fHasSetterStateVara
SLIDE 5 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc1V#1 []:
break<30>(ratio_sc1l) let sat_sc1U = ... in ...
bitmap: 1 [0]
BRK_FUN 30 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1U#0 []:
break<29>() let sat_sc1T = ... in ...
bitmap: 0 []
BRK_FUN 29 $1L1 <cc>
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1Q#0 []:
break<28>() let sat_sc1P = ... in ...
bitmap: 0 []
BRK_FUN 28 $1L1 <cc>
PUSH_UBX (1) 1.0##
PACK GHC.Types.D# 1
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 1
PUSH_L 5
PUSH_BCO
ProtoBCO sat_sc1O#1 []:
break<27>(ratio_sc1l) GHC.Num.negate
@ Graphics.GL.Types.GLdouble
GHC.Float.$fNumDouble
ratio_sc1l
bitmap: 1 [0]
BRK_FUN 27 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Float.$fNumDouble
PUSH_APPLY_PP
PUSH_G GHC.Num.negate
SLIDE 4 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LLL 4 3 2
PUSH_LLL 4 8 3
PUSH_APPLY_PPPPPP
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.ortho
SLIDE 8 6
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 4
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1N#0 []:
break<26>() Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
bitmap: 0 []
BRK_FUN 26 $1L1 <cc>
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.loadIdentity
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 4
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1M#0 []:
break<25>() ((Data.StateVar.$fHasSetterStateVara
@ Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
`cast` (Data.StateVar.N:HasSetter[0]
<Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
<Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode>_N
:: Data.StateVar.HasSetter
(Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode)
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
~R# (forall (m_aau7 :: * -> *).
Control.Monad.IO.Class.MonadIO
m_aau7 =>
Data.StateVar.StateVar
Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> Graphics.Rendering.OpenGL.GL.CoordTrans.MatrixMode
-> m_aau7 ())))
@ GHC.Types.IO
Control.Monad.IO.Class.$fMonadIOIO
Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
Graphics.Rendering.OpenGL.GL.CoordTrans.Projection
bitmap: 0 []
BRK_FUN 25 $1L1 <cc>
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.Projection
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.matrixMode
PUSH_G Control.Monad.IO.Class.$fMonadIOIO
PUSH_APPLY_PPP
PUSH_G Data.StateVar.$fHasSetterStateVara
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 4
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1L#0 []:
break<24>() let sat_sc1K = ... in ...
bitmap: 0 []
BRK_FUN 24 $1L1 <cc>
PUSH_G GHC.Types.[]
PUSH_G Graphics.Rendering.OpenGL.GL.Framebuffer.ColorBuffer
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.Rendering.OpenGL.GL.Framebuffer.clear
SLIDE 3 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 4
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 2
PUSH_LL 3 4
PUSH_BCO
ProtoBCO sat_sc1J#2 []:
break<23>(width_sc1j,height_sc1k) let sat_sc1H = ... in ...
bitmap: 2 [0]
BRK_FUN 23 $1L1 <cc>
ALLOC_AP 2
PUSH_LL 2 1
PUSH_BCO
ProtoBCO sat_sc1H#2 []:
break<22>(width_sc1j,height_sc1k) case of dt_sc1D
bitmap: 2 [0]
BRK_FUN 22 $1L1 <cc>
PUSH_ALTS
ProtoBCO dt_sc1D#0 []:
{ GHC.Int.I32# dt1_sc1E -> case of dt2_sc1F }
bitmap: 2 [0]
UNPACK 1
PUSH_ALTS
ProtoBCO dt2_sc1F#0 []:
{ GHC.Int.I32# dt3_sc1G -> Graphics.Rendering.OpenGL.GL.CoordTrans.Size
dt1_sc1E dt3_sc1G }
bitmap: 6 [13]
UNPACK 1
PUSH_LL 0 4
PACK Graphics.Rendering.OpenGL.GL.CoordTrans.Size 2
SLIDE 1 10
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 7
PUSH_BCO
ProtoBCO ticked_ycte#1 []:
break<21>(height_sc1k) GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
height_sc1k
bitmap: 1 [0]
BRK_FUN 21 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Int.$fNumInt32
PUSH_G GHC.Real.$fIntegralInt
PUSH_APPLY_PPP
PUSH_G GHC.Real.fromIntegral
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 4
PUSH_BCO
ProtoBCO ticked_yctf#1 []:
break<20>(width_sc1j) GHC.Real.fromIntegral
@ GHC.Types.Int
@ Graphics.GL.Types.GLsizei
GHC.Real.$fIntegralInt
GHC.Int.$fNumInt32
width_sc1j
bitmap: 1 [0]
BRK_FUN 20 $1L1 <cc>
PUSH_L 0
PUSH_G GHC.Int.$fNumInt32
PUSH_G GHC.Real.$fIntegralInt
PUSH_APPLY_PPP
PUSH_G GHC.Real.fromIntegral
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 2 words, 3 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc1C#0 []:
break<19>() let sat_sc1w = ... in ...
bitmap: 0 []
BRK_FUN 19 $1L1 <cc>
PUSH_UBX (1) 0#
PACK GHC.Integer.Type.S# 1
PUSH_ALTS
ProtoBCO dt_sc1x#0 []:
{ GHC.Int.I32# dt1_sc1y -> let sat_sc1z = ... in ... }
bitmap: 1 [0]
UNPACK 1
PUSH_UBX (1) 0#
PACK GHC.Integer.Type.S# 1
PUSH_ALTS
ProtoBCO dt2_sc1A#0 []:
{ GHC.Int.I32# dt3_sc1B -> Graphics.Rendering.OpenGL.GL.CoordTrans.Position
dt1_sc1y dt3_sc1B }
bitmap: 6 [26]
UNPACK 1
PUSH_LL 0 5
PACK Graphics.Rendering.OpenGL.GL.CoordTrans.Position 2
SLIDE 1 10
ENTER
PUSH_L 2
PUSH_G GHC.Int.$fNumInt32
PUSH_APPLY_PP
PUSH_G GHC.Num.fromInteger
ENTER
PUSH_L 2
PUSH_G GHC.Int.$fNumInt32
PUSH_APPLY_PP
PUSH_G GHC.Num.fromInteger
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PACK (,) 2
PUSH_L 0
PUSH_G Graphics.Rendering.OpenGL.GL.CoordTrans.viewport
PUSH_G Control.Monad.IO.Class.$fMonadIOIO
PUSH_APPLY_PPP
PUSH_G Data.StateVar.$fHasSetterStateVara
SLIDE 5 5
ENTER
MKAP 2 words, 3 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 10
ENTER
PUSH_L 3
ENTER
MKPAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc1g#1 []:
break<15>(w_sc1d) Graphics.UI.GLFW.getFramebufferSize w_sc1d
bitmap: 1 [0]
BRK_FUN 15 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.getFramebufferSize
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>=
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
PUSH_ALTS
ProtoBCO sat_sc1f#0 []:
{ __DEFAULT -> sat_sc1f sat_sc3b }
bitmap: 2 [0]
JMP 4
__4:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 5
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 4
PUSH_BCO
ProtoBCO ticked_yctd#1 []:
break<14>(w_sc1d) let sat_sc1e = ... in ...
bitmap: 1 [0]
BRK_FUN 14 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc1e#1 []:
break<13>(w_sc1d) Graphics.UI.GLFW.windowShouldClose w_sc1d
bitmap: 1 [0]
BRK_FUN 13 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.windowShouldClose
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PP
PUSH_G Main.unless'
SLIDE 4 2
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
ProtoBCO Main.keyCallback#5 []:
\ (window_sc3c :: Graphics.UI.GLFW.Types.Window)
(key_sc3d :: Graphics.UI.GLFW.Types.Key)
_ [Occ=Dead]
(action_sc3f :: Graphics.UI.GLFW.Types.KeyState)
_ [Occ=Dead] -> ...
bitmap: 5 [0]
BRK_FUN 5 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3l#1 []:
break<4>(window_sc3c) Graphics.UI.GLFW.setWindowShouldClose
window_sc3c GHC.Types.True
bitmap: 1 [0]
BRK_FUN 4 $1L1 <cc>
PUSH_G GHC.Types.True
PUSH_L 1
PUSH_APPLY_PP
PUSH_G Graphics.UI.GLFW.setWindowShouldClose
SLIDE 4 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_ALTS
ProtoBCO sat_sc3k#0 []:
{ __DEFAULT -> sat_sc3k sat_sc3l }
bitmap: 6 [0]
JMP 17
__17:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 9
ENTER
ALLOC_AP_NOUPD 2
PUSH_LL 7 5
PUSH_BCO
ProtoBCO ticked_yctl#2 []:
break<3>(key_sc3d,action_sc3f) let sat_sc3j = ... in ...
bitmap: 2 [0]
BRK_FUN 3 $1L1 <cc>
ALLOC_AP 2
PUSH_LL 1 2
PUSH_BCO
ProtoBCO sat_sc3j#2 []:
break<2>(key_sc3d,action_sc3f) let sat_sc3i = ... in ...
bitmap: 2 [0]
BRK_FUN 2 $1L1 <cc>
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3i#1 []:
break<1>(action_sc3f) GHC.Classes.==
@ Graphics.UI.GLFW.Types.KeyState
Graphics.UI.GLFW.Types.$fEqKeyState
action_sc3f
Graphics.UI.GLFW.Types.KeyState'Pressed
bitmap: 1 [0]
BRK_FUN 1 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.Types.KeyState'Pressed
PUSH_L 1
PUSH_G Graphics.UI.GLFW.Types.$fEqKeyState
PUSH_APPLY_PPP
PUSH_G GHC.Classes.==
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 3
PUSH_BCO
ProtoBCO sat_sc3h#1 []:
break<0>(key_sc3d) GHC.Classes.==
@ Graphics.UI.GLFW.Types.Key
Graphics.UI.GLFW.Types.$fEqKey
key_sc3d
Graphics.UI.GLFW.Types.Key'Escape
bitmap: 1 [0]
BRK_FUN 0 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.Types.Key'Escape
PUSH_L 1
PUSH_G Graphics.UI.GLFW.Types.$fEqKey
PUSH_APPLY_PPP
PUSH_G GHC.Classes.==
SLIDE 5 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_APPLY_PP
PUSH_G GHC.Classes.&&
SLIDE 4 4
ENTER
MKAP 2 words, 3 stkoff
PUSH_L 0
PUSH_G GHC.Base.$fApplicativeIO
PUSH_APPLY_PP
PUSH_G GHC.Base.when
SLIDE 4 3
ENTER
MKAP 2 words, 3 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
ProtoBCO Main.main#0 []:
break<71>() let sat_sc3U = ... in ...
bitmap: 0 []
BRK_FUN 71 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3U#0 []:
let sat_sc3T = ... in ...
bitmap: 0 []
ALLOC_PAP 1 0
PUSH_BCO
ProtoBCO sat_sc3T#1 []:
\ (successfulInit_sc3p :: GHC.Types.Bool) -> ...
bitmap: 1 [0]
BRK_FUN 70 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3S#0 []:
let sat_sc3R = ... in ...
bitmap: 0 []
ALLOC_PAP 1 0
PUSH_BCO
ProtoBCO sat_sc3R#1 []:
\ (mw_sc3y :: GHC.Base.Maybe Graphics.UI.GLFW.Types.Window) -> ...
bitmap: 1 [0]
BRK_FUN 69 $1L1 <cc>
ALLOC_PAP 1 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3Q#2 []:
\ (window_sc3F :: Graphics.UI.GLFW.Types.Window) -> ...
bitmap: 2 [0]
BRK_FUN 68 $1L1 <cc>
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc3P#1 []:
let sat_sc3O = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3O#1 []:
let sat_sc3N = ... in ...
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3N#1 []:
let sat_sc3M = ... in ...
bitmap: 1 [0]
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3M#0 []:
let sat_sc3L = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3L#0 []:
break<67>() Graphics.UI.GLFW.terminate
bitmap: 0 []
BRK_FUN 67 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.terminate
ENTER
MKAP 0 words, 1 stkoff
PUSH_G System.Exit.exitSuccess
PUSH_L 1
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 1
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc3K#1 []:
break<66>(window_sc3F) Graphics.UI.GLFW.destroyWindow
window_sc3F
bitmap: 1 [0]
BRK_FUN 66 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.destroyWindow
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc3J#1 []:
break<65>(window_sc3F) Main.mainLoop window_sc3F
bitmap: 1 [0]
BRK_FUN 65 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Main.mainLoop
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc3I#1 []:
break<64>(window_sc3F) let sat_sc3H = ... in ...
bitmap: 1 [0]
BRK_FUN 64 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3H#0 []:
break<63>() GHC.Base.Just
@ Graphics.UI.GLFW.KeyCallback
Main.keyCallback
bitmap: 0 []
BRK_FUN 63 $1L1 <cc>
PUSH_G Main.keyCallback
PACK GHC.Base.Just 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 0 1
PUSH_APPLY_PP
PUSH_G Graphics.UI.GLFW.setKeyCallback
SLIDE 4 2
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 3
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 1
PUSH_L 2
PUSH_BCO
ProtoBCO sat_sc3G#1 []:
break<62>(mw_sc3y) Graphics.UI.GLFW.makeContextCurrent mw_sc3y
bitmap: 1 [0]
BRK_FUN 62 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.makeContextCurrent
SLIDE 3 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 4
ENTER
MKPAP 1 words, 2 stkoff
PUSH_ALTS
ProtoBCO sat_sc3E#0 []:
{ __DEFAULT -> sat_sc3E sat_sc3Q }
bitmap: 2 [0]
JMP 21
__21:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 5
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 4
PUSH_BCO
ProtoBCO ticked_yctn#1 []:
break<61>(mw_sc3y) let nothingRes_sc3z = ... in ...
bitmap: 1 [0]
BRK_FUN 61 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO nothingRes_sc3z#0 []:
break<60>() GHC.Base.>>
@ GHC.Types.IO
GHC.Base.$fMonadIO
@ ()
@ ()
Graphics.UI.GLFW.terminate
(System.Exit.exitFailure @ ())
bitmap: 0 []
BRK_FUN 60 $1L1 <cc>
PUSH_G System.Exit.exitFailure
PUSH_G Graphics.UI.GLFW.terminate
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
ENTER
MKAP 0 words, 1 stkoff
ALLOC_PAP 1 2
PUSH_LL 2 1
PUSH_BCO
ProtoBCO sat_sc3D#3 []:
\ (f_sc3A [OS=OneShot]
:: Graphics.UI.GLFW.Types.Window -> GHC.Types.IO ()) -> ...
bitmap: 3 [0]
BRK_FUN 9 $1L1 <cc>
PUSH_ALTS
ProtoBCO wild_sc3B#0 []:
{ GHC.Base.Nothing -> break<7>(nothingRes_sc3z) nothingRes_sc3z
; GHC.Base.Just x_sc3C -> break<8>(f_sc3A,x_sc3C) f_sc3A
x_sc3C }
bitmap: 3 [0]
TESTLT_P 1 __23
ALLOC_AP_NOUPD 1
PUSH_L 4
PUSH_BCO
ProtoBCO ticked_ycto#1 []:
break<7>(nothingRes_sc3z) nothingRes_sc3z
bitmap: 1 [0]
BRK_FUN 7 $1L1 <cc>
PUSH_L 0
SLIDE 1 1
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 7
ENTER
__23:
UNPACK 1
ALLOC_AP_NOUPD 2
PUSH_LL 7 1
PUSH_BCO
ProtoBCO ticked_yctp#2 []:
break<8>(f_sc3A,x_sc3C) f_sc3A x_sc3C
bitmap: 2 [0]
BRK_FUN 8 $1L1 <cc>
PUSH_L 0
PUSH_APPLY_P
PUSH_L 3
SLIDE 3 2
ENTER
MKAP 2 words, 3 stkoff
PUSH_L 0
SLIDE 1 8
ENTER
PUSH_L 3
ENTER
MKPAP 2 words, 3 stkoff
PUSH_L 0
SLIDE 1 3
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKPAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3x#0 []:
break<59>() let sat_sc3w = ... in ...
bitmap: 0 []
BRK_FUN 59 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3w#0 []:
GHC.CString.unpackCString# "Simple example, haskell style"#
bitmap: 0 []
PUSH_UBX (1) "Simple example, haskell style"#
PUSH_APPLY_N
PUSH_G GHC.CString.unpackCString#
ENTER
MKAP 0 words, 1 stkoff
PUSH_UBX (1) 480#
PACK GHC.Types.I# 1
PUSH_UBX (1) 640#
PACK GHC.Types.I# 1
PUSH_G GHC.Base.Nothing
PUSH_G GHC.Base.Nothing
PUSH_LLL 4 3 2
PUSH_APPLY_PPPPP
PUSH_G Graphics.UI.GLFW.createWindow
SLIDE 7 3
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>=
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
PUSH_ALTS
ProtoBCO sat_sc3t#0 []:
{ __DEFAULT -> sat_sc3t sat_sc3S }
bitmap: 2 [0]
JMP 18
__18:
PUSH_L 3
PUSH_APPLY_P
PUSH_L 2
SLIDE 3 5
ENTER
ALLOC_AP_NOUPD 1
PUSH_L 4
PUSH_BCO
ProtoBCO ticked_yctm#1 []:
break<58>(successfulInit_sc3p) let sat_sc3s = ... in ...
bitmap: 1 [0]
BRK_FUN 58 $1L1 <cc>
ALLOC_PAP 1 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sc3s#2 []:
\ (trueRes_sc3q [OS=OneShot] :: GHC.Types.IO ()) -> ...
bitmap: 2 [0]
BRK_FUN 54 $1L1 <cc>
PUSH_ALTS
ProtoBCO wild_sc3r#0 []:
{ GHC.Types.False -> System.Exit.exitFailure @ ()
; GHC.Types.True -> trueRes_sc3q }
bitmap: 2 [0]
TESTLT_P 1 __20
PUSH_G System.Exit.exitFailure
SLIDE 1 5
ENTER
__20:
PUSH_L 4
SLIDE 1 5
ENTER
PUSH_L 2
ENTER
MKPAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 2
ENTER
MKAP 1 words, 2 stkoff
PUSH_L 0
SLIDE 1 1
ENTER
MKPAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3o#0 []:
break<57>() Graphics.UI.GLFW.init
bitmap: 0 []
BRK_FUN 57 $1L1 <cc>
PUSH_G Graphics.UI.GLFW.init
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>=
SLIDE 5 2
ENTER
MKAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3n#0 []:
break<56>() let sat_sc3m = ... in ...
bitmap: 0 []
BRK_FUN 56 $1L1 <cc>
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sc3m#0 []:
break<55>() GHC.Base.Just
@ Graphics.UI.GLFW.ErrorCallback Main.errorCallback
bitmap: 0 []
BRK_FUN 55 $1L1 <cc>
PUSH_G Main.errorCallback
PACK GHC.Base.Just 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_APPLY_P
PUSH_G Graphics.UI.GLFW.setErrorCallback
SLIDE 3 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_G GHC.Base.$fMonadIO
PUSH_APPLY_PPP
PUSH_G GHC.Base.>>
SLIDE 5 2
ENTER
ProtoBCO :Main.main#0 []:
GHC.TopHandler.runMainIO @ () Main.main
bitmap: 0 []
PUSH_G Main.main
PUSH_APPLY_P
PUSH_G GHC.TopHandler.runMainIO
ENTER
Created temporary directory: C:\msys64\tmp\ghc6256_0
==================== Foreign export header file ====================
==================== Foreign export stubs ====================
Upsweep completely successful.
*** Deleting temp files:
Deleting: C:\msys64\tmp\ghc6256_0\ghc_1.c
Warning: deleting non-existent C:\msys64\tmp\ghc6256_0\ghc_1.c
Ok, modules loaded: Main.
*** Parser:
==================== Parser ====================
Just \ m
-> System.Environment.withProgName
"ExampleGLFW.hs" (System.Environment.withArgs [] m)
*** Desugar:
==================== Desugared ====================
letrec {
_compileParsedExpr_$xY
:: forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB
[LclId, Str=DmdType]
_compileParsedExpr_$xY =
\ (@ a_actB) ->
letrec {
_compileParsedExpr_actD
:: GHC.Types.IO a_actB -> GHC.Types.IO a_actB
[LclId, Str=DmdType]
_compileParsedExpr_actD =
\ (m_actq :: GHC.Types.IO a_actB) ->
System.Environment.withProgName
@ a_actB
(GHC.CString.unpackCString# "ExampleGLFW.hs"#)
(System.Environment.withArgs
@ a_actB (GHC.Types.[] @ GHC.Base.String) m_actq); } in
_compileParsedExpr_actD; } in
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
(GHC.Prim.unsafeCoerce#
@ 'GHC.Types.PtrRepLifted
@ 'GHC.Types.PtrRepLifted
@ (forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB)
@ ()
_compileParsedExpr_$xY)
(GHC.Types.[] @ ()))
*** Simplify:
==================== Simplifier statistics ====================
Total ticks: 9
3 PreInlineUnconditionally
1 _compileParsedExpr_$xY
1 tpl_B1
1 _compileParsedExpr_actD
1 UnfoldingDone 1 unsafeCoerce#
5 BetaReduction
1 a_12
1 b_13
1 q_1i
1 r_1j
1 tpl_B1
==================== Simplified expression ====================
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
((\ (@ a_actB) (m_actq :: GHC.Types.IO a_actB) ->
System.Environment.withProgName
@ a_actB
(GHC.CString.unpackCString# "ExampleGLFW.hs"#)
(System.Environment.withArgs
@ a_actB (GHC.Types.[] @ GHC.Base.String) m_actq))
`cast` (UnsafeCo representational
(forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB) ()
:: (forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB)
~R# ()))
(GHC.Types.[] @ ()))
*** CorePrep:
==================== CorePrep ====================
let {
sat_sctP :: ()
[LclId, Str=DmdType]
sat_sctP =
(\ (@ a_actB) (m_sctM :: GHC.Types.IO a_actB) ->
let {
sat_sctO :: GHC.Types.IO a_actB
[LclId, Str=DmdType]
sat_sctO =
System.Environment.withArgs
@ a_actB (GHC.Types.[] @ GHC.Base.String) m_sctM } in
let {
sat_sctN :: GHC.Base.String
[LclId, Str=DmdType]
sat_sctN = GHC.CString.unpackCString# "ExampleGLFW.hs"# } in
System.Environment.withProgName @ a_actB sat_sctN sat_sctO)
`cast` (UnsafeCo representational
(forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB) ()
:: (forall a_actB. GHC.Types.IO a_actB -> GHC.Types.IO a_actB)
~R# ()) } in
let {
sat_sctQ :: [()]
[LclId, Str=DmdType]
sat_sctQ = GHC.Types.: @ () sat_sctP (GHC.Types.[] @ ()) } in
GHC.Base.returnIO @ [()] sat_sctQ
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO ExprTopLevel_E0#0 []:
let sat_sctP = ... in ...
bitmap: 0 []
ALLOC_PAP 1 0
PUSH_BCO
ProtoBCO sat_sctP#1 []:
\ (@ a_actB) (m_sctM :: GHC.Types.IO a_actB) -> ... `cast` T
bitmap: 1 [0]
ALLOC_AP 1
PUSH_L 1
PUSH_BCO
ProtoBCO sat_sctO#1 []:
System.Environment.withArgs
@ a_actB (GHC.Types.[] @ GHC.Base.String) m_sctM
bitmap: 1 [0]
PUSH_L 0
PUSH_G GHC.Types.[]
PUSH_APPLY_PP
PUSH_G System.Environment.withArgs
SLIDE 4 1
ENTER
MKAP 1 words, 2 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_sctN#0 []:
GHC.CString.unpackCString# "ExampleGLFW.hs"#
bitmap: 0 []
PUSH_UBX (1) "ExampleGLFW.hs"#
PUSH_APPLY_N
PUSH_G GHC.CString.unpackCString#
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_APPLY_PP
PUSH_G System.Environment.withProgName
SLIDE 4 3
ENTER
MKPAP 0 words, 1 stkoff
PUSH_G GHC.Types.[]
PUSH_L 1
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.returnIO
SLIDE 3 2
ENTER
*** Parser:
==================== Parser ====================
Just System.Environment.withArgs [] (Control.Monad.void (main))
*** Desugar:
==================== Desugared ====================
let {
$dFunctor_acJb :: GHC.Base.Functor GHC.Types.IO
[LclId, Str=DmdType]
$dFunctor_acJb = GHC.Base.$fFunctorIO } in
GHC.Base.bindIO
@ ()
@ [()]
((\ (@ a_acJ2) ->
let {
$dGHCiSandboxIO_acJ4 :: GHC.GHCi.GHCiSandboxIO GHC.Types.IO
[LclId, Str=DmdType]
$dGHCiSandboxIO_acJ4 = GHC.GHCi.$fGHCiSandboxIOIO } in
GHC.GHCi.ghciStepIO @ GHC.Types.IO $dGHCiSandboxIO_acJ4 @ a_acJ2)
@ ()
(System.Environment.withArgs
@ ()
(GHC.Types.[] @ GHC.Base.String)
(Data.Functor.void @ GHC.Types.IO @ () $dFunctor_acJb Main.main)))
(\ (it_actS :: ()) ->
GHC.Base.returnIO
@ [()]
(GHC.Types.:
@ ()
(GHC.Prim.unsafeCoerce#
@ 'GHC.Types.PtrRepLifted
@ 'GHC.Types.PtrRepLifted
@ ()
@ ()
it_actS)
(GHC.Types.[] @ ())))
*** Simplify:
==================== Simplifier statistics ====================
Total ticks: 10
3 PreInlineUnconditionally
1 tpl_B1
1 $dGHCiSandboxIO_acJ4
1 $dFunctor_acJb
1 UnfoldingDone 1 unsafeCoerce#
6 BetaReduction
1 a_12
1 b_13
1 q_1i
1 r_1j
1 tpl_B1
1 a_acJ2
==================== Simplified expression ====================
GHC.Base.bindIO
@ ()
@ [()]
(GHC.GHCi.ghciStepIO
@ GHC.Types.IO
GHC.GHCi.$fGHCiSandboxIOIO
@ ()
(System.Environment.withArgs
@ ()
(GHC.Types.[] @ GHC.Base.String)
(Data.Functor.void
@ GHC.Types.IO @ () GHC.Base.$fFunctorIO Main.main)))
(\ (it_actS :: ()) ->
GHC.Base.returnIO
@ [()] (GHC.Types.: @ () it_actS (GHC.Types.[] @ ())))
*** CorePrep:
==================== CorePrep ====================
let {
sat_scJk :: () -> GHC.Types.IO [()]
[LclId, Str=DmdType]
sat_scJk =
\ (it_scJi :: ()) ->
let {
sat_scJj :: [()]
[LclId, Str=DmdType]
sat_scJj = GHC.Types.: @ () it_scJi (GHC.Types.[] @ ()) } in
GHC.Base.returnIO @ [()] sat_scJj } in
let {
sat_scJh :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_scJh =
let {
sat_scJg :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_scJg =
let {
sat_scJf :: GHC.Types.IO ()
[LclId, Str=DmdType]
sat_scJf =
Data.Functor.void
@ GHC.Types.IO @ () GHC.Base.$fFunctorIO Main.main } in
System.Environment.withArgs
@ () (GHC.Types.[] @ GHC.Base.String) sat_scJf } in
GHC.GHCi.ghciStepIO
@ GHC.Types.IO GHC.GHCi.$fGHCiSandboxIOIO @ () sat_scJg } in
GHC.Base.bindIO @ () @ [()] sat_scJh sat_scJk
*** ByteCodeGen:
==================== Proto-BCOs ====================
ProtoBCO ExprTopLevel_E0#0 []:
let sat_scJk = ... in ...
bitmap: 0 []
ALLOC_PAP 1 0
PUSH_BCO
ProtoBCO sat_scJk#1 []:
\ (it_scJi :: ()) -> ...
bitmap: 1 [0]
PUSH_G GHC.Types.[]
PUSH_L 1
PACK : 2
PUSH_L 0
PUSH_APPLY_P
PUSH_G GHC.Base.returnIO
SLIDE 3 2
ENTER
MKPAP 0 words, 1 stkoff
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_scJh#0 []:
let sat_scJg = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_scJg#0 []:
let sat_scJf = ... in ...
bitmap: 0 []
ALLOC_AP 0
PUSH_BCO
ProtoBCO sat_scJf#0 []:
Data.Functor.void
@ GHC.Types.IO @ () GHC.Base.$fFunctorIO Main.main
bitmap: 0 []
PUSH_G Main.main
PUSH_G GHC.Base.$fFunctorIO
PUSH_APPLY_PP
PUSH_G Data.Functor.void
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G GHC.Types.[]
PUSH_APPLY_PP
PUSH_G System.Environment.withArgs
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_L 0
PUSH_G GHC.GHCi.$fGHCiSandboxIOIO
PUSH_APPLY_PP
PUSH_G GHC.GHCi.ghciStepIO
SLIDE 4 1
ENTER
MKAP 0 words, 1 stkoff
PUSH_LL 1 0
PUSH_APPLY_PP
PUSH_G GHC.Base.bindIO
SLIDE 4 2
ENTER
Loading package array-0.5.1.0 ... linking ... done.
Loading package deepseq-1.4.2.0 ... linking ... done.
Loading package bytestring-0.10.7.0 ... linking ... done.
Loading package containers-0.5.7.1 ... linking ... done.
Loading package binary-0.8.2.0 ... linking ... done.
Loading package bindings-DSL-1.0.23 ... linking ... done.
Loading package bindings-GLFW-3.1.1.4 ... linking ... done.
Loading package GLFW-b-1.4.7.3 ... linking ... done.
Loading package fixed-0.2.1.1 ... linking ... done.
Loading package half-0.2.2.3 ... linking ... done.
Loading package text-1.2.2.0 ... linking ... done.
Loading package transformers-0.5.1.0 ... linking ... done.
Loading package OpenGLRaw-3.1.0.0 ... linking ... done.
Loading package GLURaw-2.0.0.1 ... linking ... done.
Loading package ObjectName-1.1.0.1 ... linking ... done.
Loading package stm-2.4.4.1 ... linking ... done.
Loading package StateVar-1.1.0.3 ... linking ... done.
Loading package OpenGL-3.0.0.1 ... linking ... done.
Segmentation fault/access violation in generated code
Raw
ExampleGLFW.hs
-- Make sure GLFW-b and OpenGL are installed
module Main where
import Control.Monad (unless, when)
import Graphics.Rendering.OpenGL
import qualified Graphics.UI.GLFW as G
import System.Exit
import System.IO
-- tiny utility functions, in the same spirit as 'maybe' or 'either'
-- makes the code a wee bit easier to read
bool :: Bool -> a -> a -> a
bool b falseRes trueRes = if b then trueRes else falseRes
unless' :: Monad m => m Bool -> m () -> m ()
unless' action falseAction = do
b <- action
unless b falseAction
maybe' :: Maybe a -> b -> (a -> b) -> b
maybe' m nothingRes f = case m of
Nothing -> nothingRes
Just x -> f x
-- type ErrorCallback = Error -> String -> IO ()
errorCallback :: G.ErrorCallback
errorCallback err description = hPutStrLn stderr description
keyCallback :: G.KeyCallback
keyCallback window key scancode action mods = when (key == G.Key'Escape && action == G.KeyState'Pressed) $
G.setWindowShouldClose window True
main :: IO ()
main = do
G.setErrorCallback (Just errorCallback)
successfulInit <- G.init
-- if init failed, we exit the program
bool successfulInit exitFailure $ do
mw <- G.createWindow 640 480 "Simple example, haskell style" Nothing Nothing
maybe' mw (G.terminate >> exitFailure) $ \window -> do
G.makeContextCurrent mw
G.setKeyCallback window (Just keyCallback)
mainLoop window
G.destroyWindow window
G.terminate
exitSuccess
mainLoop :: G.Window -> IO ()
mainLoop w = unless' (G.windowShouldClose w) $ do
(width, height) <- G.getFramebufferSize w
let ratio = fromIntegral width / fromIntegral height
viewport $= (Position 0 0, Size (fromIntegral width) (fromIntegral height))
clear [ColorBuffer]
matrixMode $= Projection
loadIdentity
ortho (negate ratio) ratio (negate 1.0) 1.0 1.0 (negate 1.0)
matrixMode $= Modelview 0
loadIdentity
-- this is bad, but keeps the logic of the original example I guess
Just t <- G.getTime
rotate ((realToFrac t) * 50) $ (Vector3 0 0 1 :: Vector3 GLdouble)
renderPrimitive Triangles $ do
color (Color3 1 0 0 :: Color3 GLdouble)
vertex (Vertex3 (negate 0.6) (negate 0.4) 0 :: Vertex3 GLdouble)
color (Color3 0 1 0 :: Color3 GLdouble)
vertex (Vertex3 0.6 (negate 0.4) 0 :: Vertex3 GLdouble)
color (Color3 0 0 1 :: Color3 GLdouble)
vertex (Vertex3 0 0.6 0 :: Vertex3 GLdouble)
G.swapBuffers w
G.pollEvents
mainLoop w
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment