Haskell wrapper for date field test

haskell-mafia · Jul 18, 2016 · e5deeaa · e5deeaa
1 parent ecdbf8e
commit e5deeaa
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/Warden/Parser/Field.hs b/src/Warden/Parser/Field.hs
@@ -6,6 +6,7 @@
 
 module Warden.Parser.Field (
     checkFieldBool
+  , checkFieldDate
   , checkFieldNumeric
   , integralFieldP
   , realFieldP
@@ -78,3 +79,15 @@ numericFieldP = {-# SCC numericFieldP #-}
   , (NumericField . fromIntegral) <$> integralFieldP
   ]
 {-# INLINE numericFieldP #-}
+
+checkFieldDate :: ByteString -> Bool
+checkFieldDate bs = {-# SCC checkFieldDate #-}
+  unsafePerformIO $ do
+    BSU.unsafeUseAsCStringLen bs $ \(bsPtr, bsLen) ->
+      cBool <$> warden_field_datetime (castPtr bsPtr) (fromIntegral bsLen)
+{-# INLINE checkFieldDate #-}
+
+foreign import ccall unsafe warden_field_datetime
+  :: Ptr Word8
+  -> CSize
+  -> IO Word8