Template Haskell - read function