Tests not compiling
Opened this issue · 1 comments
k0001 commented
@nix { "action": "setPhase", "phase": "setupCompilerEnvironmentPhase" }
setupCompilerEnvironmentPhase
Build with /nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1.
@nix { "action": "setPhase", "phase": "unpackPhase" }
unpacking sources
unpacking source archive /nix/store/4kdq9ia4lcszb9afbl7gg58s29as04pf-servant-static-th-1.0.0.0.tar.gz
source root is servant-static-th-1.0.0.0
setting SOURCE_DATE_EPOCH to timestamp 1611152934 of file servant-static-th-1.0.0.0/test/Spec/ServerSpec.hs
@nix { "action": "setPhase", "phase": "patchPhase" }
patching sources
@nix { "action": "setPhase", "phase": "compileBuildDriverPhase" }
compileBuildDriverPhase
setupCompileFlags: -package-db=/build/tmp.jPVZZzmdcS/setup-package.conf.d -j16 +RTS -A64M -RTS -threaded -rtsopts
[1 of 2] Compiling Main ( Setup.hs, /build/tmp.jPVZZzmdcS/Main.o )
[2 of 2] Linking Setup
@nix { "action": "setPhase", "phase": "updateAutotoolsGnuConfigScriptsPhase" }
updateAutotoolsGnuConfigScriptsPhase
@nix { "action": "setPhase", "phase": "configurePhase" }
configuring
configureFlags: --verbose --prefix=/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/nix/store/myhdis6jc84d8b8zzy4scj1llcc3amfv-servant-static-th-1.0.0.0-doc/share/doc/servant-static-th-1.0.0.0 --with-gcc=gcc --package-db=/build/tmp.jPVZZzmdcS/package.conf.d --ghc-options=-j16 +RTS -A64M -RTS --disable-split-objs --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --disable-benchmarks --enable-library-vanilla --disable-library-for-ghci --ghc-option=-split-sections --ghc-options=-haddock --extra-lib-dirs=/nix/store/5i51nfixxx3p3gshkfsjj4bzp7wajwxz-ncurses-6.4/lib --extra-lib-dirs=/nix/store/9kd4bc8fpclpvf1vdwlbila71svyb6w1-libffi-3.4.4/lib --extra-lib-dirs=/nix/store/a7lb858d0gylghivrfgd8k0dpgi87xwp-elfutils-0.190/lib --extra-lib-dirs=/nix/store/s3s7gv33p88kzbgki2bprg2a1nc7jnf8-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/lib
Using Parsec parser
Configuring servant-static-th-1.0.0.0...
Flags chosen: buildexample=False
Dependency base >=4.8 && <5: using base-4.19.0.0
Dependency blaze-html: using blaze-html-0.9.1.2
Dependency bytestring: using bytestring-0.12.0.2
Dependency containers: using containers-0.6.8
Dependency directory >=1.2.5.0: using directory-1.3.8.1
Dependency filepath: using filepath-1.4.100.4
Dependency http-media: using http-media-0.8.1.1
Dependency semigroups: using semigroups-0.20
Dependency servant >=0.8: using servant-0.20.1
Dependency servant-blaze >=0.7: using servant-blaze-0.9.1
Dependency servant-server >=0.8: using servant-server-0.20
Dependency template-haskell: using template-haskell-2.21.0.0
Dependency text: using text-2.1
Dependency Glob: using Glob-0.10.2
Dependency base: using base-4.19.0.0
Dependency doctest: using doctest-0.22.2
Dependency base: using base-4.19.0.0
Dependency blaze-html: using blaze-html-0.9.1.2
Dependency bytestring: using bytestring-0.12.0.2
Dependency directory: using directory-1.3.8.1
Dependency filepath: using filepath-1.4.100.4
Dependency hspec-wai: using hspec-wai-0.11.1
Dependency servant: using servant-0.20.1
Dependency servant-blaze: using servant-blaze-0.9.1
Dependency servant-server: using servant-server-0.20
Dependency servant-static-th: using servant-static-th-1.0.0.0
Dependency tasty: using tasty-1.5
Dependency tasty-hspec: using tasty-hspec-1.2.0.4
Dependency tasty-hunit: using tasty-hunit-0.10.1
Dependency wai: using wai-3.2.3
Source component graph:
component test:servant-static-th-doctest
component lib
component test:servant-static-th-test dependency lib
Configured component graph:
component servant-static-th-1.0.0.0-Gf0JRl0LOlJH7QqAq3egcu-servant-static-th-doctest
include Glob-0.10.2-5wtbbWWlpvHDlEzR8rhOk5
include base-4.19.0.0-inplace
include doctest-0.22.2-GNADHsJpBOCGoZihEw8jdB
component servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
include base-4.19.0.0-inplace
include blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
include bytestring-0.12.0.2-inplace
include containers-0.6.8-inplace
include directory-1.3.8.1-inplace
include filepath-1.4.100.4-inplace
include http-media-0.8.1.1-Hn47BiyXnjC2UfOtCR8Az8
include semigroups-0.20-E5GWr2A9lEaLFFYy4Mn0aN
include servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
include servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
include servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
include template-haskell-2.21.0.0-inplace
include text-2.1-inplace
component servant-static-th-1.0.0.0-6clajfMJDw7BzItuZrU0jc-servant-static-th-test
include base-4.19.0.0-inplace
include blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
include bytestring-0.12.0.2-inplace
include directory-1.3.8.1-inplace
include filepath-1.4.100.4-inplace
include hspec-wai-0.11.1-7Zw367T24ty8GHLFD0n3Ec
include servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
include servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
include servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
include servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
include tasty-1.5-5P11eN7UrPQ7gjLMV13jao
include tasty-hspec-1.2.0.4-5Cc8P1Pfq1BEu4izxYUEno
include tasty-hunit-0.10.1-JSQDxk9lM8dCFxWFiE71D6
include wai-3.2.3-1Efsg7fpcjiF2EGPl1cm3G
Linked component graph:
unit servant-static-th-1.0.0.0-Gf0JRl0LOlJH7QqAq3egcu-servant-static-th-doctest
include Glob-0.10.2-5wtbbWWlpvHDlEzR8rhOk5
include base-4.19.0.0-inplace
include doctest-0.22.2-GNADHsJpBOCGoZihEw8jdB
unit servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
include base-4.19.0.0-inplace
include blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
include bytestring-0.12.0.2-inplace
include containers-0.6.8-inplace
include directory-1.3.8.1-inplace
include filepath-1.4.100.4-inplace
include http-media-0.8.1.1-Hn47BiyXnjC2UfOtCR8Az8
include semigroups-0.20-E5GWr2A9lEaLFFYy4Mn0aN
include servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
include servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
include servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
include template-haskell-2.21.0.0-inplace
include text-2.1-inplace
Servant.Static.TH=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH,Servant.Static.TH.Internal=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal,Servant.Static.TH.Internal.Api=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal.Api,Servant.Static.TH.Internal.FileTree=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal.FileTree,Servant.Static.TH.Internal.Mime=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal.Mime,Servant.Static.TH.Internal.Server=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal.Server,Servant.Static.TH.Internal.Util=servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd:Servant.Static.TH.Internal.Util
unit servant-static-th-1.0.0.0-6clajfMJDw7BzItuZrU0jc-servant-static-th-test
include base-4.19.0.0-inplace
include blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
include bytestring-0.12.0.2-inplace
include directory-1.3.8.1-inplace
include filepath-1.4.100.4-inplace
include hspec-wai-0.11.1-7Zw367T24ty8GHLFD0n3Ec
include servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
include servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
include servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
include servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
include tasty-1.5-5P11eN7UrPQ7gjLMV13jao
include tasty-hspec-1.2.0.4-5Cc8P1Pfq1BEu4izxYUEno
include tasty-hunit-0.10.1-JSQDxk9lM8dCFxWFiE71D6
include wai-3.2.3-1Efsg7fpcjiF2EGPl1cm3G
Ready component graph:
definite servant-static-th-1.0.0.0-Gf0JRl0LOlJH7QqAq3egcu-servant-static-th-doctest
depends Glob-0.10.2-5wtbbWWlpvHDlEzR8rhOk5
depends base-4.19.0.0-inplace
depends doctest-0.22.2-GNADHsJpBOCGoZihEw8jdB
definite servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
depends base-4.19.0.0-inplace
depends blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
depends bytestring-0.12.0.2-inplace
depends containers-0.6.8-inplace
depends directory-1.3.8.1-inplace
depends filepath-1.4.100.4-inplace
depends http-media-0.8.1.1-Hn47BiyXnjC2UfOtCR8Az8
depends semigroups-0.20-E5GWr2A9lEaLFFYy4Mn0aN
depends servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
depends servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
depends servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
depends template-haskell-2.21.0.0-inplace
depends text-2.1-inplace
definite servant-static-th-1.0.0.0-6clajfMJDw7BzItuZrU0jc-servant-static-th-test
depends base-4.19.0.0-inplace
depends blaze-html-0.9.1.2-LU4PdqfluMFAXQJ7C5cUjo
depends bytestring-0.12.0.2-inplace
depends directory-1.3.8.1-inplace
depends filepath-1.4.100.4-inplace
depends hspec-wai-0.11.1-7Zw367T24ty8GHLFD0n3Ec
depends servant-0.20.1-7IwaPuLx14D8jflaJ2sbpm
depends servant-blaze-0.9.1-4rCnzax1hMd3RpnLTH5KQ
depends servant-server-0.20-6PU7r2EwFI9KKfieWZzWSD
depends servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
depends tasty-1.5-5P11eN7UrPQ7gjLMV13jao
depends tasty-hspec-1.2.0.4-5Cc8P1Pfq1BEu4izxYUEno
depends tasty-hunit-0.10.1-JSQDxk9lM8dCFxWFiE71D6
depends wai-3.2.3-1Efsg7fpcjiF2EGPl1cm3G
Using Cabal-3.10.2.0 compiled by ghc-9.8
Using compiler: ghc-9.8.1
Using install prefix:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0
Executables installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/bin
Libraries installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/lib/ghc-9.8.1/lib/x86_64-linux-ghc-9.8.1/servant-static-th-1.0.0.0-Eu8KZKOVrVf6OdBLsTDzsd
Dynamic Libraries installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/lib/ghc-9.8.1/lib/x86_64-linux-ghc-9.8.1
Private executables installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/libexec/x86_64-linux-ghc-9.8.1/servant-static-th-1.0.0.0
Data files installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/share/x86_64-linux-ghc-9.8.1/servant-static-th-1.0.0.0
Documentation installed in:
/nix/store/myhdis6jc84d8b8zzy4scj1llcc3amfv-servant-static-th-1.0.0.0-doc/share/doc/servant-static-th-1.0.0.0
Configuration files installed in:
/nix/store/xhh4a5nfj269k1kkx56aiadbkg39hrc3-servant-static-th-1.0.0.0/etc
No alex found
Using ar found on system at:
/nix/store/1fn92b0783crypjcxvdv6ycmvi27by0j-binutils-2.40/bin/ar
No c2hs found
No cpphs found
Using doctest version 0.22.2 found on system at:
/nix/store/b1jvz9i6yl2gb87xwjrnlsr96j7nf2rj-doctest-0.22.2/bin/doctest
Using gcc version 12.3.0 given by user at:
/nix/store/90h6k8ylkgn81k10190v5c9ldyjpzgl9-gcc-wrapper-12.3.0/bin/gcc
Using ghc version 9.8.1 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/ghc
Using ghc-pkg version 9.8.1 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/ghc-pkg-9.8.1
No ghcjs found
No ghcjs-pkg found
No greencard found
Using haddock version 2.30.0 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/haddock-ghc-9.8.1
No happy found
Using haskell-suite found on system at: haskell-suite-dummy-location
Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
No hmake found
Using hpc version 0.69 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/hpc-ghc-9.8.1
Using hsc2hs version 0.68.10 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/hsc2hs-ghc-9.8.1
Using hscolour version 1.24 found on system at:
/nix/store/icy67iqfm3k226224210fs901hq7m6v7-hscolour-1.24.4/bin/HsColour
No jhc found
Using ld found on system at:
/nix/store/1alqjnr40dsk7cl15l5sn5y2zdxidc1v-binutils-wrapper-2.40/bin/ld.gold
No pkg-config found
Using runghc version 9.8.1 found on system at:
/nix/store/qs0m6r89s0sm5i0bij8c4khy0sk656ml-ghc-9.8.1/bin/runghc-9.8.1
Using strip version 2.40 found on system at:
/nix/store/90h6k8ylkgn81k10190v5c9ldyjpzgl9-gcc-wrapper-12.3.0/bin/strip
Using tar found on system at:
/nix/store/xpidksbd07in3nd4sjx79ybwwy81b338-gnutar-1.35/bin/tar
No uhc found
@nix { "action": "setPhase", "phase": "buildPhase" }
building
Preprocessing test suite 'servant-static-th-doctest' for servant-static-th-1.0.0.0..
Building test suite 'servant-static-th-doctest' for servant-static-th-1.0.0.0..
[1 of 1] Compiling Main ( test/DocTest.hs, dist/build/servant-static-th-doctest/servant-static-th-doctest-tmp/Main.o )
test/DocTest.hs:6:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Monoid’ is redundant
except perhaps to import instances from ‘Data.Monoid’
To import instances alone, use: import Data.Monoid()
|
6 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 2] Linking dist/build/servant-static-th-doctest/servant-static-th-doctest
Preprocessing library for servant-static-th-1.0.0.0..
Building library for servant-static-th-1.0.0.0..
[1 of 7] Compiling Servant.Static.TH.Internal.FileTree ( src/Servant/Static/TH/Internal/FileTree.hs, dist/build/Servant/Static/TH/Internal/FileTree.o, dist/build/Servant/Static/TH/Internal/FileTree.dyn_o )
src/Servant/Static/TH/Internal/FileTree.hs:21:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Monoid’ is redundant
except perhaps to import instances from ‘Data.Monoid’
To import instances alone, use: import Data.Monoid()
|
21 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 7] Compiling Servant.Static.TH.Internal.Util ( src/Servant/Static/TH/Internal/Util.hs, dist/build/Servant/Static/TH/Internal/Util.o, dist/build/Servant/Static/TH/Internal/Util.dyn_o )
[3 of 7] Compiling Servant.Static.TH.Internal.Mime ( src/Servant/Static/TH/Internal/Mime.hs, dist/build/Servant/Static/TH/Internal/Mime.o, dist/build/Servant/Static/TH/Internal/Mime.dyn_o )
src/Servant/Static/TH/Internal/Mime.hs:30:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Monoid’ is redundant
except perhaps to import instances from ‘Data.Monoid’
To import instances alone, use: import Data.Monoid()
|
30 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Mime.hs:79:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘stringExp’
• In the expression:
let
stringExp
= stringE . unpack $ decodeUtf8With lenientDecode byteString
packedExp = appE (varE 'pack) stringExp
byteStringExp = appE (varE 'encodeUtf8) packedExp
in appE (varE 'pure) byteStringExp
In an equation for ‘utf8ByteStringToExp’:
utf8ByteStringToExp byteString
= let
stringExp
= stringE . unpack $ decodeUtf8With lenientDecode byteString
packedExp = appE (varE ...) stringExp
....
in appE (varE 'pure) byteStringExp
Suggested fix: Consider giving ‘stringExp’ a type signature
|
79 | let stringExp = stringE . unpack $ decodeUtf8With lenientDecode byteString
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[4 of 7] Compiling Servant.Static.TH.Internal.Server ( src/Servant/Static/TH/Internal/Server.hs, dist/build/Servant/Static/TH/Internal/Server.o, dist/build/Servant/Static/TH/Internal/Server.dyn_o )
src/Servant/Static/TH/Internal/Server.hs:7:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Foldable’ is redundant
except perhaps to import instances from ‘Data.Foldable’
To import instances alone, use: import Data.Foldable()
|
7 | import Data.Foldable (foldl1)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Server.hs:8:1: warning: [GHC-38856] [-Wunused-imports]
The import of ‘:|’ from module ‘Data.List.NonEmpty’ is redundant
|
8 | import Data.List.NonEmpty (NonEmpty((:|)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Server.hs:129:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘sigTypeQ’
• In the expression:
let
funcName = mkName serverName
sigTypeQ
= [t| forall m.
Applicative m => ServerT $(conT (mkName apiName)) m |]
pending(rn) [<spn, conT (mkName apiName)>]
signatureQ = sigD funcName sigTypeQ
....
in sequence [signatureQ, funcQ]
In an equation for ‘createServerDec’:
createServerDec apiName serverName templateDir
= let
funcName = mkName serverName
sigTypeQ = ...
....
in sequence [signatureQ, funcQ]
Suggested fix: Consider giving ‘sigTypeQ’ a type signature
|
129 | sigTypeQ =
| ^^^^^^^^^^...
[5 of 7] Compiling Servant.Static.TH.Internal.Api ( src/Servant/Static/TH/Internal/Api.hs, dist/build/Servant/Static/TH/Internal/Api.o, dist/build/Servant/Static/TH/Internal/Api.dyn_o )
src/Servant/Static/TH/Internal/Api.hs:8:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Foldable’ is redundant
except perhaps to import instances from ‘Data.Foldable’
To import instances alone, use: import Data.Foldable()
|
8 | import Data.Foldable (foldl1)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Api.hs:25:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘fileNameLitT’
• In the expression:
do addDependentFile filePath
MimeTypeInfo mimeT respT _ <- extensionToMimeTypeInfoEx filePath
let fileName = takeFileName filePath
let fileNameLitT = litT $ strTyLit fileName
....
In an equation for ‘fileTreeToApiType’:
fileTreeToApiType (FileTreeFile filePath _)
= do addDependentFile filePath
MimeTypeInfo mimeT respT _ <- extensionToMimeTypeInfoEx filePath
let fileName = ...
....
Suggested fix: Consider giving ‘fileNameLitT’ a type signature
|
25 | let fileNameLitT = litT $ strTyLit fileName
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Api.hs:32:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘fileNameLitT’
• In the expression:
let fileNameLitT = litT $ strTyLit $ takeFileName filePath
in
[t| $(fileNameLitT)
:> $(combineWithServantOrT nonEmptyApiTypesQ) |]
pending(rn) [<spn, combineWithServantOrT nonEmptyApiTypesQ>,
<spn, fileNameLitT>]
In an equation for ‘fileTreeToApiType’:
fileTreeToApiType (FileTreeDir filePath fileTrees)
= let fileNameLitT = litT $ strTyLit $ takeFileName filePath
in
[t| $(fileNameLitT)
:> $(combineWithServantOrT nonEmptyApiTypesQ) |]
pending(rn) [<spn, combineWithServantOrT nonEmptyApiTypesQ>,
<spn, fileNameLitT>]
where
nonEmptyApiTypesQ :: NonEmpty (Q Type)
nonEmptyApiTypesQ = fmap fileTreeToApiType fileTrees
Suggested fix: Consider giving ‘fileNameLitT’ a type signature
|
32 | let fileNameLitT = litT $ strTyLit $ takeFileName filePath
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 7] Compiling Servant.Static.TH.Internal ( src/Servant/Static/TH/Internal.hs, dist/build/Servant/Static/TH/Internal.o, dist/build/Servant/Static/TH/Internal.dyn_o )
[7 of 7] Compiling Servant.Static.TH ( src/Servant/Static/TH.hs, dist/build/Servant/Static/TH.o, dist/build/Servant/Static/TH.dyn_o )
[1 of 7] Compiling Servant.Static.TH.Internal.FileTree ( src/Servant/Static/TH/Internal/FileTree.hs, dist/build/Servant/Static/TH/Internal/FileTree.p_o )
src/Servant/Static/TH/Internal/FileTree.hs:21:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Monoid’ is redundant
except perhaps to import instances from ‘Data.Monoid’
To import instances alone, use: import Data.Monoid()
|
21 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 7] Compiling Servant.Static.TH.Internal.Util ( src/Servant/Static/TH/Internal/Util.hs, dist/build/Servant/Static/TH/Internal/Util.p_o )
[3 of 7] Compiling Servant.Static.TH.Internal.Mime ( src/Servant/Static/TH/Internal/Mime.hs, dist/build/Servant/Static/TH/Internal/Mime.p_o )
src/Servant/Static/TH/Internal/Mime.hs:30:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Monoid’ is redundant
except perhaps to import instances from ‘Data.Monoid’
To import instances alone, use: import Data.Monoid()
|
30 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Mime.hs:79:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘stringExp’
• In the expression:
let
stringExp
= stringE . unpack $ decodeUtf8With lenientDecode byteString
packedExp = appE (varE 'pack) stringExp
byteStringExp = appE (varE 'encodeUtf8) packedExp
in appE (varE 'pure) byteStringExp
In an equation for ‘utf8ByteStringToExp’:
utf8ByteStringToExp byteString
= let
stringExp
= stringE . unpack $ decodeUtf8With lenientDecode byteString
packedExp = appE (varE ...) stringExp
....
in appE (varE 'pure) byteStringExp
Suggested fix: Consider giving ‘stringExp’ a type signature
|
79 | let stringExp = stringE . unpack $ decodeUtf8With lenientDecode byteString
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[4 of 7] Compiling Servant.Static.TH.Internal.Server ( src/Servant/Static/TH/Internal/Server.hs, dist/build/Servant/Static/TH/Internal/Server.p_o )
src/Servant/Static/TH/Internal/Server.hs:7:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Foldable’ is redundant
except perhaps to import instances from ‘Data.Foldable’
To import instances alone, use: import Data.Foldable()
|
7 | import Data.Foldable (foldl1)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Server.hs:8:1: warning: [GHC-38856] [-Wunused-imports]
The import of ‘:|’ from module ‘Data.List.NonEmpty’ is redundant
|
8 | import Data.List.NonEmpty (NonEmpty((:|)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Server.hs:129:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘sigTypeQ’
• In the expression:
let
funcName = mkName serverName
sigTypeQ
= [t| forall m.
Applicative m => ServerT $(conT (mkName apiName)) m |]
pending(rn) [<spn, conT (mkName apiName)>]
signatureQ = sigD funcName sigTypeQ
....
in sequence [signatureQ, funcQ]
In an equation for ‘createServerDec’:
createServerDec apiName serverName templateDir
= let
funcName = mkName serverName
sigTypeQ = ...
....
in sequence [signatureQ, funcQ]
Suggested fix: Consider giving ‘sigTypeQ’ a type signature
|
129 | sigTypeQ =
| ^^^^^^^^^^...
[5 of 7] Compiling Servant.Static.TH.Internal.Api ( src/Servant/Static/TH/Internal/Api.hs, dist/build/Servant/Static/TH/Internal/Api.p_o )
src/Servant/Static/TH/Internal/Api.hs:8:1: warning: [GHC-66111] [-Wunused-imports]
The import of ‘Data.Foldable’ is redundant
except perhaps to import instances from ‘Data.Foldable’
To import instances alone, use: import Data.Foldable()
|
8 | import Data.Foldable (foldl1)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Api.hs:25:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘fileNameLitT’
• In the expression:
do addDependentFile filePath
MimeTypeInfo mimeT respT _ <- extensionToMimeTypeInfoEx filePath
let fileName = takeFileName filePath
let fileNameLitT = litT $ strTyLit fileName
....
In an equation for ‘fileTreeToApiType’:
fileTreeToApiType (FileTreeFile filePath _)
= do addDependentFile filePath
MimeTypeInfo mimeT respT _ <- extensionToMimeTypeInfoEx filePath
let fileName = ...
....
Suggested fix: Consider giving ‘fileNameLitT’ a type signature
|
25 | let fileNameLitT = litT $ strTyLit fileName
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Servant/Static/TH/Internal/Api.hs:32:7: warning: [GHC-55524] [-Wmonomorphism-restriction]
• The Monomorphism Restriction applies to the binding
for ‘fileNameLitT’
• In the expression:
let fileNameLitT = litT $ strTyLit $ takeFileName filePath
in
[t| $(fileNameLitT)
:> $(combineWithServantOrT nonEmptyApiTypesQ) |]
pending(rn) [<spn, combineWithServantOrT nonEmptyApiTypesQ>,
<spn, fileNameLitT>]
In an equation for ‘fileTreeToApiType’:
fileTreeToApiType (FileTreeDir filePath fileTrees)
= let fileNameLitT = litT $ strTyLit $ takeFileName filePath
in
[t| $(fileNameLitT)
:> $(combineWithServantOrT nonEmptyApiTypesQ) |]
pending(rn) [<spn, combineWithServantOrT nonEmptyApiTypesQ>,
<spn, fileNameLitT>]
where
nonEmptyApiTypesQ :: NonEmpty (Q Type)
nonEmptyApiTypesQ = fmap fileTreeToApiType fileTrees
Suggested fix: Consider giving ‘fileNameLitT’ a type signature
|
32 | let fileNameLitT = litT $ strTyLit $ takeFileName filePath
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 7] Compiling Servant.Static.TH.Internal ( src/Servant/Static/TH/Internal.hs, dist/build/Servant/Static/TH/Internal.p_o )
[7 of 7] Compiling Servant.Static.TH ( src/Servant/Static/TH.hs, dist/build/Servant/Static/TH.p_o )
Preprocessing test suite 'servant-static-th-test' for servant-static-th-1.0.0.0..
Building test suite 'servant-static-th-test' for servant-static-th-1.0.0.0..
[1 of 6] Compiling Spec.TastyHelpers ( test/Spec/TastyHelpers.hs, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/TastyHelpers.o )
[2 of 6] Compiling Spec.TestDirLocation ( test/Spec/TestDirLocation.hs, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/TestDirLocation.o, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/TestDirLocation.dyn_o )
[3 of 6] Compiling Spec.ServerSpec ( test/Spec/ServerSpec.hs, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/ServerSpec.o )
test/Spec/ServerSpec.hs:15:36: error: [GHC-61689]
Module ‘Test.Tasty.Hspec’ does not export ‘it’.
|
15 | import Test.Tasty.Hspec (testSpec, it)
| ^^
[4 of 6] Compiling Spec.HelperFuncSpec ( test/Spec/HelperFuncSpec.hs, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/HelperFuncSpec.o )
[5 of 6] Compiling Spec.ApiSpec ( test/Spec/ApiSpec.hs, dist/build/servant-static-th-test/servant-static-th-test-tmp/Spec/ApiSpec.o )
test/Spec/ApiSpec.hs:36:24: error: [GHC-83865]
• Couldn't match type: ("dir"
:> (("inner-file.html" :> Get '[HTML] Html)
:<|> ("test.js" :> Get '[JS] ByteString)))
:<|> ("hello.html" :> Get '[HTML] Html)
with: "dir"
:> (("inner-file.html" :> Get '[HTML] Html)
:<|> ("test.js" :> Get '[JS] ByteString))
Expected: ExpectedFrontEndApi :~: FrontEndApi
Actual: ExpectedFrontEndApi :~: ExpectedFrontEndApi
• In the expression: Refl
In an equation for ‘checkFrontEndApiType’:
checkFrontEndApiType = Refl
|
36 | checkFrontEndApiType = Refl
| ^^^^
test/Spec/ApiSpec.hs:40:59: error: [GHC-83865]
• Couldn't match type: ("dir"
:> (("inner-file.html" :> Get '[HTML] Html)
:<|> ("test.js" :> Get '[JS] ByteString)))
:<|> ("hello.html" :> Get '[HTML] Html)
with: "dir"
:> (("inner-file.html" :> Get '[HTML] Html)
:<|> ("test.js" :> Get '[JS] ByteString))
Expected: ExpectedFrontEndApi :~: FrontEndApi
Actual: ExpectedFrontEndApi :~: ExpectedFrontEndApi
• In the second argument of ‘(@?=)’, namely ‘Refl’
In the second argument of ‘($)’, namely
‘checkFrontEndApiType @?= Refl’
In the expression:
testCase "created correctly" $ checkFrontEndApiType @?= Refl
|
40 | testCase "created correctly" $ checkFrontEndApiType @?= Refl
| ^^^^
cdepillabout commented
I'd appreciate a fix for this if anyone is interested!