snoyberg / file-embed Goto Github PK

getDir :: FilePath -> IO [(FilePath, ByteString)]

{-#LANGUAGE TemplateHaskell #-}
{-#LANGUAGE CPP #-}

module Main where

import qualified Data.ByteString.UTF8 as BS8
import qualified Data.ByteString as BS
import Data.Monoid
import Data.FileEmbed

main :: IO ()
main = do
    putStrLn "***** Loaded at runtime with Data.ByteString.readFile: "
    loadStr >>= BS.putStr
    putStrLn "***** Embedded using Data.FileEmbed.embedFile: "
    BS.putStr embeddedStr

embeddedStr :: BS.ByteString
embeddedStr = $(embedFile __FILE__)

loadStr :: IO BS.ByteString
loadStr = BS.readFile __FILE__

-- What follows is some comment to trigger the bug.
-- ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙ ⚙
-- If this line appears in full, then all is fine.

$  cabal build test
Resolving dependencies...
Build profile: -w ghc-9.4.4 -O0
In order, the following will be built (use -v for more details):
 - file-embed-0.0.15.0 (lib) (first run)
 - file-embed-0.0.15.0 (test:test) (first run)
Configuring library for file-embed-0.0.15.0..
Preprocessing library for file-embed-0.0.15.0..
Building library for file-embed-0.0.15.0..
[1 of 1] Compiling Data.FileEmbed   ( Data/FileEmbed.hs, /Users/csasarak/file-embed/dist-newstyle/build/x86_64-osx/ghc-9.4.4/file-embed-0.0.15.0/noopt/build/Data/FileEmbed.o, /Users/csasarak/file-embed/dist-newstyle/build/x86_64-osx/ghc-9.4.4/file-embed-0.0.15.0/noopt/build/Data/FileEmbed.dyn_o )

Data/FileEmbed.hs:70:1: warning: [-Wunused-imports]
    The import of ‘Control.Applicative’ is redundant
      except perhaps to import instances from ‘Control.Applicative’
    To import instances alone, use: import Control.Applicative()
   |
70 | import Control.Applicative ((<$>))
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ld: warning: -undefined dynamic_lookup may not work with chained fixups
Configuring test suite 'test' for file-embed-0.0.15.0..
Preprocessing test suite 'test' for file-embed-0.0.15.0..
Building test suite 'test' for file-embed-0.0.15.0..
[1 of 1] Compiling Main             ( test/main.hs, /Users/csasarak/file-embed/dist-newstyle/build/x86_64-osx/ghc-9.4.4/file-embed-0.0.15.0/t/test/noopt/build/test/test-tmp/Main.o, /Users/csasarak/file-embed/dist-newstyle/build/x86_64-osx/ghc-9.4.4/file-embed-0.0.15.0/t/test/noopt/build/test/test-tmp/Main.dyn_o )
ghc-9.4.4: Stack space overflow: current size 33624 bytes.
ghc-9.4.4: Use `+RTS -Ksize -RTS' to increase it.
Error: cabal: Failed to build test:test from file-embed-0.0.15.0.

bitonic@stringer /tmp % cat foo.hs
{-# LANGUAGE TemplateHaskell #-}

import Data.ByteString
import Data.FileEmbed

myDir :: [(FilePath, Data.ByteString.ByteString)]
myDir = $(embedDir "static")
bitonic@stringer /tmp % mkdir static
bitonic@stringer /tmp % cat > static/blah
quux
bitonic@stringer /tmp % ghci foo.hs
GHCi, version 7.4.1: http://www.haskell.org/ghc/  :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
[1 of 1] Compiling Main             ( foo.hs, interpreted )
Loading package filepath-1.3.0.0 ... linking ... done.
Loading package old-locale-1.0.0.4 ... linking ... done.
Loading package old-time-1.1.0.0 ... linking ... done.
Loading package bytestring-0.9.2.1 ... linking ... done.
Loading package unix-2.5.1.0 ... linking ... done.
Loading package directory-1.1.0.2 ... linking ... done.
Loading package array-0.4.0.0 ... linking ... done.
Loading package deepseq-1.3.0.0 ... linking ... done.
Loading package containers-0.4.2.1 ... linking ... done.
Loading package pretty-1.1.1.0 ... linking ... done.
Loading package template-haskell ... linking ... done.
Loading package file-embed-0.0.4.2 ... linking ... done.
*** Exception: blah: getFileStatus: does not exist (No such file or directory)
λ> 

Text/Shakespeare/Base.hs:288:9: error:
    Ambiguous occurrence ‘makeRelativeToProject’
    It could refer to
       either ‘Language.Haskell.TH.Syntax.makeRelativeToProject’,
              imported from ‘Language.Haskell.TH.Syntax’ at Text/Shakespeare/Base.hs:30:1-33
           or ‘Data.FileEmbed.makeRelativeToProject’,
              imported from ‘Data.FileEmbed’ at Text/Shakespeare/Base.hs:33:24-44
    |
288 |   fp <- makeRelativeToProject rawFp
    |         ^^^^^^^^^^^^^^^^^^^^^

Text/Shakespeare/Base.hs:297:9: error:
    Ambiguous occurrence ‘makeRelativeToProject’
    It could refer to
       either ‘Language.Haskell.TH.Syntax.makeRelativeToProject’,
              imported from ‘Language.Haskell.TH.Syntax’ at Text/Shakespeare/Base.hs:30:1-33
           or ‘Data.FileEmbed.makeRelativeToProject’,
              imported from ‘Data.FileEmbed’ at Text/Shakespeare/Base.hs:33:24-44
    |
297 |   fp <- makeRelativeToProject rawFp
    |         ^^^^^^^^^^^^^^^^^^^^^

There are a few extra flags which have been introduced to make working with multiple
units easier.

.. ghc-flag:: -working-dir ⟨dir⟩
    :shortdesc: Specify the directory a unit is expected to be compiled in.
    :type: dynamic
    :category:

    It is common to assume that a package is compiled in the directory where its
    cabal file resides. Thus, all paths used in the compiler are assumed to be relative
    to this directory. When there are multiple home units the compiler is often
    not operating in the standard directory and instead where the cabal.project
    file is located. In this case the `-working-dir` option can be passed which specifies
    the path from the current directory to the directory the unit assumes to be it's root,
    normally the directory which contains the cabal file.

    When the flag is passed, any relative paths used by the compiler are offset
    by the working directory. Notably this includes `-i`:ghc-flag: and `-I⟨dir⟩`:ghc-flag: flags.


    This option can also be queried by the ``getPackageRoot`` Template Haskell
    function. It is intended to be used with helper functions such as ``makeRelativeToProject``
    which make relative filepaths relative to the compilation directory rather than
    the directory which contains the .cabal file.

/Users/simon/src/file-embed/Data/FileEmbed.hs:146:21: error:
    • Couldn't match expected type ‘Maybe Exp’ with actual type ‘Exp’
    • In the expression: LitE $ StringL path
      In the first argument of ‘TupE’, namely
        ‘[LitE $ StringL path, exp']’
      In the second argument of ‘($!)’, namely
        ‘TupE [LitE $ StringL path, exp']’
    |
146 |     return $! TupE [LitE $ StringL path, exp']
    |                     ^^^^^^^^^^^^^^^^^^^

/Users/simon/src/file-embed/Data/FileEmbed.hs:146:42: error:
    • Couldn't match expected type ‘Maybe Exp’ with actual type ‘Exp’
    • In the expression: exp'
      In the first argument of ‘TupE’, namely
        ‘[LitE $ StringL path, exp']’
      In the second argument of ‘($!)’, namely
        ‘TupE [LitE $ StringL path, exp']’
    |
146 |     return $! TupE [LitE $ StringL path, exp']
    |                                          ^^^^