gistfile1.hs

store :: FilePath -> B.ByteString -> String -> String -> IO ()
store tfp bn pn pv = do
    de <- doesDirectoryExist pnd
    when de $ removeDirectoryRecursive pnd
    Tar.unpack packageDir . Tar.read . GZip.decompress =<< LBS.readFile tfp
    renameFile tfp $ cpackageDir ++ (T.unpack $ decodeUtf8 bn) 
  where
    pnd = packageDir ++ pn ++ [pathSeparator]