mwotton

orb ➜  ~/projects/HLearn git:(master) ✗ halcyon build --ghc-version=7.10.1 --cabal-version=1.22.2.0
-----> Self-updating bashmenot... done, 1baf966
-----> Self-updating Halcyon... done, a6872f3
-----> Examining cache contents
       halcyon-build-cpphs-1.18.tar.gz
       halcyon-cabal-1.20.0.3-hackage-2015-05-16.tar.gz
       halcyon-cabal-1.22.2.0.tar.gz
       halcyon-cabal-1.22.2.0-hackage-2015-05-18.tar.gz
       halcyon-cabal-1.22.2.0-hackage-2015-05-19.tar.gz
       halcyon-cabal-1.22.3.0.tar.gz

mwotton

May 15 10:57:24 rhino kernel: [  280.044923] ------------[ cut here ]------------
May 15 10:57:24 rhino kernel: [  280.044926] kernel BUG at /build/buildd/linux-3.19.0/drivers/gpu/drm/drm_crtc.c:537!
May 15 10:57:24 rhino kernel: [  280.044931] invalid opcode: 0000 [#1] SMP 
May 15 10:57:24 rhino kernel: [  280.044994] Modules linked in: ctr ccm xt_multiport iptable_filter ip_tables x_tables rfcomm bnep intel_powerclamp coretemp kvm_intel mxm_wmi kvm crct10dif_pclmul crc32_pclmul ghash_clmulni_intel aesni_intel snd_hda_codec_hdmi aes_x86_64 lrw gf128mul glue_helper ablk_helper snd_hda_codec_conexant snd_hda_codec_generic cryptd joydev snd_hda_intel arc4 uvcvideo snd_hda_controller videobuf2_vmalloc videobuf2_memops qcserial serio_raw usb_wwan usbserial iwldvm snd_hda_codec videobuf2_core v4l2_common snd_hwdep videodev mac80211 i915 media snd_seq_midi intel_ips snd_seq_midi_event snd_pcm drm_kms_helper snd_rawmidi thinkpad_acpi nvram drm iwlwifi btusb bluetooth cfg80211 mei_me lpc_ich shpchp mei i2c_algo_bit s

mwotton

FROM ubuntu:14.10
RUN rm /bin/sh && ln -s /bin/bash /bin/sh
RUN apt-get update
RUN apt-get install -y curl
ADD ./halcyon.sh /halcyon.sh
RUN eval "$( cat /halcyon.sh )"; halcyon install
RUN apt-get install -y libssl-dev
RUN locale-gen en_US.UTF-8
RUN apt-get install -y libmagic-dev
RUN apt-get install -y pkg-config

mwotton

image: mwotton/meanpath-build-halcyon
cache:
  - /root/.cabal
  - /var/tmp/halcyon-cache

script:
 # - export PATH=/opt/ghc/7.8.2/bin:/opt/cabal/1.20/bin/:$PATH
  - eval "$( /app/halcyon/halcyon paths )"
  - cabal update
  - export LC_ALL=en_US.UTF-8

mwotton

annotateException :: (NFData a, Show t) => t -> a -> a
annotateException info f = unsafePerformIO $ do
  x <- try $ evaluate $ force f
  case x of
    Left (e::SomeException) -> do
      hPutStrLn  stderr $ show ("annotated:"::String, info)
      throw e
    Right y -> return y

mwotton

mwotton

  it "bar" $ do
    let (_::String,_::String,_::String, y::[String]) =
          ("facebook.com/D\233j\224-Vu-Interiors/358214894293267" :: String) =~ ("^facebook.com/(.*)" :: String)
    y  `shouldBe` ["D\233j\224-Vu-Interiors/358214894293267"]

mwotton

{-# LANGUAGE OverloadedStrings #-}

import           Blaze.ByteString.Builder (copyByteString)
import           Control.Applicative      ((<$>))
import           Control.Monad.IO.Class   (liftIO)
import qualified Data.HashMap.Strict      as HM
import           Data.IORef               (atomicModifyIORef, newIORef,
                                           readIORef)
import           Data.Maybe               (fromMaybe)
import           Data.Monoid

mwotton

g,g2,g3,g4,g5,g6,g7 :: (a -> b) -> (a, c) -> (b, c)
g x y = _foo
src/Text/FastEdit.hs:56:9:
    Found hole ‘_foo’ with type: (b, c)
    Where: ‘b’ is a rigid type variable bound by
               the type signature for g :: (a -> b) -> (a, c) -> (b, c)
               at src/Text/FastEdit.hs:55:24
           ‘c’ is a rigid type variable bound by
               the type signature for g :: (a -> b) -> (a, c) -> (b, c)

mwotton

deletions :: String -> [[String]]
deletions s = map (ordNub . deleteN s) [0..(length s)]

deleteN :: String -> Int -> [String]
deleteN s n = toList $ go s n
  where
    go :: String -> Int -> Seq.Seq String
    go s 0 = Seq.singleton s
    go (x:xs) n = go xs (n-1) <> fmap (x:) (go xs n)
    go [] _ = Seq.empty