diff --git a/shaderc.cabal b/shaderc.cabal
--- a/shaderc.cabal
+++ b/shaderc.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           shaderc
-version:        0.1.0.6
+version:        0.1.0.7
 synopsis:       A collection of tools and libraries for Vulkan shader compilation
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/shaderc#readme>
 category:       Language
diff --git a/src/Language/SpirV/Shaderc.hs b/src/Language/SpirV/Shaderc.hs
--- a/src/Language/SpirV/Shaderc.hs
+++ b/src/Language/SpirV/Shaderc.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE BlockArguments #-}
+{-# LANGUAGE BlockArguments, OverloadedStrings #-}
 {-# LANGUAGE TypeApplications, ScopedTypeVariables #-}
 {-# LANGUAGE DataKinds, KindSignatures #-}
 {-# LANGUAGE ViewPatterns #-}
@@ -26,7 +26,7 @@
 compile :: forall ud sknd . (Storable ud, IsShaderKind sknd) =>
 	SourceText -> InputFileName -> EntryPointName ->
 	CompileOptions.C ud -> IO (S sknd)
-compile src ifnm epnm opts = ($ pure) $ runContT do
+compile src ifnm_ epnm opts = ($ pure) $ runContT do
 	cmp <- lift C.compilerInitialize
 	rslt <- M.compileIntoSpv cmp src (shaderKind @sknd) ifnm epnm opts
 	lift $ throwUnlessSuccess rslt
@@ -36,6 +36,7 @@
 		CompilationResult.release rslt
 		C.compilerRelease cmp
 		pure $ S spv
+	where ifnm = case ifnm_ of "" -> "<no name>"; _ -> ifnm_
 
 type SourceText = BS.ByteString
 type InputFileName = BS.ByteString