Build #3 for haskell-in-space-0.1.1

[all reports]

Package haskell-in-space-0.1.1
Install InstallOk
Docs Ok
Tests NotTried
Time submitted 2015-05-19 16:26:01.458078 UTC
Compiler ghc-7.8.3
OS linux
Arch x86_64
Dependencies random-1.1, base-4.7.0.1, HGL-3.2.0.5
Flags none

Code Coverage

No Code Coverage was submitted for this report.

Build log

[view raw]

Resolving dependencies...
Configuring data-default-class-0.0.1...
Building data-default-class-0.0.1...
Preprocessing library data-default-class-0.0.1...
[1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, dist/build/Data/Default/Class.o )
In-place registering data-default-class-0.0.1...
Running Haddock for data-default-class-0.0.1...
Running hscolour for data-default-class-0.0.1...
Preprocessing library data-default-class-0.0.1...
Preprocessing library data-default-class-0.0.1...
Haddock coverage:
  67% (  2 /  3) in 'Data.Default.Class'
Documentation created: dist/doc/html/data-default-class/index.html,
dist/doc/html/data-default-class/data-default-class.txt
Creating package registration file: /tmp/pkgConf-data-default-class-0.0379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-class-0.0.1
Registering data-default-class-0.0.1...
Installed data-default-class-0.0.1
Configuring dlist-0.7.1.1...
Building dlist-0.7.1.1...
Preprocessing library dlist-0.7.1.1...
[1 of 1] Compiling Data.DList       ( Data/DList.hs, dist/build/Data/DList.o )
In-place registering dlist-0.7.1.1...
Running Haddock for dlist-0.7.1.1...
Running hscolour for dlist-0.7.1.1...
Preprocessing library dlist-0.7.1.1...
Preprocessing library dlist-0.7.1.1...
Haddock coverage:
 100% ( 20 / 20) in 'Data.DList'
Documentation created: dist/doc/html/dlist/index.html,
dist/doc/html/dlist/dlist.txt
Creating package registration file: /tmp/pkgConf-dlist-0.7.1379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/dlist-0.7.1.1
Registering dlist-0.7.1.1...
Installed dlist-0.7.1.1
Configuring random-1.1...
Building random-1.1...
Preprocessing library random-1.1...
[1 of 1] Compiling System.Random    ( System/Random.hs, dist/build/System/Random.o )
In-place registering random-1.1...
Running Haddock for random-1.1...
Running hscolour for random-1.1...
Preprocessing library random-1.1...
Preprocessing library random-1.1...
Haddock coverage:
Cannot find documentation for: $intro
 100% ( 16 / 16) in 'System.Random'
Documentation created: dist/doc/html/random/index.html,
dist/doc/html/random/random.txt
Creating package registration file: /tmp/pkgConf-random-1379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/random-1.1
Registering random-1.1...
Installed random-1.1
Configuring data-default-instances-base-0.0.1...
Building data-default-instances-base-0.0.1...
Preprocessing library data-default-instances-base-0.0.1...
[1 of 1] Compiling Data.Default.Instances.Base ( Data/Default/Instances/Base.hs, dist/build/Data/Default/Instances/Base.o )
In-place registering data-default-instances-base-0.0.1...
Running Haddock for data-default-instances-base-0.0.1...
Running hscolour for data-default-instances-base-0.0.1...
Preprocessing library data-default-instances-base-0.0.1...
Preprocessing library data-default-instances-base-0.0.1...
Haddock coverage:
  50% (  1 /  2) in 'Data.Default.Instances.Base'
Documentation created: dist/doc/html/data-default-instances-base/index.html,
dist/doc/html/data-default-instances-base/data-default-instances-base.txt
Creating package registration file:
/tmp/pkgConf-data-default-instances-base-0.0379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-instances-base-0.0.1
Registering data-default-instances-base-0.0.1...
Installed data-default-instances-base-0.0.1
Configuring data-default-instances-containers-0.0.1...
Building data-default-instances-containers-0.0.1...
Preprocessing library data-default-instances-containers-0.0.1...
[1 of 1] Compiling Data.Default.Instances.Containers ( Data/Default/Instances/Containers.hs, dist/build/Data/Default/Instances/Containers.o )
In-place registering data-default-instances-containers-0.0.1...
Running Haddock for data-default-instances-containers-0.0.1...
Running hscolour for data-default-instances-containers-0.0.1...
Preprocessing library data-default-instances-containers-0.0.1...
Preprocessing library data-default-instances-containers-0.0.1...
Haddock coverage:
  50% (  1 /  2) in 'Data.Default.Instances.Containers'
Documentation created:
dist/doc/html/data-default-instances-containers/index.html,
dist/doc/html/data-default-instances-containers/data-default-instances-containers.txt
Creating package registration file:
/tmp/pkgConf-data-default-instances-containers-0.0379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-instances-containers-0.0.1
Registering data-default-instances-containers-0.0.1...
Installed data-default-instances-containers-0.0.1
Configuring data-default-instances-old-locale-0.0.1...
Building data-default-instances-old-locale-0.0.1...
Preprocessing library data-default-instances-old-locale-0.0.1...
[1 of 1] Compiling Data.Default.Instances.OldLocale ( Data/Default/Instances/OldLocale.hs, dist/build/Data/Default/Instances/OldLocale.o )
In-place registering data-default-instances-old-locale-0.0.1...
Running Haddock for data-default-instances-old-locale-0.0.1...
Running hscolour for data-default-instances-old-locale-0.0.1...
Preprocessing library data-default-instances-old-locale-0.0.1...
Preprocessing library data-default-instances-old-locale-0.0.1...
Haddock coverage:
  50% (  1 /  2) in 'Data.Default.Instances.OldLocale'
Documentation created:
dist/doc/html/data-default-instances-old-locale/index.html,
dist/doc/html/data-default-instances-old-locale/data-default-instances-old-locale.txt
Creating package registration file:
/tmp/pkgConf-data-default-instances-old-locale-0.0379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-instances-old-locale-0.0.1
Registering data-default-instances-old-locale-0.0.1...
Installed data-default-instances-old-locale-0.0.1
Configuring data-default-instances-dlist-0.0.1...
Building data-default-instances-dlist-0.0.1...
Preprocessing library data-default-instances-dlist-0.0.1...
[1 of 1] Compiling Data.Default.Instances.DList ( Data/Default/Instances/DList.hs, dist/build/Data/Default/Instances/DList.o )
In-place registering data-default-instances-dlist-0.0.1...
Running Haddock for data-default-instances-dlist-0.0.1...
Running hscolour for data-default-instances-dlist-0.0.1...
Preprocessing library data-default-instances-dlist-0.0.1...
Preprocessing library data-default-instances-dlist-0.0.1...
Haddock coverage:
  50% (  1 /  2) in 'Data.Default.Instances.DList'
Documentation created: dist/doc/html/data-default-instances-dlist/index.html,
dist/doc/html/data-default-instances-dlist/data-default-instances-dlist.txt
Creating package registration file:
/tmp/pkgConf-data-default-instances-dlist-0.0379.1
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-instances-dlist-0.0.1
Registering data-default-instances-dlist-0.0.1...
Installed data-default-instances-dlist-0.0.1
Configuring data-default-0.5.3...
Building data-default-0.5.3...
Preprocessing library data-default-0.5.3...
[1 of 1] Compiling Data.Default     ( Data/Default.hs, dist/build/Data/Default.o )
In-place registering data-default-0.5.3...
Running Haddock for data-default-0.5.3...
Running hscolour for data-default-0.5.3...
Preprocessing library data-default-0.5.3...
Preprocessing library data-default-0.5.3...
Haddock coverage:
  67% (  2 /  3) in 'Data.Default'
