Skip to content

Instantly share code, notes, and snippets.

@aluink

aluink/gist:1584772

Created January 9, 2012 20:28
Show Gist options
  • Save aluink/1584772 to your computer and use it in GitHub Desktop.
Save aluink/1584772 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
import Data.FileStore.Git
import Data.FileStore.Types
main :: IO ()
main = do
initialize fs
save fs "testfile" a "some stuff" "some data"
where
fs = gitFileStore "./testdir"
a = Author "eric" "email"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment