diff options
| -rw-r--r-- | Backend.hs | 1 | ||||
| -rw-r--r-- | CryptoTypes.hs | 5 | ||||
| -rw-r--r-- | Touch.hsc | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/Backend.hs b/Backend.hs index ab15974c8..645bfdfc3 100644 --- a/Backend.hs +++ b/Backend.hs @@ -33,7 +33,6 @@ module Backend ( ) where import Control.Monad.State (liftIO, when) -import Control.Monad (liftM) import System.IO.Error (try) import System.FilePath import System.Posix.Files diff --git a/CryptoTypes.hs b/CryptoTypes.hs index 944a9d34e..ba22c4cbe 100644 --- a/CryptoTypes.hs +++ b/CryptoTypes.hs @@ -9,11 +9,12 @@ module CryptoTypes where import Data.String.Utils -data Cipher = Cipher String -- XXX ideally, this would be a locked memory region +-- XXX ideally, this would be a locked memory region +newtype Cipher = Cipher String data EncryptedCipher = EncryptedCipher String KeyIds -data KeyIds = KeyIds [String] +newtype KeyIds = KeyIds [String] instance Show KeyIds where show (KeyIds ks) = join "," ks @@ -16,7 +16,7 @@ module Touch ( import Foreign import Foreign.C -data TimeSpec = TimeSpec CTime +newtype TimeSpec = TimeSpec CTime {- Changes the access and modification times of an existing file. Can follow symlinks, or not. Throws IO error on failure. -} |