Skip to content
Browse files

haddock documentation works now

I've removed the '^'s to make haddock work.
It is not possible to document unnamed fields in datatype
declarations individually in a way that haddock understands.
  • Loading branch information...
1 parent 9b77d7f commit 05fef3b2ecb0862acb374ab12db8049cd8f7a3da @soenkehahn soenkehahn committed Dec 13, 2012
Showing with 13 additions and 13 deletions.
  1. +13 −13 Database/HDBC/ODBC/Statement.hsc
View
26 Database/HDBC/ODBC/Statement.hsc
@@ -489,9 +489,9 @@ data BindCol
-- This struct, and the ones which follow, are described here:
-- http://msdn.microsoft.com/en-us/library/ms714556(v=VS.85).aspx
data StructDate = StructDate
- #{type SQLSMALLINT} -- ^ year
- #{type SQLUSMALLINT} -- ^ month
- #{type SQLUSMALLINT} -- ^ day
+ #{type SQLSMALLINT} -- year
+ #{type SQLUSMALLINT} -- month
+ #{type SQLUSMALLINT} -- day
deriving Show
instance Storable StructDate where
@@ -509,9 +509,9 @@ instance Storable StructDate where
-- | StructTime is used to marshals the TIME_STRUCT:
data StructTime = StructTime
- #{type SQLUSMALLINT} -- ^ hour
- #{type SQLUSMALLINT} -- ^ minute
- #{type SQLUSMALLINT} -- ^ second
+ #{type SQLUSMALLINT} -- hour
+ #{type SQLUSMALLINT} -- minute
+ #{type SQLUSMALLINT} -- second
instance Storable StructTime where
sizeOf _ = #{size TIME_STRUCT}
@@ -527,13 +527,13 @@ instance Storable StructTime where
-- | StructTimestamp is used to marshal the TIMESTAMP_STRUCT;
data StructTimestamp = StructTimestamp
- #{type SQLSMALLINT} -- ^ year
- #{type SQLUSMALLINT} -- ^ month
- #{type SQLUSMALLINT} -- ^ day
- #{type SQLUSMALLINT} -- ^ hour
- #{type SQLUSMALLINT} -- ^ minute
- #{type SQLUSMALLINT} -- ^ second
- #{type SQLUINTEGER} -- ^ fraction
+ #{type SQLSMALLINT} -- year
+ #{type SQLUSMALLINT} -- month
+ #{type SQLUSMALLINT} -- day
+ #{type SQLUSMALLINT} -- hour
+ #{type SQLUSMALLINT} -- minute
+ #{type SQLUSMALLINT} -- second
+ #{type SQLUINTEGER} -- fraction
instance Storable StructTimestamp where
sizeOf _ = #{size TIMESTAMP_STRUCT}

0 comments on commit 05fef3b

Please sign in to comment.
Something went wrong with that request. Please try again.