Commit 696826 focvoltage: store drvfault

1 file Authored and Committed by Richard Marko 2 years ago
focvoltage: store drvfault

    
 1 @@ -95,6 +95,7 @@
 2   
 3       trig <- state "trig"
 4       trigFlip <- state "trigFlip"
 5 +     drvfault <- state "drvfault"
 6   
 7       handler ext "ext" $ do
 8         callback $ const $ do
 9 @@ -125,7 +126,9 @@
10           --pwm_set (constRef pwmout)
11   
12       handler drvFault "drvFault" $ do
13 -       callback $ const $ store ready false
14 +       callback $ \fault -> do
15 +         refCopy drvfault fault
16 +         store ready false
17   
18       handler calDone "calDone" $ do
19         callback $ \x -> do