Documentation created: dist/doc/html/data-default/index.html,
dist/doc/html/data-default/data-default.txt
Creating package registration file: /tmp/pkgConf-data-default-0.5379.3
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/data-default-0.5.3
Registering data-default-0.5.3...
Installed data-default-0.5.3
Configuring X11-1.6.1.2...
configure: WARNING: unrecognized options: --with-compiler, --with-gcc
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether gcc accepts -g... yes
checking for gcc option to accept ISO C89... none needed
checking how to run the C preprocessor... gcc -E
checking for X... libraries , headers 
checking for gethostbyname... yes
checking for connect... yes
checking for remove... yes
checking for shmat... yes
checking for IceConnectionNumber in -lICE... yes
checking whether to build Xinerama... yes
checking for grep that handles long lines and -e... /bin/grep
checking for egrep... /bin/grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking X11/extensions/Xinerama.h usability... yes
checking X11/extensions/Xinerama.h presence... yes
checking for X11/extensions/Xinerama.h... yes
checking X11/extensions/Xrandr.h usability... yes
checking X11/extensions/Xrandr.h presence... yes
checking for X11/extensions/Xrandr.h... yes
checking whether to build XScreenSaver... yes
checking X11/extensions/scrnsaver.h usability... yes
checking X11/extensions/scrnsaver.h presence... yes
checking for X11/extensions/scrnsaver.h... yes
checking whether to include X.org keysyms... yes
checking X11/keysym.h usability... yes
checking X11/keysym.h presence... yes
checking for X11/keysym.h... yes
checking X11/DECkeysym.h usability... yes
checking X11/DECkeysym.h presence... yes
checking for X11/DECkeysym.h... yes
checking X11/Sunkeysym.h usability... yes
checking X11/Sunkeysym.h presence... yes
checking for X11/Sunkeysym.h... yes
checking X11/ap_keysym.h usability... yes
checking X11/ap_keysym.h presence... yes
checking for X11/ap_keysym.h... yes
checking X11/HPkeysym.h usability... yes
checking X11/HPkeysym.h presence... yes
checking for X11/HPkeysym.h... yes
checking X11/XF86keysym.h usability... yes
checking X11/XF86keysym.h presence... yes
checking for X11/XF86keysym.h... yes
checking X11/keysymdef.h usability... yes
checking X11/keysymdef.h presence... yes
checking for X11/keysymdef.h... yes
checking X11/cursorfont.h usability... yes
checking X11/cursorfont.h presence... yes
checking for X11/cursorfont.h... yes
configure: creating ./config.status
config.status: creating config.mk
config.status: creating X11.buildinfo
config.status: creating include/HsX11Config.h
config.status: creating include/X11_extras_config.h
configure: WARNING: unrecognized options: --with-compiler, --with-gcc
Building X11-1.6.1.2...
Preprocessing library X11-1.6.1.2...
[ 1 of 28] Compiling Graphics.X11.Xlib.Internal ( dist/build/Graphics/X11/Xlib/Internal.hs, dist/build/Graphics/X11/Xlib/Internal.o )
[ 2 of 28] Compiling Graphics.X11.Types ( dist/build/Graphics/X11/Types.hs, dist/build/Graphics/X11/Types.o )
[ 3 of 28] Compiling Graphics.X11.Xlib.Types ( dist/build/Graphics/X11/Xlib/Types.hs, dist/build/Graphics/X11/Xlib/Types.o )
[ 4 of 28] Compiling Graphics.X11.Xlib.Display ( Graphics/X11/Xlib/Display.hs, dist/build/Graphics/X11/Xlib/Display.o )
[ 5 of 28] Compiling Graphics.X11.Xlib.Event ( dist/build/Graphics/X11/Xlib/Event.hs, dist/build/Graphics/X11/Xlib/Event.o )
[ 6 of 28] Compiling Graphics.X11.Xlib.Screen ( Graphics/X11/Xlib/Screen.hs, dist/build/Graphics/X11/Xlib/Screen.o )
[ 7 of 28] Compiling Graphics.X11.Xlib.Window ( Graphics/X11/Xlib/Window.hs, dist/build/Graphics/X11/Xlib/Window.o )
[ 8 of 28] Compiling Graphics.X11.Xlib.Context ( Graphics/X11/Xlib/Context.hs, dist/build/Graphics/X11/Xlib/Context.o )
[ 9 of 28] Compiling Graphics.X11.Xlib.Color ( Graphics/X11/Xlib/Color.hs, dist/build/Graphics/X11/Xlib/Color.o )
[10 of 28] Compiling Graphics.X11.Xlib.Font ( dist/build/Graphics/X11/Xlib/Font.hs, dist/build/Graphics/X11/Xlib/Font.o )
[11 of 28] Compiling Graphics.X11.Xlib.Cursor ( dist/build/Graphics/X11/Xlib/Cursor.hs, dist/build/Graphics/X11/Xlib/Cursor.o )
[12 of 28] Compiling Graphics.X11.Xlib.Atom ( dist/build/Graphics/X11/Xlib/Atom.hs, dist/build/Graphics/X11/Xlib/Atom.o )
[13 of 28] Compiling Graphics.X11.Xlib.Region ( Graphics/X11/Xlib/Region.hs, dist/build/Graphics/X11/Xlib/Region.o )
[14 of 28] Compiling Graphics.X11.Xlib.Image ( Graphics/X11/Xlib/Image.hs, dist/build/Graphics/X11/Xlib/Image.o )
[15 of 28] Compiling Graphics.X11.Xlib.Misc ( dist/build/Graphics/X11/Xlib/Misc.hs, dist/build/Graphics/X11/Xlib/Misc.o )

Graphics/X11/Xlib/Misc.hsc:698:10: Warning:
    Orphan instance: instance Default VisualInfo
[16 of 28] Compiling Graphics.X11.Xrandr ( dist/build/Graphics/X11/Xrandr.hs, dist/build/Graphics/X11/Xrandr.o )
[17 of 28] Compiling Graphics.X11.ExtraTypes.AP ( dist/build/Graphics/X11/ExtraTypes/AP.hs, dist/build/Graphics/X11/ExtraTypes/AP.o )
[18 of 28] Compiling Graphics.X11.ExtraTypes.DEC ( dist/build/Graphics/X11/ExtraTypes/DEC.hs, dist/build/Graphics/X11/ExtraTypes/DEC.o )
[19 of 28] Compiling Graphics.X11.ExtraTypes.HP ( dist/build/Graphics/X11/ExtraTypes/HP.hs, dist/build/Graphics/X11/ExtraTypes/HP.o )
[20 of 28] Compiling Graphics.X11.ExtraTypes.Sun ( dist/build/Graphics/X11/ExtraTypes/Sun.hs, dist/build/Graphics/X11/ExtraTypes/Sun.o )
[21 of 28] Compiling Graphics.X11.ExtraTypes.XF86 ( dist/build/Graphics/X11/ExtraTypes/XF86.hs, dist/build/Graphics/X11/ExtraTypes/XF86.o )
[22 of 28] Compiling Graphics.X11.ExtraTypes.XorgDefault ( dist/build/Graphics/X11/ExtraTypes/XorgDefault.hs, dist/build/Graphics/X11/ExtraTypes/XorgDefault.o )
[23 of 28] Compiling Graphics.X11.ExtraTypes ( Graphics/X11/ExtraTypes.hs, dist/build/Graphics/X11/ExtraTypes.o )
[24 of 28] Compiling Graphics.X11.Xlib ( Graphics/X11/Xlib.hs, dist/build/Graphics/X11/Xlib.o )
[25 of 28] Compiling Graphics.X11.Xlib.Extras ( dist/build/Graphics/X11/Xlib/Extras.hs, dist/build/Graphics/X11/Xlib/Extras.o )
[26 of 28] Compiling Graphics.X11.Xinerama ( dist/build/Graphics/X11/Xinerama.hs, dist/build/Graphics/X11/Xinerama.o )
[27 of 28] Compiling Graphics.X11.XScreenSaver ( dist/build/Graphics/X11/XScreenSaver.hs, dist/build/Graphics/X11/XScreenSaver.o )
[28 of 28] Compiling Graphics.X11     ( Graphics/X11.hs, dist/build/Graphics/X11.o )
In-place registering X11-1.6.1.2...
Running Haddock for X11-1.6.1.2...
Running hscolour for X11-1.6.1.2...
Preprocessing library X11-1.6.1.2...
Preprocessing library X11-1.6.1.2...

Graphics/X11/Xlib/Misc.hsc:698:10: Warning:
    Orphan instance: instance Default VisualInfo
Haddock coverage:
  50% (  1 /  2) in 'Graphics.X11.Xlib.Internal'
   7% ( 51 /756) in 'Graphics.X11.Types'
  70% ( 14 / 20) in 'Graphics.X11.Xlib.Types'
 100% ( 34 / 34) in 'Graphics.X11.Xlib.Display'
  48% ( 20 / 42) in 'Graphics.X11.Xlib.Event'
 100% ( 21 / 21) in 'Graphics.X11.Xlib.Screen'
 100% ( 33 / 33) in 'Graphics.X11.Xlib.Window'
 100% ( 24 / 24) in 'Graphics.X11.Xlib.Context'
 100% ( 14 / 14) in 'Graphics.X11.Xlib.Color'
  62% (  8 / 13) in 'Graphics.X11.Xlib.Font'
   1% (  1 / 77) in 'Graphics.X11.Xlib.Cursor'
   3% (  2 / 73) in 'Graphics.X11.Xlib.Atom'
  76% ( 16 / 21) in 'Graphics.X11.Xlib.Region'
 100% (  5 /  5) in 'Graphics.X11.Xlib.Image'
  70% (102 /146) in 'Graphics.X11.Xlib.Misc'
  16% (  6 / 37) in 'Graphics.X11.Xrandr'
   4% (  1 / 24) in 'Graphics.X11.ExtraTypes.AP'
  11% (  1 /  9) in 'Graphics.X11.ExtraTypes.DEC'
   0% (  0 / 86) in 'Graphics.X11.ExtraTypes.HP'
   3% (  1 / 33) in 'Graphics.X11.ExtraTypes.Sun'
   1% (  1 /149) in 'Graphics.X11.ExtraTypes.XF86'
   0% (  1 /1409) in 'Graphics.X11.ExtraTypes.XorgDefault'
 100% (  8 /  8) in 'Graphics.X11.ExtraTypes'
  83% ( 29 / 35) in 'Graphics.X11.Xlib'
   6% (  8 /132) in 'Graphics.X11.Xlib.Extras'
  38% (  3 /  8) in 'Graphics.X11.Xinerama'
  72% ( 13 / 18) in 'Graphics.X11.XScreenSaver'
 100% (  2 /  2) in 'Graphics.X11'
