Commits

badi  committed 9b3542b

Castable Command to String

  • Participants
  • Parent commits 480c94c

Comments (0)

Files changed (1)

File Control/Distributed/CCTools/WorkQueue/Internal/CastInstances.hs

 instance Castable (Maybe Port) CInt where
     cast Nothing = c'WORK_QUEUE_RANDOM_PORT
     cast (Just p) = cast $ p^.unP
+
+-- ** Command
+
+instance Castable Command String where
+    cast = _unC