Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove left-over comments

  • Loading branch information...
commit 3bfb3f2f5cfbcd56e88b30c3953686d03ccbd6d8 1 parent a3b5681
@nurpax authored
Showing with 0 additions and 1 deletion.
  1. +0 −1  test/UserInstances.hs
1  test/UserInstances.hs
@@ -25,7 +25,6 @@ testUserFromField :: TestEnv -> Test
testUserFromField TestEnv{..} = TestCase $ do
execute_ conn "CREATE TABLE fromfield (t TEXT)"
execute conn "INSERT INTO fromfield (t) VALUES (?)" (Only ("test string" :: String))
- -- Read it back as a string
[Only r] <- query_ conn "SELECT t FROM fromfield" :: IO [(Only MyType)]
assertEqual "fromField" (MyType "fromField test string") r
execute_ conn "DELETE FROM fromfield"
Please sign in to comment.
Something went wrong with that request. Please try again.