mwotton

typedef struct {
  int girlfriend;
} holder;

typedef struct {
  holder a;
} toplevel;

typedef struct {
  int this;

mwotton

CREATE TABLE
INSERT 0 2
 x 
---
 4
 5
(2 rows)

mwotton

   0    0    0    0    0    0    0    0    0    0  240    0    0    0    0    0 
   0    0    0    0    0    0    0    0    0    0    0    0    0    0    0    0 
1564    4    0    5    6    4    0  216  135  135    8    0   44   64    0    2 
   2    5    1    0    0    0    0    0    0    0   67  116    5   34   90   26 
   2   53    2   42   95  266  156    3   72  160    0    0   62   22  227   81 
  24    0  117   51  162   42    0    7    2    9    0    6    0    6    0  152 
   0  405   98  165  103  459   65   18  135  115   88   17  114  208  191  234 
 138    4  182  305  303   52   20    0   33   79    0    3    0    3    6    0 
   0    0    0    0    0    0    0    0    0    0    0    0    0    0    0    0 
   0    0    0    0    0    0    0    0    0    0    0    0    0    0    0    0 

mwotton

create function polycast(input text, typ anyelement) returns anyelement language plpgsql immutable as
$$
begin
  return input::anyelement;
end;
$$;

create function nullable(input text, typ anyelement) returns anyelement language plpgsql immutable as
$$
begin

mwotton

[Running cargo run]
   Compiling eris v0.1.0 (file:///home/mark/projects/eris)
warning: unused import: `std::io::Cursor`
  --> src/main.rs:13:5
   |
13 | use std::io::Cursor;
   |     ^^^^^^^^^^^^^^^
   |
   = note: #[warn(unused_imports)] on by default

mwotton

set ➜  ~  stack ghc test5.hs
[1 of 1] Compiling Main             ( test5.hs, test5.o )
Linking test5 ...
set ➜  ~  ./test5 &
[1] 23688
awaiting signal                                                                                                                     
set ➜  ~  kill 23688
[1]  + 23688 terminated  ./test5    

mwotton

set ➜  ~  ./test4 &         
[1] 23443
set ➜  ~  kill 23443
[1]  + 23443 terminated  ./test4                                                                                                                            
set ➜  ~  cat test4.hs
import Control.Exception
import Control.Concurrent

main :: IO ()
main = threadDelay 30000000 `finally` (putStrLn "come to collect")

mwotton

et ➜  ~  stack ghc test3.hs           
[1 of 1] Compiling Main             ( test3.hs, test3.o )
Linking test3 ...
set ➜  ~  ./test3 &         
[1] 23291
set ➜  ~  kill 23291        
[1]  + 23291 terminated  ./test3                                                                                                                            

set ➜  ~  cat test3.hs
import Control.Exception.Safe

mwotton

set ➜  ~  ./test2 &
[1] 22997
set ➜  ~  kill 22997
[1]  + 22997 terminated  ./test2                                                                                                                            
set ➜  ~  cat test2.hs
import Control.Exception
import Control.Concurrent

main :: IO ()
main = bracket (return ()) (\_ -> putStrLn "come to collect") (\_ -> threadDelay  30000000)

mwotton

Detected errors in 1 module.


-- TYPE MISMATCH ---------------------------------------------------------------

`thestruct` does not have a field named `quuux`.

6| main = text thestruct.quuux
               ^^^^^^^^^^^^^^^
The type of `thestruct` is: