diff options
| -rw-r--r-- | Assistant/WebApp/Types.hs | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/Assistant/WebApp/Types.hs b/Assistant/WebApp/Types.hs index 988f909d7..26b73af9d 100644 --- a/Assistant/WebApp/Types.hs +++ b/Assistant/WebApp/Types.hs @@ -5,7 +5,9 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} +{-# LANGUAGE FlexibleInstances, UndecidableInstances #-} +{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses #-} +{-# LANGUAGE TemplateHaskell, OverloadedStrings, RankNTypes #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Assistant.WebApp.Types where @@ -77,19 +79,7 @@ data SshData = SshData } deriving (Read, Show, Eq) -instance PathPiece SshData where - toPathPiece = pack . show - fromPathPiece = readish . unpack - - -instance PathPiece NotificationId where - toPathPiece = pack . show - fromPathPiece = readish . unpack - -instance PathPiece AlertId where - toPathPiece = pack . show - fromPathPiece = readish . unpack - -instance PathPiece Transfer where +{- Allow any serializable data type to be used as a PathPiece -} +instance (Show a, Read a) => PathPiece a where toPathPiece = pack . show fromPathPiece = readish . unpack |