File tree Expand file tree Collapse file tree 2 files changed +5
-2
lines changed
test/integration/tests/32-unlisted-module/files Expand file tree Collapse file tree 2 files changed +5
-2
lines changed Original file line number Diff line number Diff line change @@ -12,5 +12,6 @@ executable files-exe
1212 hs-source-dirs : src/../src
1313 main-is : Main.hs
1414 build-depends : base >= 4.7 && < 5
15+ , bytestring
1516 , file-embed
1617 default-language : Haskell2010
Original file line number Diff line number Diff line change 22{-# LANGUAGE OverloadedStrings #-}
33module Main where
44
5+ import qualified Data.ByteString.Char8 as C8
56import Data.FileEmbed
7+ import Data.List
68import Unlisted
79
810main :: IO ()
911main = do
1012 putStrLn (" main " ++ show foo ++ " " ++ show embedded)
11- if embedded == " FAIL\n "
13+ if " FAIL" `C8.isPrefixOf` embedded
1214 then error " embedded contains FAIL"
1315 else return ()
1416
15- embedded = $ (embedFile " embed.txt" )
17+ embedded = $ (embedFile " embed.txt" )
You can’t perform that action at this time.
0 commit comments