How do you graph an arc with an arrow in the end ?

Questions
1 
Graphics[Arrow[Circle[{0, 0}, 1, {Pi/4, 3 Pi/4}]]]
2 
arcArrow := Module[{},

cList = Throw[ Thread[{ x,Sqrt[1-x^2] }/. x -> Table[i,{i,-1,1,0.0001}] (* End Thread *) ](* End Throw *)]
(* End Module *)];

Graphics[ Arrow[Catch[arcArrow[cList]]]]
3 
Graphics[{Arrow[BezierCurve[{{0, 0}, {.1, 1.3}, {1.9, 1.3}, {2, 0}}]]}]
4

teta = 2 Pi/3;
r = 0.3;
arc = {Arrowheads[0.05],
Arrow[Table[r*{Cos, Sin}, {phi, 0, teta, Pi/32}]]};
Graphics[{Line[{{r, 0}, r {Cos, Sin}}], arc,
Circle[{0, 0}, r]}]

5

Many examples here and here and here