Documentation created: dist/doc/html/X11/index.html, dist/doc/html/X11/X11.txt
Creating package registration file: /tmp/pkgConf-X11-1.6.1379.2
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/X11-1.6.1.2
Registering X11-1.6.1.2...
Installed X11-1.6.1.2
Configuring HGL-3.2.0.5...
Building HGL-3.2.0.5...
Preprocessing library HGL-3.2.0.5...
[ 1 of 27] Compiling Graphics.HGL.Internals.Flag ( Graphics/HGL/Internals/Flag.hs, dist/build/Graphics/HGL/Internals/Flag.o )
[ 2 of 27] Compiling Graphics.HGL.Internals.Utilities ( Graphics/HGL/Internals/Utilities.hs, dist/build/Graphics/HGL/Internals/Utilities.o )
[ 3 of 27] Compiling Graphics.HGL.X11.Display ( Graphics/HGL/X11/Display.hs, dist/build/Graphics/HGL/X11/Display.o )
[ 4 of 27] Compiling Graphics.HGL.Internals.Types ( Graphics/HGL/Internals/Types.hs, dist/build/Graphics/HGL/Internals/Types.o )
[ 5 of 27] Compiling Graphics.HGL.X11.Types ( Graphics/HGL/X11/Types.hs, dist/build/Graphics/HGL/X11/Types.o )
[ 6 of 27] Compiling Graphics.HGL.Internals.Draw ( Graphics/HGL/Internals/Draw.hs, dist/build/Graphics/HGL/Internals/Draw.o )

Graphics/HGL/Internals/Draw.hs:57:10: Warning:
    ‘Draw’ is an instance of Monad but not Applicative - this will become an error in GHC 7.10, under the Applicative-Monad Proposal.
[ 7 of 27] Compiling Graphics.HGL.X11.DC ( Graphics/HGL/X11/DC.hs, dist/build/Graphics/HGL/X11/DC.o )
[ 8 of 27] Compiling Graphics.HGL.X11.Timer ( Graphics/HGL/X11/Timer.hs, dist/build/Graphics/HGL/X11/Timer.o )
[ 9 of 27] Compiling Graphics.HGL.Draw.Monad ( Graphics/HGL/Draw/Monad.hs, dist/build/Graphics/HGL/Draw/Monad.o )
[10 of 27] Compiling Graphics.HGL.Key ( Graphics/HGL/Key.hs, dist/build/Graphics/HGL/Key.o )
[11 of 27] Compiling Graphics.HGL.Internals.Event ( Graphics/HGL/Internals/Event.hs, dist/build/Graphics/HGL/Internals/Event.o )
[12 of 27] Compiling Graphics.HGL.Internals.Events ( Graphics/HGL/Internals/Events.hs, dist/build/Graphics/HGL/Internals/Events.o )

Graphics/HGL/Internals/Events.hs:61:17: Warning:
    In the use of ‘isEmptyChan’
    (imported from Control.Concurrent.Chan):
    Deprecated: "if you need this operation, use Control.Concurrent.STM.TChan instead.  See <http://ghc.haskell.org/trac/ghc/ticket/4154> for details"
[13 of 27] Compiling Graphics.HGL.X11.Window ( Graphics/HGL/X11/Window.hs, dist/build/Graphics/HGL/X11/Window.o )
[14 of 27] Compiling Graphics.HGL.Run ( Graphics/HGL/Run.hs, dist/build/Graphics/HGL/Run.o )
[15 of 27] Compiling Graphics.HGL.Units ( Graphics/HGL/Units.hs, dist/build/Graphics/HGL/Units.o )
[16 of 27] Compiling Graphics.HGL.Draw.Picture ( Graphics/HGL/Draw/Picture.hs, dist/build/Graphics/HGL/Draw/Picture.o )
[17 of 27] Compiling Graphics.HGL.Draw.Text ( Graphics/HGL/Draw/Text.hs, dist/build/Graphics/HGL/Draw/Text.o )
[18 of 27] Compiling Graphics.HGL.Draw.Brush ( Graphics/HGL/Draw/Brush.hs, dist/build/Graphics/HGL/Draw/Brush.o )
[19 of 27] Compiling Graphics.HGL.Draw.Pen ( Graphics/HGL/Draw/Pen.hs, dist/build/Graphics/HGL/Draw/Pen.o )
[20 of 27] Compiling Graphics.HGL.Draw.Region ( Graphics/HGL/Draw/Region.hs, dist/build/Graphics/HGL/Draw/Region.o )
[21 of 27] Compiling Graphics.HGL.Draw.Font ( Graphics/HGL/Draw/Font.hs, dist/build/Graphics/HGL/Draw/Font.o )
[22 of 27] Compiling Graphics.HGL.Draw ( Graphics/HGL/Draw.hs, dist/build/Graphics/HGL/Draw.o )
[23 of 27] Compiling Graphics.HGL.Window ( Graphics/HGL/Window.hs, dist/build/Graphics/HGL/Window.o )
[24 of 27] Compiling Graphics.HGL.Core ( Graphics/HGL/Core.hs, dist/build/Graphics/HGL/Core.o )
[25 of 27] Compiling Graphics.HGL.Utils ( Graphics/HGL/Utils.hs, dist/build/Graphics/HGL/Utils.o )
[26 of 27] Compiling Graphics.HGL     ( Graphics/HGL.hs, dist/build/Graphics/HGL.o )
[27 of 27] Compiling Graphics.SOE     ( Graphics/SOE.hs, dist/build/Graphics/SOE.o )
In-place registering HGL-3.2.0.5...
Running Haddock for HGL-3.2.0.5...
Running hscolour for HGL-3.2.0.5...
Preprocessing library HGL-3.2.0.5...
Preprocessing library HGL-3.2.0.5...

Graphics/HGL/Internals/Draw.hs:57:10: Warning:
    ‘Draw’ is an instance of Monad but not Applicative - this will become an error in GHC 7.10, under the Applicative-Monad Proposal.

Graphics/HGL/Internals/Events.hs:61:17: Warning:
    In the use of ‘isEmptyChan’
    (imported from Control.Concurrent.Chan):
    Deprecated: "if you need this operation, use Control.Concurrent.STM.TChan instead.  See <http://ghc.haskell.org/trac/ghc/ticket/4154> for details"
Haddock coverage:
  20% (  1 /  5) in 'Graphics.HGL.Internals.Flag'
  14% (  1 /  7) in 'Graphics.HGL.Internals.Utilities'
   0% (  0 /  5) in 'Graphics.HGL.X11.Display'
 100% ( 15 / 15) in 'Graphics.HGL.Internals.Types'
   8% (  1 / 13) in 'Graphics.HGL.X11.Types'
  75% (  6 /  8) in 'Graphics.HGL.Internals.Draw'
  25% (  1 /  4) in 'Graphics.HGL.X11.DC'
  11% (  1 /  9) in 'Graphics.HGL.X11.Timer'
 100% (  6 /  6) in 'Graphics.HGL.Draw.Monad'
   8% (  2 / 24) in 'Graphics.HGL.Key'
 100% (  2 /  2) in 'Graphics.HGL.Internals.Event'
  12% (  1 /  8) in 'Graphics.HGL.Internals.Events'
   9% (  1 / 11) in 'Graphics.HGL.X11.Window'
 100% (  2 /  2) in 'Graphics.HGL.Run'
 100% (  5 /  5) in 'Graphics.HGL.Units'
 100% (  8 /  8) in 'Graphics.HGL.Draw.Picture'
 100% ( 15 / 15) in 'Graphics.HGL.Draw.Text'
  83% (  5 /  6) in 'Graphics.HGL.Draw.Brush'
  86% (  6 /  7) in 'Graphics.HGL.Draw.Pen'
  91% ( 10 / 11) in 'Graphics.HGL.Draw.Region'
  83% (  5 /  6) in 'Graphics.HGL.Draw.Font'
 100% ( 14 / 14) in 'Graphics.HGL.Draw'
  90% ( 19 / 21) in 'Graphics.HGL.Window'
 100% (  6 /  6) in 'Graphics.HGL.Core'
 100% ( 41 / 41) in 'Graphics.HGL.Utils'
 100% (  9 /  9) in 'Graphics.HGL'
  97% ( 62 / 64) in 'Graphics.SOE'
Documentation created: dist/doc/html/HGL/index.html, dist/doc/html/HGL/HGL.txt
Creating package registration file: /tmp/pkgConf-HGL-3.2.0379.5
Installing library in
/home/builder/hackage-server/build-cache/tmp-install/lib/x86_64-linux-ghc-7.8.3/HGL-3.2.0.5
Registering HGL-3.2.0.5...
Installed HGL-3.2.0.5
Downloading haskell-in-space-0.1.1...
Configuring haskell-in-space-0.1.1...
Building haskell-in-space-0.1.1...
Preprocessing executable 'asteroids-space' for haskell-in-space-0.1.1...
[1 of 2] Compiling Asteroids.Geometry ( Asteroids/Geometry.hs, dist/build/asteroids-space/asteroids-space-tmp/Asteroids/Geometry.o )
[2 of 2] Compiling Main             ( Asteroids-space.hs, dist/build/asteroids-space/asteroids-space-tmp/Main.o )

