In[]:=
Graph[{12,23,31},EdgeStyleBlue,EdgeShapeFunction{"Arrow"}]
Out[]=