Fix haskell regex bug