Asteroids-space.hs:34:6: Warning:
    Fields of ‘Ship’ not initialised: shp
    In the second argument of ‘($)’, namely
      ‘Ship
         {pos = (fst winSize `div` 2, snd winSize `div` 2), vel = (0, 0),
          ornt = pi / 2, thrust = 0, hAcc = 0}’
    In the ‘ship’ field of a record
    In the expression:
      State
        {ship = setShp
                $ Ship
                    {pos = (fst winSize `div` 2, snd winSize `div` 2), vel = (0, 0),
                     ornt = pi / 2, thrust = 0, hAcc = 0}}

Asteroids-space.hs:43:5: Warning:
    Fields of ‘Ship’ not initialised: shp
    In the second argument of ‘($)’, namely
      ‘Ship
         {pos = addWinMod pos0 vel1,
          vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
          ornt = o + hAcc, hAcc = hAcc}’
    In the expression:
      setShp
      $ Ship
          {pos = addWinMod pos0 vel1,
           vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
           ornt = o + hAcc, hAcc = hAcc}
    In an equation for ‘moveShip’:
        moveShip
          (Ship {pos = pos0, vel = vel0, hAcc = hAcc, thrust = t, ornt = o})
          = setShp
            $ Ship
                {pos = addWinMod pos0 vel1,
                 vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
                 ornt = o + hAcc, hAcc = hAcc}
          where
              vel1 = add (polar t o) vel0
              l = len vel1
Linking dist/build/asteroids-space/asteroids-space ...
Preprocessing executable 'asteroids-aufgabe' for haskell-in-space-0.1.1...
[1 of 2] Compiling Asteroids.Geometry ( Asteroids/Geometry.hs, dist/build/asteroids-aufgabe/asteroids-aufgabe-tmp/Asteroids/Geometry.o )
[2 of 2] Compiling Main             ( Asteroids-aufgabe.hs, dist/build/asteroids-aufgabe/asteroids-aufgabe-tmp/Main.o )

Asteroids-aufgabe.hs:127:6: Warning:
    Fields of ‘Ship’ not initialised: shp
    In the second argument of ‘($)’, namely
      ‘Ship
         {pos = shipPos, vel = (0, 0), ornt = pi / 2, thrust = 0, hAcc = 0,
          bbox = translate spaceShipBox shipPos}’
    In the ‘ship’ field of a record
    In the expression:
      State
        {ship = setShp
                $ Ship
                    {pos = shipPos, vel = (0, 0), ornt = pi / 2, thrust = 0, hAcc = 0,
                     bbox = translate spaceShipBox shipPos},
         bullets = [],
         asteroids = Asteroid
                       {posA = ast1, velA = (1, 1), bboxa = boxAsteroid ast1 2,
                        shpA = shape (Translate ast1 asteroidL), size = 2}
                     : Asteroid
                         {posA = ast2, velA = (1, - 1), bboxa = boxAsteroid ast2 2,
                          shpA = shape (Translate ast2 asteroidL), size = 2}
                       : Asteroid
                           {posA = ast3, velA = (- 1, 1), bboxa = boxAsteroid ast3 2,
                            shpA = shape (Translate ast3 asteroidL), size = 2}
                         : Asteroid
                             {posA = ast4, velA = (- 1, - 1), bboxa = boxAsteroid ast4 2,
                              shpA = shape (Translate ast4 asteroidL), size = 2}
                           : [],
         game = Continue}

Asteroids-aufgabe.hs:157:5: Warning:
    Fields of ‘Ship’ not initialised: shp, bbox
    In the second argument of ‘($)’, namely
      ‘Ship
         {pos = addWinMod pos0 vel1,
          vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
          ornt = o + hAcc, hAcc = hAcc}’
    In the expression:
      setShp
      $ Ship
          {pos = addWinMod pos0 vel1,
           vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
           ornt = o + hAcc, hAcc = hAcc}
    In an equation for ‘moveShip’:
        moveShip
          (Ship {pos = pos0, vel = vel0, hAcc = hAcc, thrust = t, ornt = o})
          = setShp
            $ Ship
                {pos = addWinMod pos0 vel1,
                 vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
                 ornt = o + hAcc, hAcc = hAcc}
          where
              vel1 = add (polar t o) vel0
              l = len vel1
Linking dist/build/asteroids-aufgabe/asteroids-aufgabe ...
Preprocessing executable 'asteroids-basic' for haskell-in-space-0.1.1...
[1 of 2] Compiling Asteroids.Geometry ( Asteroids/Geometry.hs, dist/build/asteroids-basic/asteroids-basic-tmp/Asteroids/Geometry.o )
[2 of 2] Compiling Main             ( Asteroids-basic.hs, dist/build/asteroids-basic/asteroids-basic-tmp/Main.o )

Asteroids-basic.hs:61:36: Warning:
    Fields of ‘Ship’ not initialised: shp
    In the first argument of ‘setShp’, namely
      ‘(Ship
          {pos = (fst winSize `div` 2, snd winSize `div` 2), vel = (0, 0),
           ornt = pi / 2, thrust = 0, hAcc = 0})’
    In the ‘ship’ field of a record
    In the expression:
      State
        {ship = setShp
                  (Ship
                     {pos = (fst winSize `div` 2, snd winSize `div` 2), vel = (0, 0),
                      ornt = pi / 2, thrust = 0, hAcc = 0}),
         bullets = [], asteroids = []}

Asteroids-basic.hs:145:22: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAShp’, namely
      ‘(Asteroid
          {fig = Polygon pts, apos = position, avel = ve, size = ALarge})’
    In the first argument of ‘return’, namely
      ‘(setAShp
          (Asteroid
             {fig = Polygon pts, apos = position, avel = ve, size = ALarge}))’
    In a stmt of a 'do' block:
      return
        (setAShp
           (Asteroid
              {fig = Polygon pts, apos = position, avel = ve, size = ALarge}))

Asteroids-basic.hs:168:24: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAShp’, namely
      ‘(Asteroid
          {fig = Scale 0.5 f, apos = p, avel = v, size = AMedium})’
    In the expression:
      setAShp
        (Asteroid {fig = Scale 0.5 f, apos = p, avel = v, size = AMedium})
    In the first argument of ‘map’, namely
      ‘(\ v
          -> setAShp
               (Asteroid
                  {fig = Scale 0.5 f, apos = p, avel = v, size = AMedium}))’

Asteroids-basic.hs:171:24: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAShp’, namely
      ‘(Asteroid {fig = Scale 0.75 f, apos = p, avel = v, size = AWee})’
    In the expression:
      setAShp
        (Asteroid {fig = Scale 0.75 f, apos = p, avel = v, size = AWee})
    In the first argument of ‘map’, namely
      ‘(\ v
          -> setAShp
               (Asteroid {fig = Scale 0.75 f, apos = p, avel = v, size = AWee}))’

Asteroids-basic.hs:187:15: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘(:)’, namely
      ‘Bullet {bpos = position, bvel = polar vB o, cnt = 0}’
    In the ‘bullets’ field of a record
    In the expression:
      s {bullets = Bullet {bpos = position, bvel = polar vB o, cnt = 0}
                   : b}

Asteroids-basic.hs:194:6: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the expression:
      Bullet {bpos = addWinMod op bv, bvel = bv, cnt = c + 1}
    In an equation for ‘moveOne’:
        moveOne (Bullet {bpos = op, bvel = bv, cnt = c})
          = Bullet {bpos = addWinMod op bv, bvel = bv, cnt = c + 1}
    In an equation for ‘moveBullets’:
        moveBullets bs
          = filter (\ b -> cnt b < bTTL) (map moveOne bs)
          where
              moveOne (Bullet {bpos = op, bvel = bv, cnt = c})
                = Bullet {bpos = addWinMod op bv, bvel = bv, cnt = c + 1}

Asteroids-basic.hs:203:3: Warning:
    Fields of ‘Ship’ not initialised: shp
    In the second argument of ‘($)’, namely
      ‘Ship
         {pos = addWinMod pos0 vel1,
          vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
          ornt = o + hAcc, hAcc = hAcc}’
    In the expression:
      setShp
      $ Ship
          {pos = addWinMod pos0 vel1,
           vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
           ornt = o + hAcc, hAcc = hAcc}
    In an equation for ‘moveShip’:
        moveShip
          (Ship {pos = pos0, vel = vel0, hAcc = hAcc, thrust = t, ornt = o})
          = setShp
            $ Ship
                {pos = addWinMod pos0 vel1,
                 vel = if l > vMax then smult (vMax / l) vel1 else vel1, thrust = t,
                 ornt = o + hAcc, hAcc = hAcc}
          where
              vel1 = add (polar t o) vel0
              l = len vel1
Linking dist/build/asteroids-basic/asteroids-basic ...
Preprocessing executable 'asteroids-haskelly' for haskell-in-space-0.1.1...
[1 of 2] Compiling Asteroids.Geometry ( Asteroids/Geometry.hs, dist/build/asteroids-haskelly/asteroids-haskelly-tmp/Asteroids/Geometry.o )
[2 of 2] Compiling Main             ( Asteroids-haskelly.hs, dist/build/asteroids-haskelly/asteroids-haskelly-tmp/Main.o )

