test-post-gist.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Applicative
import Data.Char

import Data.Attoparsec.Text
import Data.Text (Text)


main :: IO ()
main = getArgs >>= print . parseOnly identifier . read . head

identifier :: Parser Text
identifier = "$" .*> (withBraces <|> withoutBraces)
  where
    withBraces = "{" .*> takeWhile1 (/= '}') <*. "}"
    withoutBraces = takeWhile1 isAlphaNum