Add dummy characters to force Haddock to wrap lines

src/Opaleye/Field.hs

@@ -62,7 +62,7 @@ matchNullable :: Field b
               -> (Field a -> Field b)
               -- ^
               -> FieldNullable a
-              -- ^
+              -- ^ ͘
               -> Field b
 matchNullable replacement f x = C.unsafeIfThenElse (isNull x) replacement
                                                    (f (unsafeCoerceField x))
@@ -76,7 +76,7 @@ matchNullable replacement f x = C.unsafeIfThenElse (isNull x) replacement
 fromNullable :: Field a
              -- ^
              -> FieldNullable a
-             -- ^
+             -- ^ ͘
              -> Field a
 fromNullable = flip matchNullable id
 

src/Opaleye/Manipulation.hs

@@ -180,7 +180,7 @@ data Update haskells = forall fieldsW fieldsR. Update
 -- @uUpdateWith = updateEasy (\\... -> ...)@
 updateEasy :: D.Default Updater fieldsR fieldsW
            => (fieldsR -> fieldsR)
-           -- ^
+           -- ^ ͘
            -> (fieldsR -> fieldsW)
 updateEasy u = u' . u
   where Updater u' = D.def
@@ -206,7 +206,7 @@ rCount = MI.Count
 -- 'rReturning'.
 rReturning :: D.Default RS.FromFields fields haskells
            => (fieldsR -> fields)
-           -- ^
+           -- ^ ͘
            -> MI.Returning fieldsR [haskells]
 rReturning = rReturningExplicit D.def
 
@@ -215,14 +215,14 @@ rReturning = rReturningExplicit D.def
 -- flexible.
 rReturningI :: D.Default (Inferrable RS.FromFields) fields haskells
             => (fieldsR -> fields)
-            -- ^
+            -- ^ ͘
             -> MI.Returning fieldsR [haskells]
 rReturningI = rReturningExplicit (runInferrable D.def)
 
 -- | Return a function of the inserted or updated rows.  Explicit
 -- version.  You probably just want to use 'rReturning' instead.
 rReturningExplicit :: RS.FromFields fields haskells
-                   -- ^
+                   -- ^ ͘
                    -> (fieldsR -> fields)
                    -- ^
                    -> MI.Returning fieldsR [haskells]

src/Opaleye/MaybeFields.hs

@@ -66,7 +66,7 @@ traverseMaybeFields :: (Default Unpackspec a a, Default Unpackspec b b)
                     => SelectArr a b
                     -- ^
                     -> SelectArr (MaybeFields a) (MaybeFields b)
-                    -- ^
+                    -- ^ ͘
 traverseMaybeFields = Opaleye.Internal.MaybeFields.traverseMaybeFields
 
 -- The Unpackspecs are currently redundant, but I'm adding them in

src/Opaleye/RunSelect.hs

@@ -51,7 +51,7 @@ runSelect :: D.Default FromFields fields haskells
           => PGS.Connection
           -- ^
           -> S.Select fields
-          -- ^
+          -- ^ ͘
           -> IO [haskells]
 runSelect = RQ.runQuery
 
@@ -60,7 +60,7 @@ runSelectTF :: D.Default FromFields (rec TF.O) (rec TF.H)
             => PGS.Connection
             -- ^
             -> S.Select (rec TF.O)
-            -- ^
+            -- ^ ͘
             -> IO [rec TF.H]
 runSelectTF = RQ.runQuery
 
@@ -78,7 +78,7 @@ runSelectFold
   -> b
   -- ^
   -> (b -> haskells -> IO b)
-  -- ^
+  -- ^ ͘
   -> IO b
 runSelectFold = RQ.runQueryFold
 
@@ -89,7 +89,7 @@ declareCursor
     => PGS.Connection
     -- ^
     -> S.Select fields
-    -- ^
+    -- ^ ͘
     -> IO (IRQ.Cursor haskells)
 declareCursor = RQ.declareCursor
 
@@ -108,7 +108,7 @@ foldForward
     -> (a -> haskells -> IO a)
     -- ^
     -> a
-    -- ^
+    -- ^ ͘
     -> IO (Either a a)
 foldForward = RQ.foldForward
 
@@ -168,6 +168,6 @@ runSelectI :: (D.Default (Inferrable FromFields) fields haskells)
            => PGS.Connection
            -- ^
            -> S.Select fields
-           -- ^
+           -- ^ ͘
            -> IO [haskells]
 runSelectI = RQ.runQueryExplicit (runInferrable D.def)

src/Opaleye/Table.hs

@@ -101,7 +101,7 @@ import qualified Data.Profunctor.Product.Default as D
 -- @
 selectTable :: D.Default U.Unpackspec fields fields
             => Table a fields
-            -- ^
+            -- ^ ͘
             -> S.Select fields
 selectTable = selectTableExplicit D.def
 
@@ -126,7 +126,7 @@ tableWithSchema = T.TableWithSchema
 selectTableExplicit :: U.Unpackspec tablefields fields
                     -- ^
                     -> Table a tablefields
-                    -- ^
+                    -- ^ ͘
                     -> S.Select fields
 selectTableExplicit cm table' = Q.productQueryArr $ do
   t0 <- Tag.fresh

src/Opaleye/ToFields.hs

@@ -48,6 +48,6 @@ toFields = C.toFields
 -- | Version of 'C.toFields' with better type inference
 toFieldsI :: (D.Default (Inferrable C.ToFields) haskells fields)
           => haskells
-          -- ^
+          -- ^ ͘
           -> fields
 toFieldsI = toFieldsExplicit (runInferrable D.def)