Asteroids-haskelly.hs:300:1: Warning: Defined but not used: ‘sgrn’

Asteroids-haskelly.hs:381:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (650, 90), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:381:67: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (160, 150), utyp = 7, ucol = 2})’
    In the expression:
      setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:382:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (620, 50), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:382:67: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (20, 250), utyp = 7, ucol = 2})’
    In the expression:
      setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:383:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (420, 350), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (420, 350), utyp = 7, ucol = 1})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:383:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (490, 450), utyp = 7, ucol = 2})’
    In the expression:
      setSpace (Space {upos = (490, 450), utyp = 7, ucol = 2})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:384:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (30, 550), utyp = 7, ucol = 2})’
    In the expression:
      setSpace (Space {upos = (30, 550), utyp = 7, ucol = 2})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:384:67: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (340, 250), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (340, 250), utyp = 7, ucol = 1})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:385:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 580), utyp = 7, ucol = 2})’
    In the expression:
      setSpace (Space {upos = (220, 580), utyp = 7, ucol = 2})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:385:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (590, 350), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (590, 350), utyp = 7, ucol = 1})
    In the expression:
      [setSpace (Space {upos = (650, 90), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (160, 150), utyp = 7, ucol = 2}),
       setSpace (Space {upos = (620, 50), utyp = 7, ucol = 1}),
       setSpace (Space {upos = (20, 250), utyp = 7, ucol = 2}), ....]

Asteroids-haskelly.hs:392:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 250), utyp = 29, ucol = 27})’
    In the expression:
      setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:392:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 250), utyp = 30, ucol = 26})’
    In the expression:
      setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:393:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 250), utyp = 33, ucol = 26})’
    In the expression:
      setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:393:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 250), utyp = 32, ucol = 27})’
    In the expression:
      setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:395:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (420, 150), utyp = 29, ucol = 27})’
    In the expression:
      setSpace (Space {upos = (420, 150), utyp = 29, ucol = 27})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:395:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (420, 150), utyp = 30, ucol = 26})’
    In the expression:
      setSpace (Space {upos = (420, 150), utyp = 30, ucol = 26})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:396:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (420, 150), utyp = 33, ucol = 26})’
    In the expression:
      setSpace (Space {upos = (420, 150), utyp = 33, ucol = 26})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:396:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (420, 150), utyp = 32, ucol = 27})’
    In the expression:
      setSpace (Space {upos = (420, 150), utyp = 32, ucol = 27})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (220, 250), utyp = 29, ucol = 27}),
        setSpace (Space {upos = (220, 250), utyp = 30, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 33, ucol = 26}),
        setSpace (Space {upos = (220, 250), utyp = 32, ucol = 27}), ....]’

Asteroids-haskelly.hs:400:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (217, 147), utyp = 6, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:400:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 150), utyp = 5, ucol = 19})’
    In the expression:
      setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:401:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 150), utyp = 4, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:401:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 150), utyp = 2, ucol = 17})’
    In the expression:
      setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:402:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 150), utyp = 0, ucol = 16})’
    In the expression:
      setSpace (Space {upos = (220, 150), utyp = 0, ucol = 16})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:404:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 480), utyp = 11, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (550, 480), utyp = 11, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:404:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 480), utyp = 10, ucol = 3})’
    In the expression:
      setSpace (Space {upos = (550, 480), utyp = 10, ucol = 3})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:405:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 480), utyp = 9, ucol = 20})’
    In the expression:
      setSpace (Space {upos = (550, 480), utyp = 9, ucol = 20})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:405:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 480), utyp = 8, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (550, 480), utyp = 8, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (217, 147), utyp = 6, ucol = 0}),
        setSpace (Space {upos = (220, 150), utyp = 5, ucol = 19}),
        setSpace (Space {upos = (220, 150), utyp = 4, ucol = 18}),
        setSpace (Space {upos = (220, 150), utyp = 2, ucol = 17}), ....]’

Asteroids-haskelly.hs:409:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (323, 453), utyp = 27, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:409:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (305, 444), utyp = 11, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:410:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (305, 444), utyp = 10, ucol = 4})’
    In the expression:
      setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:410:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (305, 444), utyp = 24, ucol = 24})’
    In the expression:
      setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:411:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (320, 450), utyp = 27, ucol = 25})’
    In the expression:
      setSpace (Space {upos = (320, 450), utyp = 27, ucol = 25})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:411:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (320, 450), utyp = 26, ucol = 24})’
    In the expression:
      setSpace (Space {upos = (320, 450), utyp = 26, ucol = 24})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:412:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (305, 444), utyp = 23, ucol = 23})’
    In the expression:
      setSpace (Space {upos = (305, 444), utyp = 23, ucol = 23})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:412:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (320, 450), utyp = 25, ucol = 22})’
    In the expression:
      setSpace (Space {upos = (320, 450), utyp = 25, ucol = 22})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:414:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 180), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (550, 180), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:414:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 180), utyp = 11, ucol = 4})’
    In the expression:
      setSpace (Space {upos = (550, 180), utyp = 11, ucol = 4})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:415:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 180), utyp = 10, ucol = 24})’
    In the expression:
      setSpace (Space {upos = (550, 180), utyp = 10, ucol = 24})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (323, 453), utyp = 27, ucol = 0}),
        setSpace (Space {upos = (305, 444), utyp = 11, ucol = 1}),
        setSpace (Space {upos = (305, 444), utyp = 10, ucol = 4}),
        setSpace (Space {upos = (305, 444), utyp = 24, ucol = 24}), ....]’

Asteroids-haskelly.hs:418:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 250), utyp = 18, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:418:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 250), utyp = 17, ucol = 32})’
    In the expression:
      setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:419:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 250), utyp = 16, ucol = 14})’
    In the expression:
      setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:419:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (550, 250), utyp = 15, ucol = 12})’
    In the expression:
      setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:421:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (450, 210), utyp = 22, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (450, 210), utyp = 22, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:421:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (450, 210), utyp = 21, ucol = 32})’
    In the expression:
      setSpace (Space {upos = (450, 210), utyp = 21, ucol = 32})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:422:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (450, 210), utyp = 20, ucol = 12})’
    In the expression:
      setSpace (Space {upos = (450, 210), utyp = 20, ucol = 12})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:422:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (450, 210), utyp = 19, ucol = 11})’
    In the expression:
      setSpace (Space {upos = (450, 210), utyp = 19, ucol = 11})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:424:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 400), utyp = 13, ucol = 40})’
    In the expression:
      setSpace (Space {upos = (350, 400), utyp = 13, ucol = 40})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:424:71: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 400), utyp = 12, ucol = 39})’
    In the expression:
      setSpace (Space {upos = (350, 400), utyp = 12, ucol = 39})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (550, 250), utyp = 18, ucol = 0}),
        setSpace (Space {upos = (550, 250), utyp = 17, ucol = 32}),
        setSpace (Space {upos = (550, 250), utyp = 16, ucol = 14}),
        setSpace (Space {upos = (550, 250), utyp = 15, ucol = 12}), ....]’

Asteroids-haskelly.hs:428:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (510, 140), utyp = 2, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:428:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (520, 150), utyp = 5, ucol = 5})’
    In the expression:
      setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:429:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (520, 150), utyp = 4, ucol = 14})’
    In the expression:
      setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:429:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (520, 150), utyp = 2, ucol = 12})’
    In the expression:
      setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:430:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (520, 150), utyp = 0, ucol = 11})’
    In the expression:
      setSpace (Space {upos = (520, 150), utyp = 0, ucol = 11})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:432:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (100, 430), utyp = 10, ucol = 5})’
    In the expression:
      setSpace (Space {upos = (100, 430), utyp = 10, ucol = 5})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:432:70: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (100, 430), utyp = 24, ucol = 12})’
    In the expression:
      setSpace (Space {upos = (100, 430), utyp = 24, ucol = 12})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:433:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (100, 430), utyp = 23, ucol = 11})’
    In the expression:
      setSpace (Space {upos = (100, 430), utyp = 23, ucol = 11})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (510, 140), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (520, 150), utyp = 5, ucol = 5}),
        setSpace (Space {upos = (520, 150), utyp = 4, ucol = 14}),
        setSpace (Space {upos = (520, 150), utyp = 2, ucol = 12}), ....]’

Asteroids-haskelly.hs:436:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (210, 440), utyp = 2, ucol = 0})’
    In the expression:
      setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10}),
        setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9}),
        setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8}), ....]’

Asteroids-haskelly.hs:436:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 450), utyp = 5, ucol = 10})’
    In the expression:
      setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10}),
        setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9}),
        setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8}), ....]’

Asteroids-haskelly.hs:437:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 450), utyp = 4, ucol = 9})’
    In the expression:
      setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10}),
        setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9}),
        setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8}), ....]’

Asteroids-haskelly.hs:437:69: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 450), utyp = 2, ucol = 8})’
    In the expression:
      setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10}),
        setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9}),
        setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8}), ....]’

