RegexReadPrice.hs

module RegexReadPrice where

import qualified Data.ByteString.Lazy.Char8 as C
import Data.Function ((&))
import GHC.Arr (Array, elems)
import Text.Regex.TDFA (getAllTextMatches, (=~))
import Control.Arrow ((>>>))

-- >>> matches (C.pack "1")
-- [["1","1"],["",""]]
matches :: C.ByteString -> [[String]]
matches s =
  (getAllTextMatches (s =~ "(.*)") :: Array Int (Array Int C.ByteString))
    & elems
    & fmap (elems >>> fmap C.unpack)