mirror of
https://github.com/michaelt/lens-simple.git
synced 2024-08-16 09:00:26 +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