@@ -199,16 +199,16 @@ data Signal = SIGHUP
199199
200200instance FromJSON Signal where
201201 parseJSON (JSON.String "SIGTERM") = return SIGTERM
202− parseJSON (JSON.String "SIGHUP") = return SIGHUP -- Note: Guessing on the string values for these.
203− parseJSON (JSON.String "SIGINT") = return SIGINT
202+ parseJSON (JSON.String "SIGHUP") = return SIGHUP -- Note: Guessing on the string values for these.
203+ parseJSON (JSON.String "SIGINT") = return SIGINT
204204 parseJSON (JSON.String "SIGQUIT") = return SIGQUIT
205205 parseJSON (JSON.String "SIGSTOP") = return SIGSTOP
206206 parseJSON (JSON.String "SIGUSR1") = return SIGUSR1
207− parseJSON _ = fail "Unknown Signal"
207+ parseJSON _ = fail "Unknown Signal"
208208
209209instance ToJSON Signal where
210− toJSON SIGHUP = "SIGHUP"
211− toJSON SIGINT = "SIGINT"
210+ toJSON SIGHUP = "SIGHUP"
211+ toJSON SIGINT = "SIGINT"
212212 toJSON SIGQUIT = "SIGQUIT"
213213 toJSON SIGSTOP = "SIGSTOP"
214214 toJSON SIGTERM = "SIGTERM"
@@ -541,13 +541,13 @@ data Status = Created | Restarting | Running | Paused | Exited | Dead
541541 deriving (Eq, Show, Generic)
542542
543543instance FromJSON Status where
544− parseJSON (JSON.String "running") = return Running
545− parseJSON (JSON.String "created") = return Created -- Note: Guessing on the string values of these.
544+ parseJSON (JSON.String "running") = return Running
545+ parseJSON (JSON.String "created") = return Created -- Note: Guessing on the string values of these.
546546 parseJSON (JSON.String "restarting") = return Restarting
547− parseJSON (JSON.String "paused") = return Paused
548− parseJSON (JSON.String "exited") = return Exited
549− parseJSON (JSON.String "dead") = return Dead
550− parseJSON _ = fail "Unknown Status"
547+ parseJSON (JSON.String "paused") = return Paused
548+ parseJSON (JSON.String "exited") = return Exited
549+ parseJSON (JSON.String "dead") = return Dead
550+ parseJSON _ = fail "Unknown Status"
551551
552552-- | Alias for representing a RepoDigest. We could newtype this and add
553553-- some validation.
@@ -782,12 +782,12 @@ data VolumePermission = ReadWrite | ReadOnly deriving (Eq, Show, Generic)
782782
783783instance ToJSON VolumePermission where
784784 toJSON ReadWrite = "rw"
785− toJSON ReadOnly = "ro"
785+ toJSON ReadOnly = "ro"
786786
787787instance FromJSON VolumePermission where
788788 parseJSON "rw" = return ReadWrite
789789 parseJSON "ro" = return ReadOnly
790− parseJSON _ = fail "Failed to parse VolumePermission"
790+ parseJSON _ = fail "Failed to parse VolumePermission"
791791
792792-- | Used for marking a directory in the container as "exposed" hence
793793-- taking it outside of the COW filesystem and making it mountable
@@ -809,8 +809,8 @@ instance {-# OVERLAPPING #-} ToJSON [Volume] where
809809
810810instance {-# OVERLAPPING #-} FromJSON [Volume] where
811811 parseJSON (JSON.Object o) = return $ map (Volume . T.unpack) $ HM.keys o
812− parseJSON (JSON.Null) = return []
813− parseJSON _ = fail "Volume is not an object"
812+ parseJSON (JSON.Null) = return []
813+ parseJSON _ = fail "Volume is not an object"
814814
815815
816816data Bind = Bind { hostSrc :: Text
@@ -820,10 +820,10 @@ data Bind = Bind { hostSrc :: Text
820820
821821instance FromJSON Bind where
822822 parseJSON (JSON.String t) = case T.split (== ':') t of
823− [src, dest] -> return $ Bind src dest Nothing
823+ [src, dest] -> return $ Bind src dest Nothing
824824 [src, dest, "rw"] -> return $ Bind src dest $ Just ReadWrite
825825 [src, dest, "ro"] -> return $ Bind src dest $ Just ReadOnly
826− _ -> fail "Could not parse Bind"
826+ _ -> fail "Could not parse Bind"
827827 parseJSON _ = fail "Bind is not a string"
828828
829829data Device = Device {
@@ -846,15 +846,15 @@ data VolumeFrom = VolumeFrom ContainerName (Maybe VolumePermission) deriving (Eq
846846
847847instance FromJSON VolumeFrom where
848848 parseJSON (JSON.String t) = case T.split (== ':') t of
849− [vol] -> return $ VolumeFrom vol Nothing
849+ [vol] -> return $ VolumeFrom vol Nothing
850850 [vol, "rw"] -> return $ VolumeFrom vol $ Just ReadWrite
851851 [vol, "ro"] -> return $ VolumeFrom vol $ Just ReadOnly
852− _ -> fail "Could not parse VolumeFrom"
852+ _ -> fail "Could not parse VolumeFrom"
853853 parseJSON _ = fail "VolumeFrom is not a string"
854854
855855instance ToJSON VolumeFrom where
856856 toJSON (VolumeFrom n p) = case p of
857− Nothing -> toJSON $ n <> ":" <> "rw"
857+ Nothing -> toJSON $ n <> ":" <> "rw"
858858 Just per -> toJSON $ n <> ":" <> (T.pack $ show per)
859859
860860instance ToJSON Bind where
@@ -866,40 +866,40 @@ data Link = Link Text (Maybe Text) deriving (Eq, Show)
866866
867867instance FromJSON Link where
868868 parseJSON (JSON.String t) = case T.split (== ':') t of
869− [f] -> return $ Link f Nothing
869+ [f] -> return $ Link f Nothing
870870 [f,s] -> return $ Link f $ Just s
871− _ -> fail "Could not parse Link"
871+ _ -> fail "Could not parse Link"
872872 parseJSON _ = fail "Link is not a string"
873873
874874instance ToJSON Link where
875875 toJSON (Link n1 n2) = toJSON $ case n2 of
876876 Nothing -> T.concat[n1, ":", n1] -- use same name in container
877− Just n -> T.concat[n1, ":", n] -- used specified name in container
877+ Just n -> T.concat[n1, ":", n] -- used specified name in container
878878
879879-- { "Type": "<driver_name>", "Config": {"key1": "val1"} }
880880data LogDriverType = JsonFile | Syslog | Journald | Gelf | Fluentd | AwsLogs | Splunk | Etwlogs | LoggingDisabled deriving (Eq, Show)
881881
882882instance FromJSON LogDriverType where
883883 parseJSON (JSON.String "json-file") = return JsonFile
884− parseJSON (JSON.String "syslog") = return Syslog
885− parseJSON (JSON.String "journald") = return Journald
886− parseJSON (JSON.String "gelf") = return Gelf
887− parseJSON (JSON.String "fluentd") = return Fluentd
888− parseJSON (JSON.String "awslogs") = return AwsLogs
889− parseJSON (JSON.String "splunk") = return Splunk
890− parseJSON (JSON.String "etwlogs") = return Etwlogs
891− parseJSON (JSON.String "none") = return LoggingDisabled
892− parseJSON _ = fail "Unknown LogDriverType"
884+ parseJSON (JSON.String "syslog") = return Syslog
885+ parseJSON (JSON.String "journald") = return Journald
886+ parseJSON (JSON.String "gelf") = return Gelf
887+ parseJSON (JSON.String "fluentd") = return Fluentd
888+ parseJSON (JSON.String "awslogs") = return AwsLogs
889+ parseJSON (JSON.String "splunk") = return Splunk
890+ parseJSON (JSON.String "etwlogs") = return Etwlogs
891+ parseJSON (JSON.String "none") = return LoggingDisabled
892+ parseJSON _ = fail "Unknown LogDriverType"
893893
894894instance ToJSON LogDriverType where
895− toJSON JsonFile = JSON.String "json-file"
896− toJSON Syslog = JSON.String "syslog"
897− toJSON Journald = JSON.String "journald"
898− toJSON Gelf = JSON.String "gelf"
899− toJSON Fluentd = JSON.String "fluentd"
900− toJSON AwsLogs = JSON.String "awslogs"
901− toJSON Splunk = JSON.String "splunk"
902− toJSON Etwlogs = JSON.String "etwlogs"
895+ toJSON JsonFile = JSON.String "json-file"
896+ toJSON Syslog = JSON.String "syslog"
897+ toJSON Journald = JSON.String "journald"
898+ toJSON Gelf = JSON.String "gelf"
899+ toJSON Fluentd = JSON.String "fluentd"
900+ toJSON AwsLogs = JSON.String "awslogs"
901+ toJSON Splunk = JSON.String "splunk"
902+ toJSON Etwlogs = JSON.String "etwlogs"
903903 toJSON LoggingDisabled = JSON.String "none"
904904
905905data LogDriverOption = LogDriverOption Name Value deriving (Eq, Show)
@@ -938,14 +938,14 @@ data NetworkMode = Bridge | Host | NetworkDisabled
938938
939939instance FromJSON NetworkMode where
940940 parseJSON (JSON.String "bridge") = return Bridge
941− parseJSON (JSON.String "host") = return Host -- Note: Guessing on these.
942− parseJSON (JSON.String "none") = return NetworkDisabled
943− parseJSON _ = fail "Unknown NetworkMode"
941+ parseJSON (JSON.String "host") = return Host -- Note: Guessing on these.
942+ parseJSON (JSON.String "none") = return NetworkDisabled
943+ parseJSON _ = fail "Unknown NetworkMode"
944944
945945instance ToJSON NetworkMode where
946− toJSON Bridge = JSON.String "bridge"
947− toJSON Host = JSON.String "host"
948− toJSON NetworkDisabled = JSON.String "none"
946+ toJSON Bridge = JSON.String "bridge"
947+ toJSON Host = JSON.String "host"
948+ toJSON NetworkDisabled = JSON.String "none"
949949
950950data PortType = TCP | UDP deriving (Eq, Generic, Read, Ord)
951951
@@ -961,7 +961,7 @@ instance FromJSON PortType where
961961 parseJSON val = case val of
962962 "tcp" -> return TCP
963963 "udp" -> return UDP
964− _ -> fail "PortType: Invalid port type."
964+ _ -> fail "PortType: Invalid port type."
965965
966966-- newtype NetworkInterface = NetworkInterface Text deriving (Eq, Show)
967967--
@@ -1277,7 +1277,7 @@ data MemoryConstraintSize = B | MB | GB deriving (Eq, Show)
12771277data MemoryConstraint = MemoryConstraint Integer MemoryConstraintSize deriving (Eq, Show)
12781278
12791279instance ToJSON MemoryConstraint where
1280− toJSON (MemoryConstraint x B) = toJSON x
1280+ toJSON (MemoryConstraint x B) = toJSON x
12811281 toJSON (MemoryConstraint x MB) = toJSON $ x * 1024 * 1024
12821282 toJSON (MemoryConstraint x GB) = toJSON $ x * 1024 * 1024 * 1024
12831283