More robust example parsing.

Author: Patrick Thomson

script/clone-example-repos

@@ -13,8 +13,8 @@
 set -e
 cd $(dirname "$0")/..
 
-mkdir -p test/examplerepos
-git clone --single-branch --recurse-submodules https://github.com/tree-sitter/haskell-tree-sitter.git tmp/haskell-tree-sitter
+mkdir -p test/examplerepos || true
+git clone --single-branch --recurse-submodules https://github.com/tree-sitter/haskell-tree-sitter.git tmp/haskell-tree-sitter || true
 
 dir="tmp/haskell-tree-sitter/languages"
 

test/Examples.hs

@@ -105,4 +105,4 @@ parseFilePath :: (Member (Error SomeException) sig, Member Distribute sig, Membe
 parseFilePath path = readBlob (fileForPath path) >>= parseTermBuilder @[] TermShow . pure >>= const (pure True)
 
 languagesDir :: FilePath
-languagesDir = "vendor/haskell-tree-sitter/languages"
+languagesDir = "tmp/haskell-tree-sitter/languages"