[#2] Add doctest (#6)

Author: vrom911

postgresql-simple-named.cabal

@@ -81,3 +81,14 @@ test-suite postgresql-simple-named-test
   build-depends:       postgresql-simple-named
 
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+
+test-suite postgresql-simple-named-doctest
+  import:              common-options
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             Doctest.hs
+
+  build-depends:       doctest
+                     , Glob
+
+  ghc-options:         -threaded

src/PgNamed.hs

@@ -146,7 +146,7 @@ namesToRow names params = traverse magicLookup names
 {- | Operator to create 'NamedParam's.
 
 >>> "foo" =? (1 :: Int)
-NamedParam {namedParamName = "foo", namedParamParam = 1}
+NamedParam {namedParamName = "foo", namedParamParam = Plain "1"}
 
 So it can be used in creating the list of the named arguments:
 

test/Doctest.hs

@@ -0,0 +1,16 @@
+module Main (main) where
+
+import System.FilePath.Glob (glob)
+import Test.DocTest (doctest)
+
+main :: IO ()
+main = do
+    sourceFiles <- glob "src/**/*.hs"
+    doctest
+        $ "-XConstraintKinds"
+        : "-XGeneralizedNewtypeDeriving"
+        : "-XLambdaCase"
+        : "-XOverloadedStrings"
+        : "-XRecordWildCards"
+        : "-XScopedTypeVariables"
+        : sourceFiles