unbeliever-0.7.3.0: tests/Snippet.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}

import qualified Data.ByteString.Char8 as C

import Core.Program
import Core.Text
import Core.System

b = intoBytes (C.pack "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")

data Boom = Boom deriving Show
instance Exception Boom

main :: IO ()
main = execute $ do
    event "Processing..."
    debugR "b" b

    let x = error "No!"

    write $ case x of
        Nothing -> "Nothing!"

    sleep 0.2

    write "Done"