Skip to content

Instantly share code, notes, and snippets.

View mwotton's full-sized avatar

Mark Wotton mwotton

View GitHub Profile

Keybase proof

I hereby claim:

  • I am mwotton on github.
  • I am mwotton (https://keybase.io/mwotton) on keybase.
  • I have a public key whose fingerprint is EF9A E6C0 7F83 FF11 39CD 68A4 479A D763 E814 BD91

To claim this, I am signing this object:

markdev ➜ ~ cat andy.hs
data Foo = FooCon { bar :: String, baz :: Int, quux :: [Foo]}
deriving (Show,Eq)
main = do
let FooCon { baz=b2, bar=b1, quux=b3 } = FooCon "abc" 1 []
print b1
print b2
print b3
markdev ➜ ~ runhaskell andy.hs
@mwotton
mwotton / gist:11210585
Created April 23, 2014 10:50
well hello, completely unrepeatable coredump.
rhino ➜ ~/projects/meanpath/httpDumper git:(master) ✗ cabal install --only-dependencies --enable-tests --enable-benchmarks -j --force-reinstalls
Resolving dependencies...
Notice: installing into a sandbox located at
/home/mwotton/projects/meanpath/httpDumper/.cabal-sandbox
Configuring ansi-terminal-0.6.1.1...
cabal: internal error: scavenge_stack: weird activation record found on stack: 415597384
(GHC version 7.8.1 for x86_64_unknown_linux)
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
[1] 1009 abort (core dumped) cabal install --only-dependencies --enable-tests --enable-benchmarks -j
import Control.Monad
import System.IO
main :: IO ()
main = do
hSetBuffering stdout LineBuffering
forever $ do
getLine >> emptyStdin
putStrLn "x"
module Net.TimedQueue (
TimedQueue,
new,
enqueue,
dequeue
)
where
import Data.Sequence
import Data.Time (UTCTime)
-- Initial sform.cabal generated by cabal init. For further documentation,
-- see http://haskell.org/cabal/users-guide/
name: sform
version: 0.1.0.0
-- synopsis:
-- description:
-- license:
license-file: LICENSE
author: Mark Wotton
[ 1 of 22] Compiling Language.Haskell.Exts.Annotated.Syntax ( src/Language/Haskell/Exts/Annotated/Syntax.hs, dist/build/Language/Haskell/Exts/Annotated/Syntax.p_o )
/tmp/ghc11473_0/ghc11473_3.s:1:0:
internal compiler error: Segmentation fault
.section .rodata
^
Please submit a full bug report,
with preprocessed source if appropriate.
See <file:///usr/share/doc/gcc-4.8/README.Bugs> for instructions.
JOB "caveman . +RTS -T -N8 -hc"
DATE "Mon May 26 06:51 2014"
SAMPLE_UNIT "seconds"
VALUE_UNIT "bytes"
BEGIN_SAMPLE 0.00
END_SAMPLE 0.00
BEGIN_SAMPLE 0.43
(655)def/Language.Pythia.Q... 216
(649)table/Language.Pythia... 216
(652)(...)/table/Language.... 456
until' prod consumer = do
r <- prod
case r of
Nothing -> return ()
Just x -> consumer x >> until' prod consumer
dunno :: Row -> Enumerator Builder IO a
dunno r = \step -> case step of
Continue s -> s $ Chunks [fromLazyByteString $ encode r]
Yield a b -> Iteratee . return . Yield a $ b
Error s -> error (show s)
-- app worker = do