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:
I hereby claim:
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 |
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 |