Asteroids-haskelly.hs:438:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (220, 450), utyp = 0, ucol = 7})’
    In the expression:
      setSpace (Space {upos = (220, 450), utyp = 0, ucol = 7})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (210, 440), utyp = 2, ucol = 0}),
        setSpace (Space {upos = (220, 450), utyp = 5, ucol = 10}),
        setSpace (Space {upos = (220, 450), utyp = 4, ucol = 9}),
        setSpace (Space {upos = (220, 450), utyp = 2, ucol = 8}), ....]’

Asteroids-haskelly.hs:441:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (650, 180), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (650, 180), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (650, 180), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (650, 180), utyp = 11, ucol = 4}),
        setSpace (Space {upos = (650, 180), utyp = 10, ucol = 24})]’

Asteroids-haskelly.hs:441:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (650, 180), utyp = 11, ucol = 4})’
    In the expression:
      setSpace (Space {upos = (650, 180), utyp = 11, ucol = 4})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (650, 180), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (650, 180), utyp = 11, ucol = 4}),
        setSpace (Space {upos = (650, 180), utyp = 10, ucol = 24})]’

Asteroids-haskelly.hs:442:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (650, 180), utyp = 10, ucol = 24})’
    In the expression:
      setSpace (Space {upos = (650, 180), utyp = 10, ucol = 24})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (650, 180), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (650, 180), utyp = 11, ucol = 4}),
        setSpace (Space {upos = (650, 180), utyp = 10, ucol = 24})]’

Asteroids-haskelly.hs:445:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 150), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:445:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 150), utyp = 11, ucol = 20})’
    In the expression:
      setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:446:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 150), utyp = 10, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:448:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 450), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:448:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 450), utyp = 11, ucol = 20})’
    In the expression:
      setSpace (Space {upos = (350, 450), utyp = 11, ucol = 20})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:449:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 450), utyp = 10, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (350, 450), utyp = 10, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:451:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (200, 300), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (200, 300), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:451:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (200, 300), utyp = 11, ucol = 20})’
    In the expression:
      setSpace (Space {upos = (200, 300), utyp = 11, ucol = 20})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:452:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (200, 300), utyp = 10, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (200, 300), utyp = 10, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:454:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (500, 300), utyp = 7, ucol = 1})’
    In the expression:
      setSpace (Space {upos = (500, 300), utyp = 7, ucol = 1})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:454:68: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (500, 300), utyp = 11, ucol = 20})’
    In the expression:
      setSpace (Space {upos = (500, 300), utyp = 11, ucol = 20})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:455:20: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (500, 300), utyp = 10, ucol = 18})’
    In the expression:
      setSpace (Space {upos = (500, 300), utyp = 10, ucol = 18})
    In the first argument of ‘(++)’, namely
      ‘[setSpace (Space {upos = (350, 150), utyp = 7, ucol = 1}),
        setSpace (Space {upos = (350, 150), utyp = 11, ucol = 20}),
        setSpace (Space {upos = (350, 150), utyp = 10, ucol = 18}),
        setSpace (Space {upos = (350, 450), utyp = 7, ucol = 1}), ....]’

Asteroids-haskelly.hs:460:36: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 300), utyp = 28, ucol = 38})’
    In the expression:
      setSpace (Space {upos = (350, 300), utyp = 28, ucol = 38})
    In the expression:
      [setSpace (Space {upos = (350, 300), utyp = 28, ucol = 38}),
       setSpace (Space {upos = (350, 300), utyp = 34, ucol = 37}),
       setSpace (Space {upos = (350, 300), utyp = 35, ucol = 36})]

Asteroids-haskelly.hs:461:36: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 300), utyp = 34, ucol = 37})’
    In the expression:
      setSpace (Space {upos = (350, 300), utyp = 34, ucol = 37})
    In the expression:
      [setSpace (Space {upos = (350, 300), utyp = 28, ucol = 38}),
       setSpace (Space {upos = (350, 300), utyp = 34, ucol = 37}),
       setSpace (Space {upos = (350, 300), utyp = 35, ucol = 36})]

Asteroids-haskelly.hs:462:36: Warning:
    Fields of ‘Space’ not initialised: ushp
    In the first argument of ‘setSpace’, namely
      ‘(Space {upos = (350, 300), utyp = 35, ucol = 36})’
    In the expression:
      setSpace (Space {upos = (350, 300), utyp = 35, ucol = 36})
    In the expression:
      [setSpace (Space {upos = (350, 300), utyp = 28, ucol = 38}),
       setSpace (Space {upos = (350, 300), utyp = 34, ucol = 37}),
       setSpace (Space {upos = (350, 300), utyp = 35, ucol = 36})]

Asteroids-haskelly.hs:474:25: Warning:
    Fields of ‘Ship’ not initialised: sshp
    In the first argument of ‘setShip’, namely
      ‘Ship
         {spos = (fst winSize `div` 2, snd winSize `div` 2), svel = (0, 0),
          ornt = pi / 2, thrust = 0, hAcc = 0, sbur = bursts, hthrust = 0,
          shipDes = False}’
    In the ‘ship’ field of a record
    In the expression:
      State
        {ship = setShip
                  (Ship
                     {spos = (fst winSize `div` 2, snd winSize `div` 2), svel = (0, 0),
                      ornt = pi / 2, thrust = 0, hAcc = 0, sbur = bursts, hthrust = 0,
                      shipDes = False}),
         bullets = [], shrepnels = [],
         stats = Stats {fails = 0, spl = 0, hits = 0, ratio = 0},
         mission = Mission
                     {rndm1 = (m !! 4), rndm2 = (m !! 3), rndm3 = (m !! 2),
                      rndm4 = (m !! 1)},
         spaces = if backgr then
                      ((spacePic !! (u !! 1)) ++ turret)
                  else
                      ((spacePic !! 0) ++ turret),
         asteroids = [setAst
                        (Asteroid
                           {asize = 0, apos = (0, 0), avel = (r !! 4, r !! 1),
                            aort = pi / 3}),
                      setAst
                        (Asteroid
                           {asize = 0, apos = (0, 0), avel = (r !! 6, r !! 2),
                            aort = pi / 6}),
                      setAst
                        (Asteroid
                           {asize = 0, apos = (0, 0), avel = (r !! 5, r !! 8),
                            aort = pi / 4})],
         end = False, rsCnt = 20}

Asteroids-haskelly.hs:482:19: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {asize = 0, apos = (0, 0), avel = (r !! 4, r !! 1),
           aort = pi / 3})’
    In the expression:
      setAst
        (Asteroid
           {asize = 0, apos = (0, 0), avel = (r !! 4, r !! 1), aort = pi / 3})
    In the ‘asteroids’ field of a record

Asteroids-haskelly.hs:483:19: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {asize = 0, apos = (0, 0), avel = (r !! 6, r !! 2),
           aort = pi / 6})’
    In the expression:
      setAst
        (Asteroid
           {asize = 0, apos = (0, 0), avel = (r !! 6, r !! 2), aort = pi / 6})
    In the ‘asteroids’ field of a record

Asteroids-haskelly.hs:484:19: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {asize = 0, apos = (0, 0), avel = (r !! 5, r !! 8),
           aort = pi / 4})’
    In the expression:
      setAst
        (Asteroid
           {asize = 0, apos = (0, 0), avel = (r !! 5, r !! 8), aort = pi / 4})
    In the ‘asteroids’ field of a record

Asteroids-haskelly.hs:491:22: Warning:
    This binding for ‘hAcc’ shadows the existing binding
      defined at Asteroids-haskelly.hs:126:13

Asteroids-haskelly.hs:493:5: Warning:
    Fields of ‘Ship’ not initialised: sshp
    In the first argument of ‘setShip’, namely
      ‘Ship
         {spos = addWinMod spos0 svel1, sbur = sbur0,
          svel = if l > vMax then smult (vMax / l) svel1 else svel1,
          shipDes = shipx, thrust = t, ornt = o + hAcc, hAcc = hAcc,
          hthrust = ht}’
    In the expression:
      setShip
        (Ship
           {spos = addWinMod spos0 svel1, sbur = sbur0,
            svel = if l > vMax then smult (vMax / l) svel1 else svel1,
            shipDes = shipx, thrust = t, ornt = o + hAcc, hAcc = hAcc,
            hthrust = ht})
    In an equation for ‘moveShip’:
        moveShip
          (Ship {spos = spos0, svel = svel0, sbur = sbur0, hAcc = hAcc,
                 thrust = t, ornt = o, hthrust = ht, shipDes = shipx})
          = setShip
              (Ship
                 {spos = addWinMod spos0 svel1, sbur = sbur0,
                  svel = if l > vMax then smult (vMax / l) svel1 else svel1,
                  shipDes = shipx, thrust = t, ornt = o + hAcc, hAcc = hAcc,
                  hthrust = ht})
          where
              svel1 = add (add (polar t o) (polar ht (o + pi / 2))) svel0
              l = len svel1

Asteroids-haskelly.hs:503:10: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = addWinMod apos0 avel0, avel = avel0, aort = ao + 0.05,
          asize = asize0}’
    In the expression:
      setAst
        (Asteroid
           {apos = addWinMod apos0 avel0, avel = avel0, aort = ao + 0.05,
            asize = asize0})
    In an equation for ‘moveAsteroid’:
        moveAsteroid
          (Asteroid {apos = apos0, avel = avel0, aort = ao, asize = asize0})
          = setAst
              (Asteroid
                 {apos = addWinMod apos0 avel0, avel = avel0, aort = ao + 0.05,
                  asize = asize0})

