wip27

hbs2-git3/app/Main.hs

@@ -1213,6 +1213,10 @@ theDict = do
                   let (prefix,name) = L.splitAt 2 gitHash
                   let path = joinPath [d, "objects", prefix, name]
 
+                  here <- doesPathExist path
+
+                  unless here do
+
                     touch path
 
                     liftIO $ print $ pretty t <+> pretty s <+> pretty h <+> pretty path