detectVersionControl :: ProjectRoot -> IO (Maybe Scm)
detectVersionControl root = detect
    [ doesDirectoryExist (root </> ".git") ~~> Git
    ]
detectVersionControl :: ProjectRoot -> IO (Maybe Scm)
detectVersionControl root = detect
    [ doesDirectoryExist (root </> ".git") ~~> Git
    ]
detectVersionControl root = detect
    [ doesDirectoryExist (root </> ".git") ~~> Git
    ]