Skip to content

Instantly share code, notes, and snippets.

View mpickering's full-sized avatar

Matthew Pickering mpickering

  • Well Typed LLP
  • Sheffield, UK
View GitHub Profile
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho
{-# LANGUAGE GADTs #-}
{-# LANGUAGE TypeApplications #-}
module Foo where
data Silly a where
Silly :: Ord a => a -> Silly a
isItSilly :: a -> Silly a -> Bool
isItSilly a (Silly x) = a < x
[1 of 1] Compiling Foo ( test.hs, test.o )
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 87, types: 58, coercions: 0, joins: 0/0}
-- RHS size: {terms: 10, types: 11, coercions: 0, joins: 0/0}
isItSilly :: forall a. a -> Silly a -> Bool
[GblId,
Arity=2,
[1 of 1] Compiling Foo ( test.hs, test.o )
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 87, types: 58, coercions: 0, joins: 0/0}
-- RHS size: {terms: 10, types: 11, coercions: 0, joins: 0/0}
isItSilly :: forall a. a -> Silly a -> Bool
[GblId,
Arity=2,
[1 of 1] Compiling Foo ( test.hs, test.o )
==================== Tidy Core ====================
Result size of Tidy Core
= {terms: 89, types: 63, coercions: 0, joins: 0/0}
-- RHS size: {terms: 10, types: 11, coercions: 0, joins: 0/0}
isItSilly :: forall a. a -> Silly a -> Bool
[GblId,
Arity=2,
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho
This file has been truncated, but you can view the full file.
<?xml version="1.0" encoding="UTF-8"?>
<map xmlns="http://openorienteering.org/apps/mapper/xml/v2" version="7"><notes></notes><georeferencing scale="5000" declination="0.000000" grivation="0.000000"><ref_point x="0" y="0"/><projected_crs id="UTM"><ref_point x="532618.611931" y="5699861.807042"/><spec language="PROJ.4">+proj=utm +datum=WGS84 +zone=30</spec><parameter>30 N</parameter></projected_crs><geographic_crs id="Geographic coordinates"><ref_point_deg lat="51.449000" lon="-2.530600"/><spec language="PROJ.4">+proj=latlong +datum=WGS84</spec></geographic_crs></georeferencing><colors count="36"><color priority="0" name="Purple" c="0.200" m="1.000" y="0.000" k="0.000" opacity="1.000"><spotcolors><namedcolor>PURPLE</namedcolor></spotcolors><cmyk method="custom"/><rgb method="cmyk" r="0.800" g="0.000" b="1.000"/></color><color priority="1" name="Purple 50%" c="0.100" m="0.500" y="0.000" k="0.000" opacity="1.000"><spotcolors><component factor="0.5" spotcolor="0"/></spotcolors><cmyk method="spotcolor"/><rgb metho