found a few places I can use newtype

for presumably some speedups

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

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

Touch.hsc

@@ -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. -}