Asteroids-haskelly.hs:512:13: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘Bullet
         {bpos = addWinMod bpos0 bvel0, bvel = bvel0, bcou = (bcou0 - 1),
          bort = bort0, bcol = (toInt (bcol0 + 1))}’
    In the expression:
      setBullet
        (Bullet
           {bpos = addWinMod bpos0 bvel0, bvel = bvel0, bcou = (bcou0 - 1),
            bort = bort0, bcol = (toInt (bcol0 + 1))})
    In an equation for ‘moveBullet’:
        moveBullet
          (Bullet {bpos = bpos0, bvel = bvel0, bcou = bcou0, bort = bort0,
                   bcol = bcol0})
          = setBullet
              (Bullet
                 {bpos = addWinMod bpos0 bvel0, bvel = bvel0, bcou = (bcou0 - 1),
                  bort = bort0, bcol = (toInt (bcol0 + 1))})

Asteroids-haskelly.hs:519:12: Warning:
    This binding for ‘bl’ shadows the existing binding
      bound at Asteroids-haskelly.hs:516:13

Asteroids-haskelly.hs:529:12: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = addWinMod gpos0 gvel0, gvel = gvel0, gcnt = (gcnt0 - 1),
          gcol = if (gcol0 < 11) then
                     (gcol0 + 1)
                 else
                     if ((gcnt0 < 5) && (gcol0 < 13)) then (gcol0 + 1) else gcol0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = addWinMod gpos0 gvel0, gvel = gvel0, gcnt = (gcnt0 - 1),
            gcol = if (gcol0 < 11) then
                       (gcol0 + 1)
                   else
                       if ((gcnt0 < 5) && (gcol0 < 13)) then (gcol0 + 1) else gcol0})
    In an equation for ‘moveShrep’:
        moveShrep
          (Shrepnel {gpos = gpos0, gvel = gvel0, gcnt = gcnt0, gcol = gcol0})
          = setShrep
              (Shrepnel
                 {gpos = addWinMod gpos0 gvel0, gvel = gvel0, gcnt = (gcnt0 - 1),
                  gcol = if (gcol0 < 11) then
                             (gcol0 + 1)
                         else
                             if ((gcnt0 < 5) && (gcol0 < 13)) then (gcol0 + 1) else gcol0})

Asteroids-haskelly.hs:537:12: Warning:
    This binding for ‘gl’ shadows the existing binding
      bound at Asteroids-haskelly.hs:534:12

Asteroids-haskelly.hs:578:25: Warning:
    Defaulting the following constraint(s) to type ‘Integer’
      (Show a0)
        arising from a use of ‘show’ at Asteroids-haskelly.hs:578:25-28
      (Num a0)
        arising from a use of ‘fromInt’ at Asteroids-haskelly.hs:578:31-37
    In the first argument of ‘(++)’, namely
      ‘show (fromInt (hits (stats s)))’
    In the second argument of ‘text’, namely
      ‘(show (fromInt (hits (stats s)))
        ++ "/" ++ show (fromInt (fails (stats s))))’
    In the expression:
      (text
         (120, 20)
         (show (fromInt (hits (stats s)))
          ++ "/" ++ show (fromInt (fails (stats s)))))

Asteroids-haskelly.hs:578:62: Warning:
    Defaulting the following constraint(s) to type ‘Integer’
      (Show a0)
        arising from a use of ‘show’ at Asteroids-haskelly.hs:578:62-65
      (Num a0)
        arising from a use of ‘fromInt’ at Asteroids-haskelly.hs:578:68-74
    In the second argument of ‘(++)’, namely
      ‘show (fromInt (fails (stats s)))’
    In the second argument of ‘(++)’, namely
      ‘"/" ++ show (fromInt (fails (stats s)))’
    In the second argument of ‘text’, namely
      ‘(show (fromInt (hits (stats s)))
        ++ "/" ++ show (fromInt (fails (stats s))))’

Asteroids-haskelly.hs:579:59: Warning:
    Defaulting the following constraint(s) to type ‘Integer’
      (Show a0)
        arising from a use of ‘show’ at Asteroids-haskelly.hs:579:59-62
      (Num a0)
        arising from a use of ‘fromInt’ at Asteroids-haskelly.hs:579:65-71
    In the first argument of ‘(++)’, namely
      ‘show (fromInt (ratio (stats s)))’
    In the second argument of ‘text’, namely
      ‘(show (fromInt (ratio (stats s))) ++ "%")’
    In the expression:
      (text (120, 35) (show (fromInt (ratio (stats s))) ++ "%"))

Asteroids-haskelly.hs:664:33: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (10, 15),
          avel = add (avel a) ((r !! 1), (r !! 5)), asize = (asize a + 1),
          aort = pi / 4}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (10, 15),
            avel = add (avel a) ((r !! 1), (r !! 5)), asize = (asize a + 1),
            aort = pi / 4})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (10, 15),
             avel = add (avel a) ((r !! 1), (r !! 5)), asize = (asize a + 1),
             aort = pi / 4}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, - 15),
             avel = add (avel a) ((r !! 2), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 3)})]

Asteroids-haskelly.hs:665:36: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (- 15, - 15),
          avel = add (avel a) ((r !! 2), (r !! 4)), asize = (asize a + 1),
          aort = pi / (- 3)}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (- 15, - 15),
            avel = add (avel a) ((r !! 2), (r !! 4)), asize = (asize a + 1),
            aort = pi / (- 3)})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (10, 15),
             avel = add (avel a) ((r !! 1), (r !! 5)), asize = (asize a + 1),
             aort = pi / 4}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, - 15),
             avel = add (avel a) ((r !! 2), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 3)})]

Asteroids-haskelly.hs:666:30: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (15, 15),
          avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
          aort = pi / 6}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (15, 15),
            avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
            aort = pi / 6})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 15),
             avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
             aort = pi / 6}),
       setAst
         (Asteroid
            {apos = add (apos a) (5, - 15),
             avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 7)}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 10),
             avel = add (avel a) ((r !! 7), (r !! 1)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 2)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / (- 2)})]

Asteroids-haskelly.hs:667:33: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (5, - 15),
          avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
          aort = pi / (- 7)}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (5, - 15),
            avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
            aort = pi / (- 7)})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 15),
             avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
             aort = pi / 6}),
       setAst
         (Asteroid
            {apos = add (apos a) (5, - 15),
             avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 7)}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 10),
             avel = add (avel a) ((r !! 7), (r !! 1)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 2)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / (- 2)})]

Asteroids-haskelly.hs:668:33: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (- 15, 10),
          avel = add (avel a) ((r !! 7), (r !! 1)),
          asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
          aort = pi / 2}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (- 15, 10),
            avel = add (avel a) ((r !! 7), (r !! 1)),
            asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
            aort = pi / 2})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 15),
             avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
             aort = pi / 6}),
       setAst
         (Asteroid
            {apos = add (apos a) (5, - 15),
             avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 7)}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 10),
             avel = add (avel a) ((r !! 7), (r !! 1)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 2)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / (- 2)})]

Asteroids-haskelly.hs:669:33: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (- 10, - 15),
          avel = add (avel a) ((r !! 2), (r !! 2)),
          asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
          aort = pi / (- 2)}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (- 10, - 15),
            avel = add (avel a) ((r !! 2), (r !! 2)),
            asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
            aort = pi / (- 2)})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 15),
             avel = add (avel a) ((r !! 3), (r !! 6)), asize = (asize a + 1),
             aort = pi / 6}),
       setAst
         (Asteroid
            {apos = add (apos a) (5, - 15),
             avel = add (avel a) ((r !! 5), (r !! 4)), asize = (asize a + 1),
             aort = pi / (- 7)}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 10),
             avel = add (avel a) ((r !! 7), (r !! 1)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 2)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / (- 2)})]

Asteroids-haskelly.hs:670:31: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (15, 10),
          avel = add (avel a) ((r !! 4), (r !! 5)), asize = (asize a + 1),
          aort = pi / (- 6)}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (15, 10),
            avel = add (avel a) ((r !! 4), (r !! 5)), asize = (asize a + 1),
            aort = pi / (- 6)})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 10),
             avel = add (avel a) ((r !! 4), (r !! 5)), asize = (asize a + 1),
             aort = pi / (- 6)}),
       setAst
         (Asteroid
            {apos = add (apos a) (10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 3)), asize = (asize a + 1),
             aort = pi / 7}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 15),
             avel = add (avel a) ((r !! 7), (r !! 6)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2})]

Asteroids-haskelly.hs:671:36: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (10, - 15),
          avel = add (avel a) ((r !! 2), (r !! 3)), asize = (asize a + 1),
          aort = pi / 7}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (10, - 15),
            avel = add (avel a) ((r !! 2), (r !! 3)), asize = (asize a + 1),
            aort = pi / 7})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 10),
             avel = add (avel a) ((r !! 4), (r !! 5)), asize = (asize a + 1),
             aort = pi / (- 6)}),
       setAst
         (Asteroid
            {apos = add (apos a) (10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 3)), asize = (asize a + 1),
             aort = pi / 7}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 15),
             avel = add (avel a) ((r !! 7), (r !! 6)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2})]

