snoyberg

after :: Enumerator a IO b -> Enumeratee a a IO b
after enum =
    loop
  where
    loop = checkDone $ continue . step
    step k EOF = enum (Continue k) >>== return
    step k s = k s >>== loop

snoyberg

{-# LANGUAGE OverloadedStrings #-}
import Language.Haskell.Parser
import Language.Haskell.Syntax
import System.Environment
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as T
import Data.Attoparsec.Text.Lazy
import Control.Applicative ((<|>))
import Data.Maybe (catMaybes)
import Data.Char (isSpace)

snoyberg

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE FlexibleContexts #-}
import Data.Maybe (fromMaybe)

class MaybeRead a where
    maybeRead :: String -> Maybe a

class MaybeRead (Language a) => I18N a where
    type Language a
    type Message a

snoyberg

import qualified Data.IORef as I
import qualified Control.Exception as E
import Control.Concurrent
import Control.Exception
import Control.Monad
import Network.Socket

main :: IO ()
main = do
  pairCount <- I.newIORef 0

snoyberg

{-# LANGUAGE OverloadedStrings, TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell #-}
module Yesod.Dynamic
    ( YesodDynamic
    , yesodDynamic
    , Handler
    , Widget
    , Method
    , returnY
    ) where

snoyberg

{-# LANGUAGE OverloadedStrings #-}
import Network.HTTP.Enumerator
import Data.Aeson
import Data.Aeson.Parser (json)
import System.Environment (getArgs)
import qualified Data.ByteString.Char8 as S8
import qualified Data.Attoparsec.Lazy as AL
import Data.Text (Text, unpack)

main = getArgs >>= mapM_ getInfo

snoyberg

{-# LANGUAGE OverloadedStrings #-}
import Network.Wai (responseLBS)
import Network.Wai.Handler.Warp (run)
import Network.HTTP.Types (status200)
import System.Posix.Signals (sigINT, installHandler, Handler (CatchOnce))
import Control.Concurrent (forkIO, killThread)
import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar)

app _ = return $ responseLBS status200 [] "foo"

snoyberg

module Text.XML.Xml2Html () where

import qualified Text.XML.Enumerator.Resolved as X
import qualified Text.Blaze as B
import qualified Text.Blaze.Html5 as B5
import qualified Text.Blaze.Internal as BI
import qualified Data.Text as T
import Data.String (fromString)
import Data.Monoid (mempty)
import Data.List (foldl')

snoyberg

{-# LANGUAGE FlexibleInstances #-}
import Database.Persist
import Control.Monad.Trans.Error
import Control.Monad.Trans.Class
import Data.Enumerator

newtype OcrError = OE String

instance Error OcrError

snoyberg

import Control.Monad.Trans.Error
import Control.Monad.Trans.Class
import Data.Enumerator

data In = In
data Out = Out

data OcrError = OcrError
instance Error OcrError