Haskell URL shortener