Code for creating an circle with spokes

diagram.hs

{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts          #-}
{-# LANGUAGE TypeFamilies              #-}

import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine

rules :: Diagram B
rules = foldr1 (<>) hands
    where
    hands = [ (vrule 0.5 # translateY 0.75 # rotateBy (n/10)) | n <- [1..10]]

myCircle :: Diagram B
myCircle = circle 1 <> (circle 0.5 # fc grey) <> rules

main = mainWith myCircle