mwotton

[368180:368180:0316/231004.490484:ERROR:gpu_process_host.cc(1002)] GPU process exited unexpectedly: exit_code=8704
[368180:368180:0316/231004.490508:WARNING:gpu_process_host.cc(1436)] The GPU process has crashed 1 time(s)
[368231:368248:0316/231004.509316:ERROR:ssl_client_socket_impl.cc(878)] handshake failed; returned -1, SSL error code 1, net_error -100
[368702:368702:0316/231004.517202:INFO:crash_reporting.cc(238)] Crash reporting enabled for process: gpu-process
[368702:368702:0316/231004.977203:WARNING:sandbox_linux.cc(430)] InitializeSandbox() called with multiple threads in process gpu-process.
[368180:368180:0316/231004.979270:WARNING:gpu_process_host.cc(1024)] Reinitialized the GPU process after a crash. The reported initialization time was 460 ms
[368180:368180:0316/231006.445262:ERROR:atom_cache.cc(229)] Add _NET_WM_STATE_KEEP_ABOVE to kAtomsToCache
[368702:368702:0316/231009.458681:ERROR:vulkan_swap_chain.cc(440)] vkAcquireNextImageKHR() failed: -1000001004
[368702:368702:0316/231009.458807:ERROR:

mwotton

{-# LANGUAGE BangPatterns #-}
import Control.DeepSeq

data Tree a = Leaf | Node (Tree a, a, Tree a)

--  -------  the original code  -----------------
zipAppend [] xs = xs
zipAppend xs [] = xs
zipAppend (x:xs) (y:ys) = (x ++ y) : zipAppend xs ys

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)