Github.hs

import           Data.Conduit.Shell
import qualified Data.Conduit.Shell.Segments as SH
import           System.Environment

main =
  do args <- getArgs
     case args of
       [user] ->
         do pos:_ <- run (SH.strings (posConduit user))
            putStrLn pos
       _ -> error "specify a username"

url = "https://gist.githubusercontent.com/paulmillr/2657075\
      \/raw/1d8bb770fa12fcac95d30252a0d28eed70e62630/active.md"

posConduit user =
  curl "-s" url $|
  grep user $|
  sed "-r" "s/.*>(\\#[0-9]+).*/\\1/"