Can't use .. with makeRelativeToProject.

When the package is used from another repo it results in the error: ``` bowtie-example> /tmp/stack16232/bowtie-example-0.0.0/src/Bowtie/Example.hs:25:11: error: bowtie-example> • Exception when trying to run compile-time code: bowtie-example> /tmp/stack16232/bowtie-example-0.0.0/../well-typed-examples: getDirectoryContents:openDirStream: does not exist (No such file or directory) bowtie-example> Code: makeRelativeToProject "../well-typed-examples" >>= embedDir bowtie-example> • In the untyped splice: bowtie-example> $(makeRelativeToProject "../well-typed-examples" >>= embedDir) bowtie-example> | bowtie-example> 25 | process $(makeRelativeToProject "../well-typed-examples" >>= embedDir) bowtie-example> | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ```
seagreen · Nov 3, 2019 · 4519a4a · 4519a4a
1 parent 0346188
commit 4519a4a
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/spec/bowtie-example-hs/bowtie-example.cabal → spec/bowtie-example.cabal b/spec/bowtie-example-hs/bowtie-example.cabal → spec/bowtie-example.cabal
diff --git a/spec/bowtie-example-hs/package.yaml → spec/package.yaml b/spec/bowtie-example-hs/package.yaml → spec/package.yaml
diff --git a/spec/bowtie-example-hs/src/Bowtie/Example.hs → spec/src/Bowtie/Example.hs b/spec/bowtie-example-hs/src/Bowtie/Example.hs → spec/src/Bowtie/Example.hs
@@ -22,19 +22,19 @@ import Prelude
 -- we don't want this package to depend on the language implementation.)
 wellTyped :: [(FilePath, Text)]
 wellTyped =
-  process $(makeRelativeToProject "../well-typed-examples" >>= embedDir)
+  process $(makeRelativeToProject "well-typed-examples" >>= embedDir)
 
 illTyped :: [(FilePath, Text)]
 illTyped =
-  process $(makeRelativeToProject "../ill-typed-examples" >>= embedDir)
+  process $(makeRelativeToProject "ill-typed-examples" >>= embedDir)
 
 validSyntax :: [(FilePath, Text)]
 validSyntax =
-  process $(makeRelativeToProject "../valid-syntax-examples" >>= embedDir)
+  process $(makeRelativeToProject "valid-syntax-examples" >>= embedDir)
 
 invalidSyntax :: [(FilePath, Text)]
 invalidSyntax =
-  process $(makeRelativeToProject "../invalid-syntax-examples" >>= embedDir)
+  process $(makeRelativeToProject "invalid-syntax-examples" >>= embedDir)
 
 -- | Internal
 process :: [(FilePath, ByteString)] -> [(FilePath, Text)]

diff --git a/stack.yaml b/stack.yaml
@@ -5,7 +5,7 @@ packages:
   - bowtie-blueprint
   - bowtie-js
   - bowtie-visualize
-  - spec/bowtie-example-hs
+  - spec
 
 extra-deps:
   - cmark-0.5.6.3 # get the latest