fix: drop the leading space

2022-08-24 13:52:43 +02:00
parent 5645134aa3
commit d953c0f503
1 changed files with 1 additions and 1 deletions
--- a/Setup.hs
+++ b/Setup.hs
@@ -139,7 +139,7 @@ mkInfo = do
    getPath s =
      let l = last (lines s)
      in if take 14 l == "Shared folder:"
-           then Just (drop 14 l </> "lib")
+           then Just (drop 15 l </> "lib")
           else Nothing

 getRGLBuildDir :: Info -> Mode -> FilePath