Update Jaro.hs

Hello, i found error in your Jaro implementation that causes then metric sometimes are greater then 1.0

you should measure the distance as:  abs (i-j)  <  (max (|s1|, |s2|) `div `2)  - 1

in your case you do: abs (i-j)  <=  (max (|s1|, |s2|) `div `2)