Skip to content
Andy Gill edited this page Dec 6, 2019 · 7 revisions

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Graphics.Blank

main :: IO ()
main = do
    blankCanvas 3000 $ \ context -> do
        url <- staticURL context "type/jpeg" "images/Haskell.jpg"
        send context $ do
            img <- newImage url
            drawImage(img,[69,50,97,129])
Clone this wiki locally