Add custom baud rates (#13)

standardsemiconductor · Nov 23, 2024 · c64a2d0 · c64a2d0
1 parent 16a1812
commit c64a2d0
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 4 deletions.
diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml
@@ -28,3 +28,6 @@ jobs:
 
     - name: Build
       run: cabal build
+
+    - name: Docs
+      run: cabal haddock
diff --git a/System/Hardware/Serialport/Posix.hsc b/System/Hardware/Serialport/Posix.hsc
@@ -210,5 +210,4 @@ commSpeedToBaudRate = \case
   CS38400  -> B38400
   CS57600  -> B57600
   CS115200 -> B115200
-
-
+  CS b     -> fromIntegral b
diff --git a/System/Hardware/Serialport/Types.hs b/System/Hardware/Serialport/Types.hs
@@ -16,7 +16,8 @@ data CommSpeed
   | CS38400
   | CS57600
   | CS115200
-  deriving (Show, Read, Eq, Bounded)
+  | CS Word32
+  deriving (Show, Read, Eq)
 
 data StopBits = One | Two
   deriving (Show, Read, Eq, Bounded)
@@ -54,4 +55,3 @@ data SerialPortSettings = SerialPortSettings
 defaultSerialSettings :: SerialPortSettings
 defaultSerialSettings =
   SerialPortSettings CS9600 8 One NoParity NoFlowControl 1
-
diff --git a/System/Win32/Comm.hsc b/System/Win32/Comm.hsc
@@ -230,3 +230,4 @@ commSpeedToBaudRate cs =
       CS38400 -> (#const CBR_38400)
       CS57600 -> (#const CBR_57600)
       CS115200 -> (#const CBR_115200)
+      CS b -> fromIntegral b