Asteroids-haskelly.hs:672:36: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘Asteroid
         {apos = add (apos a) (- 15, 15),
          avel = add (avel a) ((r !! 7), (r !! 6)),
          asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
          aort = pi / 2}’
    In the expression:
      setAst
        (Asteroid
           {apos = add (apos a) (- 15, 15),
            avel = add (avel a) ((r !! 7), (r !! 6)),
            asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
            aort = pi / 2})
    In the expression:
      [setAst
         (Asteroid
            {apos = add (apos a) (15, 10),
             avel = add (avel a) ((r !! 4), (r !! 5)), asize = (asize a + 1),
             aort = pi / (- 6)}),
       setAst
         (Asteroid
            {apos = add (apos a) (10, - 15),
             avel = add (avel a) ((r !! 2), (r !! 3)), asize = (asize a + 1),
             aort = pi / 7}),
       setAst
         (Asteroid
            {apos = add (apos a) (- 15, 15),
             avel = add (avel a) ((r !! 7), (r !! 6)),
             asize = if (asize a) == 0 then (asize a + 2) else (asize a + 1),
             aort = pi / 2})]

Asteroids-haskelly.hs:676:57: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = (apos a), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
          gcol = 0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = (apos a), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
            gcol = 0})
    In the expression:
      [setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 2), (r !! 4)), gcnt = 35,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
             gcol = 0})]

Asteroids-haskelly.hs:677:34: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = (apos a), gvel = ((r !! 2), (r !! 4)), gcnt = 35,
          gcol = 0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = (apos a), gvel = ((r !! 2), (r !! 4)), gcnt = 35,
            gcol = 0})
    In the expression:
      [setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 2), (r !! 4)), gcnt = 35,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
             gcol = 0})]

Asteroids-haskelly.hs:678:34: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = (apos a), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
          gcol = 0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = (apos a), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
            gcol = 0})
    In the expression:
      [setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 2), (r !! 4)), gcnt = 35,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (apos a), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
             gcol = 0})]

Asteroids-haskelly.hs:679:60: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = (spos sh), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
          gcol = 0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = (spos sh), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
            gcol = 0})
    In the expression:
      [setShrep
         (Shrepnel
            {gpos = (spos sh), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (spos sh), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
             gcol = 0})]

Asteroids-haskelly.hs:680:34: Warning:
    Fields of ‘Shrepnel’ not initialised: gshp
    In the first argument of ‘setShrep’, namely
      ‘Shrepnel
         {gpos = (spos sh), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
          gcol = 0}’
    In the expression:
      setShrep
        (Shrepnel
           {gpos = (spos sh), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
            gcol = 0})
    In the expression:
      [setShrep
         (Shrepnel
            {gpos = (spos sh), gvel = ((r !! 5), (r !! 7)), gcnt = 15,
             gcol = 0}),
       setShrep
         (Shrepnel
            {gpos = (spos sh), gvel = ((r !! 6), (r !! 3)), gcnt = 55,
             gcol = 0})]

Asteroids-haskelly.hs:685:10: Warning: Defined but not used: ‘sh’

Asteroids-haskelly.hs:696:10: Warning: Defined but not used: ‘b’

Asteroids-haskelly.hs:707:21: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0,
           aort = pi / 3})’
    In the expression:
      setAst
        (Asteroid
           {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0, aort = pi / 3})
    In the expression:
      [setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0,
             aort = pi / 3}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
             aort = pi / (- 4)}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0,
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})]

Asteroids-haskelly.hs:708:21: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
           aort = pi / (- 4)})’
    In the expression:
      setAst
        (Asteroid
           {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
            aort = pi / (- 4)})
    In the expression:
      [setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0,
             aort = pi / 3}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
             aort = pi / (- 4)}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0,
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})]

Asteroids-haskelly.hs:709:21: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0,
           aort = pi / 2})’
    In the expression:
      setAst
        (Asteroid
           {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0, aort = pi / 2})
    In the expression:
      [setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0,
             aort = pi / 3}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
             aort = pi / (- 4)}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0,
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})]

Asteroids-haskelly.hs:710:21: Warning:
    Fields of ‘Asteroid’ not initialised: ashp
    In the first argument of ‘setAst’, namely
      ‘(Asteroid
          {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})’
    In the expression:
      setAst
        (Asteroid
           {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})
    In the expression:
      [setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 5, r !! 2), asize = 0,
             aort = pi / 3}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 3, r !! 4), asize = 0,
             aort = pi / (- 4)}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 1, r !! 7), asize = 0,
             aort = pi / 2}),
       setAst
         (Asteroid
            {apos = (0, 0), avel = (r !! 6, r !! 8), asize = 0, aort = pi})]

Asteroids-haskelly.hs:723:6: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:735:22: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:783:18: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:787:20: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:791:17: Warning: Defined but not used: ‘a’

Asteroids-haskelly.hs:791:19: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:795:20: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:799:13: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:803:18: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:807:15: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:811:13: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:813:37: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘Bullet
         {bpos = spos (ship s), bort = (ornt (ship s)),
          bvel = polar bSpeed (ornt (ship s)), bcou = bMaxFlight, bcol = 0}’
    In the first argument of ‘(:)’, namely
      ‘(setBullet
          (Bullet
             {bpos = spos (ship s), bort = (ornt (ship s)),
              bvel = polar bSpeed (ornt (ship s)), bcou = bMaxFlight,
              bcol = 0}))’
    In the ‘bullets’ field of a record

Asteroids-haskelly.hs:822:14: Warning:
    This binding for ‘s’ shadows the existing binding
      bound at Asteroids-haskelly.hs:719:8

Asteroids-haskelly.hs:824:24: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘(Bullet
          {bpos = add (1, 0) (spos (ship s)),
           bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
           bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0})’
    In the expression:
      setBullet
        (Bullet
           {bpos = add (1, 0) (spos (ship s)),
            bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
            bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0})
    In the second argument of ‘(++)’, namely
      ‘[setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s))), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0}),
        ....]’

Asteroids-haskelly.hs:826:24: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘(Bullet
          {bpos = add (1, 0) (spos (ship s)),
           bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
           bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0})’
    In the expression:
      setBullet
        (Bullet
           {bpos = add (1, 0) (spos (ship s)),
            bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
            bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0})
    In the second argument of ‘(++)’, namely
      ‘[setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s))), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0}),
        ....]’

Asteroids-haskelly.hs:828:24: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘(Bullet
          {bpos = add (1, 0) (spos (ship s)),
           bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
           bvel = polar bSpeed ((ornt (ship s))), bcol = 0})’
    In the expression:
      setBullet
        (Bullet
           {bpos = add (1, 0) (spos (ship s)),
            bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
            bvel = polar bSpeed ((ornt (ship s))), bcol = 0})
    In the second argument of ‘(++)’, namely
      ‘[setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s))), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0}),
        ....]’

Asteroids-haskelly.hs:830:24: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘(Bullet
          {bpos = add (1, 0) (spos (ship s)),
           bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
           bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0})’
    In the expression:
      setBullet
        (Bullet
           {bpos = add (1, 0) (spos (ship s)),
            bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
            bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0})
    In the second argument of ‘(++)’, namely
      ‘[setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s))), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0}),
        ....]’

Asteroids-haskelly.hs:832:24: Warning:
    Fields of ‘Bullet’ not initialised: bshp
    In the first argument of ‘setBullet’, namely
      ‘(Bullet
          {bpos = add (1, 0) (spos (ship s)),
           bort = ((ornt (ship s)) - (pi / 6)), bcou = (bMaxFlight * 0.8),
           bvel = polar bSpeed ((ornt (ship s)) - (pi / 6)), bcol = 0})’
    In the expression:
      setBullet
        (Bullet
           {bpos = add (1, 0) (spos (ship s)),
            bort = ((ornt (ship s)) - (pi / 6)), bcou = (bMaxFlight * 0.8),
            bvel = polar bSpeed ((ornt (ship s)) - (pi / 6)), bcol = 0})
    In the second argument of ‘(++)’, namely
      ‘[setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 12)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 6)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) + (pi / 6)), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) + (pi / 360)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s))), bcol = 0}),
        setBullet
          (Bullet
             {bpos = add (1, 0) (spos (ship s)),
              bort = ((ornt (ship s)) - (pi / 12)), bcou = (bMaxFlight * 0.8),
              bvel = polar bSpeed ((ornt (ship s)) - (pi / 12)), bcol = 0}),
        ....]’

Asteroids-haskelly.hs:376:72: Warning:
    Literal 900 is out of the GHC.Word.Word8 range 0..255
Linking dist/build/asteroids-haskelly/asteroids-haskelly ...
Warning: No documentation was generated as this package does not contain a
library. Perhaps you want to use the --executables, --tests or --benchmarks
flags.
Installing executable(s) in
/home/builder/hackage-server/build-cache/tmp-install/bin
Warning: The directory
/home/builder/hackage-server/build-cache/tmp-install/bin is not in the system
search path.
Installed haskell-in-space-0.1.1

Test log

No test log was submitted for this report.