diff --git a/src/Database/YeshQL/HDBC.hs b/src/Database/YeshQL/HDBC.hs
--- a/src/Database/YeshQL/HDBC.hs
+++ b/src/Database/YeshQL/HDBC.hs
@@ -36,6 +36,7 @@
 import qualified Text.Parsec as P
 import Data.Char (chr, ord, toUpper, toLower)
 import Control.Applicative ( (<$>), (<*>) )
+import Control.Monad (void)
 import System.FilePath (takeBaseName)
 import Data.Char (isAlpha, isAlphaNum)
 
@@ -126,6 +127,8 @@
                             [| \qstr params conn -> $convert <$> run conn qstr params |]
                         ReturnTuple Many _ ->
                             [| \qstr params conn -> $convert <$> quickQuery' conn qstr params |]
+                        ReturnTuple One [] ->
+                            [| \qstr params conn -> void $ $convert <$> quickQuery' conn qstr params |]
                         ReturnTuple One _ ->
                             [| \qstr params conn -> fmap headMay $ $convert <$> quickQuery' conn qstr params |]
                         ReturnRecord Many _ ->
diff --git a/tests/Database/YeshQL/HDBC/SimulationTests.hs b/tests/Database/YeshQL/HDBC/SimulationTests.hs
--- a/tests/Database/YeshQL/HDBC/SimulationTests.hs
+++ b/tests/Database/YeshQL/HDBC/SimulationTests.hs
@@ -81,6 +81,22 @@
                 }
             ]
 
+testEmptyReturn :: TestTree
+testEmptyReturn = testCase "Simple SELECT (empty return)" $ chatTest chatScript $ \conn -> do
+    [yesh|
+        -- name:getUserByName :: ()
+        SELECT username FROM users WHERE 0|] conn
+    where
+        chatScript =
+            [ ChatStep
+                { chatQuery = sameThrough trim "SELECT username FROM users WHERE 0"
+                , chatParams = []
+                , chatResultSet = []
+                , chatColumnNames = ["username"]
+                , chatRowsAffected = 0
+                }
+            ]
+
 testSimpleSelectStr :: TestTree
 testSimpleSelectStr = testCase "Simple SELECT (expr by string)" $ chatTest chatScript $ \conn -> do
     results <- $(yesh $ unlines
diff --git a/yeshql-hdbc.cabal b/yeshql-hdbc.cabal
--- a/yeshql-hdbc.cabal
+++ b/yeshql-hdbc.cabal
@@ -1,5 +1,5 @@
 name: yeshql-hdbc
-version: 4.1.0.1
+version: 4.1.0.2
 synopsis: YesQL-style SQL database abstraction (HDBC backend)
 description: Use quasi-quotations or TemplateHaskell to write SQL in SQL, while
              adding type annotations to turn SQL into well-typed Haskell