mirror of
https://github.com/michaelt/lens-simple.git
synced 2024-10-05 17:47:42 +03:00
turtle example, upload script
This commit is contained in:
parent
d8452fc057
commit
db7db53e9b
64
examples/Turtle.hs
Normal file
64
examples/Turtle.hs
Normal file
@ -0,0 +1,64 @@
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
-- | A simple Turtle-graphics demonstration for modeling the location of a turtle.
|
||||
--
|
||||
-- This is based on the code presented by Seth Tisue at the Boston Area Scala
|
||||
-- Enthusiasts meeting during his lens talk.
|
||||
--
|
||||
-- Usage:
|
||||
--
|
||||
-- > def & forward 10 & down & tColor .~ red & turn (pi/2) & forward 5
|
||||
-- Turtle {_tPoint = Point {__x = 5.0, __y = 10.0}
|
||||
-- , _tColor = Color {__r = 255, __g = 0, __b = 0}
|
||||
-- , _heading = 1.5707963267948966
|
||||
-- , _penDown = True}
|
||||
|
||||
module Turtle where
|
||||
|
||||
import Lens.Simple
|
||||
import Data.Default
|
||||
|
||||
data Point = Point
|
||||
{ __x, __y :: Double
|
||||
} deriving (Eq,Show)
|
||||
|
||||
makeLenses ''Point
|
||||
|
||||
instance Default Point where
|
||||
def = Point def def
|
||||
|
||||
data Color = Color
|
||||
{ __r, __g, __b :: Int
|
||||
} deriving (Eq,Show)
|
||||
|
||||
makeLenses ''Color
|
||||
|
||||
red :: Color
|
||||
red = Color 255 0 0
|
||||
|
||||
instance Default Color where
|
||||
def = Color def def def
|
||||
|
||||
data Turtle = Turtle
|
||||
{ _tPoint :: Point
|
||||
, _tColor :: Color
|
||||
, _heading :: Double
|
||||
, _penDown :: Bool
|
||||
} deriving (Eq,Show)
|
||||
|
||||
makeLenses ''Turtle
|
||||
|
||||
instance Default Turtle where
|
||||
def = Turtle def def def False
|
||||
|
||||
forward :: Double -> Turtle -> Turtle
|
||||
forward d t =
|
||||
t & tPoint._y +~ d * cos (t^.heading)
|
||||
& tPoint._x +~ d * sin (t^.heading)
|
||||
|
||||
turn :: Double -> Turtle -> Turtle
|
||||
turn d = heading +~ d
|
||||
|
||||
up, down :: Turtle -> Turtle
|
||||
up = penDown .~ False
|
||||
down = penDown .~ True
|
46
upload.sh
Executable file
46
upload.sh
Executable file
@ -0,0 +1,46 @@
|
||||
#!/bin/bash
|
||||
set -e
|
||||
|
||||
if [ "$#" -ne 1 ]; then
|
||||
echo "Usage: scripts/hackage-docs.sh HACKAGE_USER"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
user=$1
|
||||
|
||||
cabal_file=$(find . -maxdepth 1 -name "*.cabal" -print -quit)
|
||||
if [ ! -f "$cabal_file" ]; then
|
||||
echo "Run this script in the top-level package directory"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
pkg=$(awk -F ":[[:space:]]*" 'tolower($1)=="name" { print $2 }' < "$cabal_file")
|
||||
ver=$(awk -F ":[[:space:]]*" 'tolower($1)=="version" { print $2 }' < "$cabal_file")
|
||||
|
||||
if [ -z "$pkg" ]; then
|
||||
echo "Unable to determine package name"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ -z "$ver" ]; then
|
||||
echo "Unable to determine package version"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
echo "Detected package: $pkg-$ver"
|
||||
|
||||
dir=$(mktemp -d build-docs.XXXXXX)
|
||||
trap 'rm -r "$dir"' EXIT
|
||||
|
||||
cabal haddock --hyperlink-source --html-location='/package/$pkg-$version/docs' --contents-location='/package/$pkg-$version'
|
||||
|
||||
cp -R dist/doc/html/$pkg/ $dir/$pkg-$ver-docs
|
||||
|
||||
tar cvz -C $dir --format=ustar -f $dir/$pkg-$ver-docs.tar.gz $pkg-$ver-docs
|
||||
|
||||
curl -X PUT \
|
||||
-H 'Content-Type: application/x-tar' \
|
||||
-H 'Content-Encoding: gzip' \
|
||||
-u "$user" \
|
||||
--data-binary "@$dir/$pkg-$ver-docs.tar.gz" \
|
||||
"https://hackage.haskell.org/package/$pkg-$ver/docs"
|
Loading…
Reference in New Issue
Block a user